Olá!
Este evento está acionando somente o VerificaSaida2 e ignorando a função IF:
Private Sub Form_AfterInsert()
VerificaSaida2
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
Valor_entrada.SetFocus
End If
End If
End Sub
Por que isto está ocorrendo?
Agradeço desde já!
Este evento está acionando somente o VerificaSaida2 e ignorando a função IF:
Private Sub Form_AfterInsert()
VerificaSaida2
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
Valor_entrada.SetFocus
End If
End If
End Sub
Por que isto está ocorrendo?
Agradeço desde já!