Ir para conteúdo
Fórum Script Brasil

Filipe_Correia

Membros
  • Total de itens

    11
  • Registro em

  • Última visita

Sobre Filipe_Correia

Filipe_Correia's Achievements

0

Reputação

  1. Boas Sim sei utilizar BD em vb. Me ajuda
  2. como guardar uma imagem em um cmdbutton e que guarde automaticamente na base de dados em access. è urgente... cumps
  3. 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
  4. não me consegue resolver o problema?? è muito urgente...
  5. 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
  6. Boas. A base de dados não é em SQL é em access. esse codigo não dá
  7. 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
  8. 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
  9. Ajudem-me... estou desesperado. Se for necessario eu posto o programa completo.
  10. 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
  11. 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
×
×
  • Criar Novo...