[Resolvido]Não pode deixar sair até que resolva...

Colegas, este procedimento não me contempla, pois o usuário só pode conseguir sair do campo Valor_entrada quando digitar o valor correto e atender a esta exigência: Valor_entrada.Value tem que ser igual a [Saldo Rifa Volta].Value * -3
O usuário com o mouse ou tab depois da MSG consegue sair do campo!
O que falta?

Private Sub Valor_entrada_AfterUpdate()
If Valor_entrada.Value > 0 Then
If Valor_entrada.Value <> [Saldo Rifa Volta].Value * -3 Then
MsgBox "Valor em reais não confere com o que foi devolvido de rifas. Corrija, por favor!", vbInformation, "Atenção"
Valor_entrada.Value = 0
Me.N_Volta2.SetFocus
Me.Valor_entrada.SetFocus
End If
End If
End Sub

Agradeço desde já!!

Colcoque a condição no evento ao sair do campo, se a condição não for satisfatória envie o foco para o mesmo campo novamente.


Cumprimentos.

Ao sair não funcionou, enviar o foco para o mesmo campo é com o setfocus? Se for também não funcionou!
Porque este procedimento abaixo tem funciona exatamente como eu preciso? Sem permitir a saída até que o usuário corrija ou dê cancel!

Private Sub N_Saida1_BeforeUpdate(Cancel As Integer)
On Error Resume Next
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim parametro As String
Dim dt As Date
Dim intretval As Integer

dt = Date

parametro = Me.N_Saida1

Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM movimentacao WHERE n_saida1=" & parametro)

If rs.RecordCount > 0 Then
If Year(dt) = Year(Data) Then
If CodReceita2.Column(0) = Forms!FrmRifasAA!Lista15.Column(0) Then
intretval = MsgBox("Este código já existe!", vbOKCancel + vbQuestion + vbDefaultButton2, "Atenção")
Select Case intretval
Case vbCancel
SendKeys "{esc}"
Cancel = True
Case vbOK
Cancel = True
End Select
End If
End If
End If
rs.Close
db.Close
End Sub

Fiz um teste no exemplo que te enviei, para o campo funcionário:


If Me.Funcionario <> "João da Silva" Then
Cancel = True
End If

Deu certo... se alterar o nome.. ele não sai do campo.


Cumprimentos.

Tente no evento ao sair:

If Valor_entrada.Value > 0 Then
If Valor_entrada.Value <> [Saldo Rifa Volta].Value * -3 Then
MsgBox "Valor em reais não confere com o que foi devolvido de rifas. Corrija, por favor!", vbInformation, "Atenção"
Valor_entrada.Value = 0
Cancel = True
End If
End If