Private Sub OBS_LostFocus()
Dim x, y, z As Long
x = [OBS]
y = Me.Texto137
w = Me.Texto140
z = y - x
If z <= w Then
MsgBox "Atenção Viatura proxima de Km de Revisão"
Else
If y > x Then
Me.Texto26.SetFocus
End If
End If
End Sub
A primeira parte funciona
Dim x, y, z As Long
x = [OBS]
y = Me.Texto137
w = Me.Texto140
z = y - x
If z <= w Then
MsgBox "Atenção Viatura proxima de Km de Revisão"
X= Km abastecimento (ex. 7000)
Y= Km proxima revisão (ex. 10000)
W= Km para aviso (ex. 2000) avisar 2000 antes dos 10000
Z = Subetração de y-x
A segunda ja não funciona pois passados os tais Km da revisão continua a avisar
Else
If y > x Then
Me.Texto26.SetFocus
End If
End If
Onde errei???
Dim x, y, z As Long
x = [OBS]
y = Me.Texto137
w = Me.Texto140
z = y - x
If z <= w Then
MsgBox "Atenção Viatura proxima de Km de Revisão"
Else
If y > x Then
Me.Texto26.SetFocus
End If
End If
End Sub
A primeira parte funciona
Dim x, y, z As Long
x = [OBS]
y = Me.Texto137
w = Me.Texto140
z = y - x
If z <= w Then
MsgBox "Atenção Viatura proxima de Km de Revisão"
X= Km abastecimento (ex. 7000)
Y= Km proxima revisão (ex. 10000)
W= Km para aviso (ex. 2000) avisar 2000 antes dos 10000
Z = Subetração de y-x
A segunda ja não funciona pois passados os tais Km da revisão continua a avisar
Else
If y > x Then
Me.Texto26.SetFocus
End If
End If
Onde errei???