[Resolvido]Emitir menssagem quando ha um campo vazio

Ola amigos, boa tarde!!!

Minha duvida é a seguinte: Gostaria que ao guardar o registro
se haver um campo sem dado, que me apareca uma menssagem a dizer que deve se preencher
o campo nome ou morada, etc. Deve-me dizer o nome do campo que esta vazia.

Consegui este codigo neste forum e fiz algumas modificacoes so que funciona para um campo e eu quero que funcione
para todos campos.Este é o código:



If IsNull(Me.Id) Then
MsgBox "Insira o Id por favor", vbInformation, "Salvar - Cadastro"

Else
DoCmd.Save
If Me.Id Then
MsgBox " Funcionário cadastrado com sucesso!", vbInformation + vbOKOnly, " Cadastros de Funcionários!"
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl "Id"
End If
End If
End Sub

Olá, boa noite..

Veja se esselink não lhe ajuda.

Abraços.

Obrigado. consegui adaptar o codigo a todos campos e funciono. Pode ser que alguem queira
ver como fiz, ai esta o codigo:

If IsNull(Me.Id) Or Me.Id.Value = "" Then
MsgBox "O campo ""Id"" é de preenchimento obrigatório.", vbInformation, "Atenção"
Me.Id.SetFocus

ElseIf IsNull(Me.nome) Or Me.nome.Value = "" Then
MsgBox "O campo ""nome"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.nome.SetFocus

ElseIf IsNull(Me.idade) Or Me.idade.Value = "" Then
MsgBox "O campo ""idade"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.idade.SetFocus


ElseIf IsNull(Me.morada) Or Me.morada.Value = "" Then
MsgBox "O campo ""morada"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Else
DoCmd.Save
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl "Id"
MsgBox "Guardado com sucesso ", vbInformation, "Registro completado"
End If

End Sub

O ideal para a solução do seu problema;

Mas resolvido, resolvido está.

http://maximoaccess.forumeiros.com/t1567-resolvidoverificacao-de-campo-vazio