[Resolvido] Campo obrigatório com critério

Bom dia pessoal,

Gostaria de receber uma ajuda a este meu problema, é o seguinte: tenho um campo numérico que não pode ficar em branco e ao mesmo tempo não pode ser inserido um numero igual a zero. Fiz várias busca neste forum e não encontrei nenhum tópico.
Fico à espera de ajuda.
Eloi

Coloque o seu formulario com Visualizar teclas = Sim, na aba Eventos.

No evento ao pressionar tecla no seu campo, coloque;

Private Sub SeuCampo_KeyPress(KeyAscii As Integer)
If (KeyAscii = vbKey0) Then
KeyAscii = 0
Else
Exit Sub
End If
End Sub

No evento ao saír desse mesmo campo, coloque;

Private Sub SeuCampo_Exit(Cancel As Integer)
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
If IsNull(ctl.Value) Then
MsgBox "Atenção o Campo '" & ctl.Name & "' não pode ficar em branco...", vbCritical
DoCmd.CancelEvent
ctl.SetFocus
Exit Sub
End If
End If
Next
End Sub

Olá! Gande JPaulo.

Fico muito grato pela sua ajuda, o primeiro evento atendeu legal a minha necessidade, fiz uma alteração no código acressentando uma MsgBox onde o mesmo ficou assim:
Private Sub DISTRITO_KeyPress(KeyAscii As Integer)
If (KeyAscii = vbKey0) Then
KeyAscii = 0
MsgBox " Insirar um valor maior que zero"
Else
Exit Sub
End If
End Sub
O segundo evento ficou um pouco a desejar, pois quando saio do campo ele solicita informações de outros campos que não são obrigatórios. nesse caso queria apenas que o código só atenda aquele campo.

Atenciosamente

Eloi

Vou dar minha dica:

If IsNull(seuCampo) Then
MsgBox "Atenção, campo obrigatório", vbCritical
DoCmd.CancelEvent
seuCampo.SetFocus
Exit Sub
End If

Private Sub SeuCampo_Exit(Cancel As Integer)
If IsNull(Me.txtResultado) Or Me.txtResultado.Value = "" Then
MsgBox "Atenção o Campo não pode ficar em branco...", vbCritical
DoCmd.CancelEvent
Else
Exit Sub
End If
End Sub

Ou...

Private Sub SeuCampo_Exit(Cancel As Integer)
If IsNull(Me.ActiveControl) Then
MsgBox "Atenção o Campo não pode ficar em branco...", vbCritical
DoCmd.CancelEvent
End If
End Sub

Boa noite! Criquio e JPaulo.

Agradeço a ajuda de voces em resolverem o meu problema,

Abraços

Eloi

Valeu, precisando, estamos por perto.