Filipe_Correia
Membros-
Total de itens
11 -
Registro em
-
Última visita
Sobre Filipe_Correia
Filipe_Correia's Achievements
0
Reputação
-
Boas Sim sei utilizar BD em vb. Me ajuda
-
como guardar uma imagem em um cmdbutton e que guarde automaticamente na base de dados em access. è urgente... cumps
-
Problema com command button VB6
pergunta respondeu ao Filipe_Correia de Filipe_Correia em Visual Basic
Boa noite. Mas não pode ser em SQL, tem que ser em ACCESS... não posso utilizar o select, porque select é de sql... cumps -
não me consegue resolver o problema?? è muito urgente...
-
Problema com command button VB6
pergunta respondeu ao Filipe_Correia de Filipe_Correia em Visual Basic
Quando o clicarno botao queria que me apresentasse um valor numa listbox. mas não sei como gravar um valor nesse botao. O meu programa é parecido com essa imagem que postei. Desculpem meu portugues mas eu não sou brazileiro, sou portugues. Cumpz -
Boas. A base de dados não é em SQL é em access. esse codigo não dá
-
Boas não sei como conseguir fazer um login de um programa ligado a uma BD, ou seja só os utilizadores registados poderia fazer login. Urgente Cumps pipas
-
Boa noite Estou a elaborar um programa parecido ao que é utilizado nos cafés, queria adicionar um valor a um esse botão (por ex. 2€) e queria guardar esse valor na base de dados. para que quando fosse primido o botao ele apresentasse o valor numa listbox. Agradeço a vossa ajuda. URGENTE :bye2: Cumpz Pipas
-
[AJUDA URGENTE!] Programa em VB.. Com bases de dados
pergunta respondeu ao Filipe_Correia de Filipe_Correia em Visual Basic
Ajudem-me... estou desesperado. Se for necessario eu posto o programa completo. -
[AJUDA URGENTE!] Programa em VB.. Com bases de dados
pergunta respondeu ao Filipe_Correia de Filipe_Correia em Visual Basic
Boas, a linha onde me dá erro é a seguinte : Data1.Recordset.Update 3020 Tentativa de executar Update ou CancelUpdate ou tentativa de atualizar campo em tabela sem antes executar AddNew ou Edit. este é o erro que me dá, já traduzi a mensagem. Ela estava em ingles eu traduzi para portugues. Se for necessario eu posto o programa completo ou posto mais codigo. Já corri o programa todo e não entendo o porque deste erro. Agradecia ajuda =) Cumpz -
Private Sub Guardar_Click() Dim Resp As Integer, Mens As String Mens = "Deseja guardar os dados inseridos? " Resp = MsgBox(Mens, vbYesNo + vbQuestion, "Question") If Resp = vbYes Then If aba.Tab = 0 Then If musicartista.Text = Empty Then MsgBox "Prencha o campo ARTISTA", vbCritical + vbOKOnly, "ERRO" 'musicartista.SetFocus ElseIf musicanome.Text = Empty Then MsgBox "Prencha o campo NOME", vbCritical + vbOKOnly, "ERRO" 'musicanome.SetFocus ElseIf musicalbum.Text = Empty Then MsgBox "Prencha o campo ALBUM", vbCritical + vbOKOnly, "ERRO" 'musicalbum.SetFocus ElseIf Combo4.Text = Empty Then MsgBox "Prencha o campo ANO", vbCritical + vbOKOnly, "ERRO" 'Combo4.SetFocus ElseIf Combo5.Text = Empty Then MsgBox "Prencha o campo GENERO", vbCritical + vbOKOnly, "ERRO" 'Combo5.SetFocus Else Data1.Recordset.Update musicartista.Enabled = False musicanome.Enabled = False musicalbum.Enabled = False Combo4.Enabled = False Combo5.Enabled = False adicionar.Enabled = True visualizador.Enabled = False Procurar.Enabled = True Guardar.Enabled = False Editar.Enabled = True Cancelar.Enabled = False Eliminar.Enabled = False About.Enabled = True Sair.Enabled = True Data1.Refresh Data2.Refresh Data3.Refresh Data4.Refresh Data1.Recordset.Bookmark = Data1.Recordset.LastModified MsgBox "Registo guardado!" End If ElseIf aba.Tab = 1 Then If filmenome.Text = Empty Then MsgBox "Prencha o campo NOME", vbCritical + vbOKOnly, "ERRO" filmenome.SetFocus ElseIf Combo1.Text = Empty Then MsgBox "Prencha o campo GENERO", vbCritical + vbOKOnly, "ERRO" Combo1.SetFocus ElseIf Combo2.Text = Empty Then MsgBox "Prencha o campo LEGENDAS", vbCritical + vbOKOnly, "ERRO" Combo2.SetFocus ElseIf Combo3.Text = Empty Then MsgBox "Prencha o campo ANO", vbCritical + vbOKOnly, "ERRO" Combo3.SetFocus Else Data2.Recordset.Update filmenome.Enabled = False Combo1.Enabled = False Combo2.Enabled = False Combo3.Enabled = False adicionar.Enabled = True visualizador.Enabled = False Procurar.Enabled = True Guardar.Enabled = False Editar.Enabled = True Cancelar.Enabled = False Eliminar.Enabled = False About.Enabled = True Sair.Enabled = True MsgBox "Registo guardado!" Data1.Refresh Data2.Refresh Data3.Refresh Data4.Refresh Data2.Recordset.Bookmark = Data2.Recordset.LastModified End If End If End If End Sub ---------------------------------------------------------------------------------------------------------------- Boas, esse codigo é referente a um programa de gestao de multimedia, onde temos musicas e filmes para catalogar. Eu já consegui introduzir dados do programa mas de momento esta-me a dar o erro 3020. Será que alguém me pode dar uma ajuda?? Este programa é para apresentar amanha. Agradecia a vossa compreenção. Se for nessario eu posto o programa completo. Obrigado