[Resolvido]Campo Obrigatório - Avança

Olá

Estou com um problema, caros amigos preciso de uma ajuda vossa. Obrigado

Estou a utilizar o seguinte código:

Código:

Private Sub Data_LostFocus()
If IsNull(Data) Or Data.Value = "" Then
  MsgBox "É necessário preencher a DATA", vbCritical
  Cancel = True
  Me.Data.SetFocus
End If
End Sub

Só que dou OK ao aviso e este passa para o campo seguinte em vez de parar/ ficar no campo Data.

Obrigado.

Olá AnabelaSousa

O access possui este bug.

Tente mover o foco pra um campo, e depois pro campo que você deseja, por exemplo:

Código:



Private Sub Data_LostFocus()
If IsNull(Data) Or Data.Value = "" Then
   MsgBox "É necessário preencher a DATA", vbCritical
   Cancel = True
   Me.CampoQualquer.SetFocus
   Me.Data.SetFocus
End If
End Sub



Olá

Cristian amigo, muito obrigado. resolveu o meu galho Obrigado.
Não sabia que o Access tinha este problema. Obrigado
Sempre a aprender neste fórum.
Obrigado e um beijinho.