Boa tarde, pessoal!
Estou com um problema no meu sistema.
Tenho um formulário que funciona para cadastrar treinamentos realizados. Neste formulário, eu entro com as informações de matrícula do funcionário, nome do treinamento e a data que foi realizado.
Mas, gostaria que quando apertasse o botão de salvar, ele não permitisse salvar caso algum campo esteja em branco. Fiz a seguinte programação no VBA:
Private Sub Command83_Click()
If IsNull(Me.Matricula) Then
Me.Dirty = False
MsgBox "Campos Inválidos", vbInformation, "Alerta"
Else
DoCmd.Save
MsgBox "Funcionário cadastrado com sucesso!", vbInformation + vbOKOnly
Me.Refresh
DoCmd.GoToRecord , , acNewRec
End If
End Sub
Ele funciona apenas para me informar que o campo está em branco, mas não impede que a informação seja salva.
Alguém poderia me ajudar?
Estou com um problema no meu sistema.
Tenho um formulário que funciona para cadastrar treinamentos realizados. Neste formulário, eu entro com as informações de matrícula do funcionário, nome do treinamento e a data que foi realizado.
Mas, gostaria que quando apertasse o botão de salvar, ele não permitisse salvar caso algum campo esteja em branco. Fiz a seguinte programação no VBA:
Private Sub Command83_Click()
If IsNull(Me.Matricula) Then
Me.Dirty = False
MsgBox "Campos Inválidos", vbInformation, "Alerta"
Else
DoCmd.Save
MsgBox "Funcionário cadastrado com sucesso!", vbInformation + vbOKOnly
Me.Refresh
DoCmd.GoToRecord , , acNewRec
End If
End Sub
Ele funciona apenas para me informar que o campo está em branco, mas não impede que a informação seja salva.
Alguém poderia me ajudar?