[Resolvido]Função IF e Caixa de Mensagem

Olá Pessoal!
Sou iniciante no access e está é minha primeira postagem no forum.

Meu problema:

Tenho um formulário (Cadastro) que introduz informações numa tabela (cadastro), no formulário tenho os campos: [cod] registro/ numeração automática, [nome], [end], [fone] e [obs]. Estou tentando fazer com que, ao precionar a tecla enter nos campos [nome] e [end], caso eles estajam vazios (sem informação), abra uma caixa de mensagem dizendo que o campo é obrigatório e, após clicar em OK ele retorne ao campo para o preenchimento com a informação.

Tentai através de macro e não consegui!
Através de módulo também não deu certo!!! Vejam o que tentei

Private Sub END_Enter()
If ([Nome] Is Null) Then
Beep
MsgBox "OBRIGATÓRIO!!!", vbOKOnly, ""
End If
End Sub

Se alguém puder dar uma luz!!!
Obrigado

faça assim:

Private Sub END_Enter()
If IsNull(Me.Nome) Then
MsgBox "Campo obrigatório", vbOKOnly, "Falta campo"
Me.Nome.SetFocus
End If
End Sub

Obrigado Marcelo
Funcionou certinho.

Tentei aplicar sua orientação, ao invés de entrar no campo [end], ao sair do campo [nome] e funcionaou parciamente, ou seja, abriu a caixa de mensagem mas não retornou para campo [nome], veja:

Private Sub Nome_Exit(Cancel As Integer)
If IsNull(Me.Nome) Then
MsgBox "Campo obrigatório", vbOKOnly, "Falta campo"
Me.Nome.SetFocus
End If
End Sub

Ai fiz uma "gambiarra" e funcionou, mas acho que não deve ser o jeito certo, veja:

Private Sub Nome_Exit(Cancel As Integer)
If IsNull(Me.Nome) Then
MsgBox "Campo obrigatório", vbOKOnly, "Falta campo"
Me.end.SetFocus
Me.Nome.SetFocus
End If
End Sub

O que não funciou, qual erro apareceu?
Pode ao invés de jogar o foco para o campo Nome, jogar para outro e depois para o campo nome...
Mas se assim funcionou, blz...

Na realidade não deu erro. Funcionou.
Só que foco não vai para o campo nome.
Mas ai fiz como você falou. Mandei o foco para o campo end e depois para o nome, e ai funciona perfeitamente. Só que imaginei que este não fosse o tratamento correto, ou seja, o ressultado final é correto e satisfatório, mas minha dúvida foi quanto ao meio utilizado.

Uma coisa é certo, funcionou, então está resolvido. Não acho que seja uma "ganbiarra"...
Agora só faltou voce clicar no clicar no Resolvido...
Forte abraço

Obrigado
Marcelo
To clicando no resolvido

Você foi 10!
Abraços
Obrigado

Podes utilizar assim tambem:

Private Sub teste_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If IsNull(teste) = True Or Me.teste = "" Then
MsgBox "Campo obrigatório", vbOKOnly, "Falta campo"
Me.teste.BackColor = vbRed
Me.teste.SetFocus
End If
End If
End Sub

Olá
Harysohn

Achei muito interessante!
Mas desta forma não funcionou.
Se dou enter com o campo vazio, abre a caixa de mensagem e destaca em vermelho o campo , mas o foco fica no campo , ele não volta pro campo .
Se dou enter com o campo preenchido ele também abre a caixa de mensagem e da tratamento como se o campo estivesse vazio.

Independente do resultado, fico grato por sua atenção.

Abraços