Ao inserir dados em um campo, os outros passaram a ter entrada obrigatório.

Amigos! Boa noite, estou novamente precisando de ajuda de vocês, é o seguinte; tenho vários campos chamados: logradouro , bairro, cidade e estado, todos estes campos não são entrada obrigatória, más se eu inserir dados no campo logradouro os demais passaram a ser de entrada obrigatória.
Fico na esperança de ajuda
Eloi

Se você usa um botão para fazer os registros, coloque assim:

If Not IsNull(Me.Logradouro) Then

If IsNull(Me.Bairro) Or Me.Bairro.Value = "" Or IsNull(Me.Cidade) Or Me.Cidade.Value = "" Or IsNull(Me.Estado) Or Me.Estado.Value = "" Then

MsgBox "Os campos Bairro, Cidade e Estado precisam ser preenchidos", VbKeyOnly, "Campos nulos"

End If

É simples; veja:

No campo logradouro, você não coloca nenhuma instrução VBA.

No campo bairro, você coloca no evento ao saír desse campo assim;

Private Sub bairro_Exit(Cancel As Integer)
If Not IsNull(Me.logradouro) Or Me.logradouro.Value <> "" Then
MsgBox "Este Campo não pode ficar em branco...", vbCritical
DoCmd.CancelEvent
Else
Exit Sub
End If
End Sub

Agora é sempre igual....


Private Sub cidade_Exit(Cancel As Integer)
If Not IsNull(Me.bairro) Or Me.bairro.Value <> "" Then
MsgBox "Este Campo não pode ficar em branco...", vbCritical
DoCmd.CancelEvent
Else
Exit Sub
End If
End Sub

Bom dia! JPaulo.

Ao ver o seu código sentir de imdiato que era a solução, mas na prático o mesmo não funcionou, mesmo o campo bairro estando preenchido, o mesmo solicita o seu preenchimento. o que posso fazer neste caso?

atenciosamente

Eloi

A instrução que lhe passei no inicio está correta, senão veja o que pediu...

1º Campo é logradouro

2º campo é bairro

No campo logradouro não coloca nenhuma instrução.

No campo bairro, evento vba ao saír você coloca;

Private Sub bairro_Exit(Cancel As Integer)
'se o campo logradouro estiver preenchido, obrigada a preencher o bairro, se estiver vazio, não obriga a preencher o bairro
If Not IsNull(Me.logradouro) Or Me.logradouro.Value <> "" Then
MsgBox "Este Campo não pode ficar em branco...", vbCritical
DoCmd.CancelEvent
Else
Exit Sub
End If
End Sub