[Resolvido]COMPARAÇÃO DE 02 CAMPOS

Olá amigos, sou novato no forum, e também em Acces.
Minha dúvida é o seguinte:

Antes de atualizar o Form:

"Se A = "A" e B for vázio, retornar para B para preencher o campo.

no momento fiz o seguinte:

Private Sub Form_BeforeUpdate(Cancel As Integer)

If Me.A = "A" & B <> "" Then
MsgBox "O campo B não pode ser vázio .", vbInformation, "Alerta!"
Me.B.SetFocus
Else
End If

Ola seja bem vindo ao fórum;

Funfa mas no evento VBA ao saír do campo 'B'

Private Sub B_Exit(Cancel As Integer)
If Me.A = "A" And IsNull(B) Then
MsgBox "O campo B não pode ser vazio .", vbCritical, "Alerta!"
DoCmd.CancelEvent
Me.B.SetFocus
Else
Exit Sub
End If
End Sub

Olá JPaulo obrigado pela saudação, saiba que é um imenso prazer ser aceito por este "Clube" de "accissistas".
No mais...
Obrigado pela atenção.
Sua resposta funcionou perfeitamente.
Adaptei para o "antes do atualizar do formulário" e funfou.
PORÉM quando abro o registro para edição ele permite "editar" com campo B = vazio.

Como resolvo?

Coloque no evento VBA ao alterar do Campo 'A'

Private Sub A_Change()
If Me.A = "A" And IsNull(B) Then
MsgBox "O campo B não pode ser vazio .", vbCritical, "Alerta!"
DoCmd.CancelEvent
Me.B.SetFocus
Else
Exit Sub
End If
End Sub

Olá JPaulo.

No modo de novo registro esta OK!

Porém, abrindo o resgistro depois eu consigo alterar e colocar 'A= "A" e B = ""

é o que não quero!


como posso resolver isto?

teste assim;


Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.A.Value <> Me.A.OldValue And IsNull(B) Or Me.A = "A" And IsNull(B) Then
MsgBox "O campo B não pode ser vazio .", vbCritical, "Alerta!"
Me.Undo
DoCmd.CancelEvent
Me.B.SetFocus
Else
Exit Sub
End If
End Sub

olá JPaulo,

não funfou.

Coloque aqui o seu banco ou parte dele para analise e resolução.

Olá JPaulo,
posto aqui minhas desculpas por não ter informado em tempo hábil que a sua ultima instrução resolveu a questão.

Muito Obrigado.

Abraços...........

Obrigado pelo retorno, amigo.