Exibir msgBox e não permitir avançar para próximo campo

Boa tarde senhores, tudo joia?
Preciso de uma ajudinha:
Tenho um Campo chamado [Troco] e gostaria que após atualizar, ele se comparasse a outro campo chamado [Conta Troco].

Se o valor do campo [Troco] for igual ao valor do campo [conta Troco] ele aceite ir para o próximo campo.

Mas se os valores fossem diferentes ele enviasse uma msgBox (“Valor de troco errado”), vbCritical..... e não permitisse ir para próximo campo enquanto este não se igualasse.

Coloquei desta forma mas ele permite passar para o próximo campo:

Private Sub Troco_AfterUpdate()
If Me.TROCO = Me.Conta_Troco = 0 Then
MsgBox ("Troco Errado"), vbCritical
End If
End Sub

Espero ter sido claro na explicação!!!

Boa tarde Alexandre;

Teste dessa forma:

Código:

Private Sub Troco_AfterUpdate()
If Me.TROCO = Me.Conta_Troco = 0 Then
MsgBox "Troco Errado", vbCritical
Me.Undo 'Limpa o campo
Cancel = True 'mantém o foco no campo
End If
End Sub

Opa Fernando,

Obrigado pela resposta mas ainda continua passando para o próximo campo.

Ainda não funfou...

Poderia postar partes do seu banco para vermos?

Fernando,

Segue imagem do BD onde o problema ocorre. Não fui autorizado postar o BD.

Veja que após o valor inserido no campo Troco ele valida se é igual ao campo Conta Troco (logo abaixo).

Pelo seu código a msgBox aparece mas ainda permite ir para o próximo campo Dinheiro.

Veja o que consegue por mim.

Obrigado!!!

Com a permissão dos senhores, um pitaco !

Aproveitando o código do Fernando:

Private Sub Troco_AfterUpdate()
If Me.TROCO = Me.Conta_Troco = 0 Then
MsgBox "Troco Errado", vbCritical
Me.Undo 'Limpa o campo
me.troco.setfocus ' acrescentei esse comando.
End If
End Sub

Não anexou a imagem mais tente assim.

Código:

Private Sub Troco_AfterUpdate()
If Me.TROCO = Me.Conta_Troco = 0 Then
MsgBox "Troco Errado", vbCritical
Me.Undo 'Limpa o campo
Me.TROCO.SetFocus
End If
End Sub

Grande Silvio;

Postamos juntos

Poxa vida,

Obrigado pela ajuda mas continua indo para o próximo campo após msgbox.

Grande Fernando...estamos ai !!!

Bom, vamos mexer um pouco no código....

Private Sub Troco_AfterUpdate()
If Me.TROCO = Me.Conta_Troco = 0 Then
Me.Undo 'Limpa o campo
Me.TROCO.SetFocus
MsgBox "Troco Errado", vbCritical
End If
End Sub


Mas, isso estamos fazendo com a nossa bola de Cristal de Microsoft...pois não estamos com a base de dados em mãos !
Pode haver outros fatores que estejam influenciando a ida do foco para outro campo.

Estou tentando anexar uma imagem print mas não carrega aqui no fórum

Boa tarde

Teste

Ponha o código no campo a seguir ao Troco, no acontecimento ao receber o foco


If Me.TROCO = Me.Conta_Troco = 0 Then
MsgBox "Troco Errado", vbCritical
Cancel = True 'cancela o evento.
Me.TROCO.SetFocus
Me.TROCO = ""
End If

Assis,

Funfou... (deu certo) mas se deixar o campo vazio ele aceita ir ao próximo campo mesmo na propriedade do campo [Troco] estando como "É Negado Nulo"

Teste assim


If IsNull(Me!troco) Or Me.TROCO = Me.Conta_Troco = 0 Then
MsgBox "Troco Errado", vbCritical
Cancel = True 'cancela o evento.
Me.TROCO.SetFocus
Me.TROCO = ""
End If

Assis,

Agora sim o evento correspondeu à necessidade...

Muito obrigado Assis, Silvio e Fernando Bueno pela ajuda e tempo destinado a solução do meu problema!!!

Obrigado pelo retorno Alexandre

Faltou o resolvido