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