Lost Focus Problem (1 Viewer)

[Sheila.deJesus]

Good day!

I used this code on the lost focus event. There's a problem with it. Could someone please assist me...


Private Sub Deduct_LostFocus()

If Deduct.Value < 2000 And Classification.Value = Passenger_Car Then
Deductible.Value = 2000
Else
Deductible.Value = [Coverage] * 0.005
End If

If Deduct.Value < 3000 And Classification.Value = Commercial_Vehicle Then
Deductible.Value = 3000
Else
Deductible.Value = [Coverage] * 0.005
End If

End Sub


Thank you!

Sheila

 

[Bat17]

There's a problem with it

any particular problem?

 

[Bat17]

I guess that it is because you second if will over write your first one, try

If Deduct.Value < 2000 And Classification.Value = Passenger_Car Then
    Deductible.Value = 2000
ElseIf Deduct.Value < 3000 And Classification.Value = Commercial_Vehicle Then
    Deductible.Value = 3000
Else
    Deductible.Value = [Coverage] * 0.005
End If

this would probably be better in the afterupdate event of deduct rather than lostfocus

HTH

Peter

 

[Sheila.deJesus]

Thanks Peter! I'll give it a try!

Sheila

 

[Sheila.deJesus]

Hi Peter!

I did exactly what you suggested, but it has no effect on the Deductible field. Any more ideas?

Thank you!

Sheila

 

[Bat17]

probably needs quotes, I missed that

If Deduct.Value < 2000 And Classification.Value = "Passenger_Car" Then
    Deductible.Value = 2000
ElseIf Deduct.Value < 3000 And Classification.Value = "Commercial_Vehicle" Then
    Deductible.Value = 3000
Else
    Deductible.Value = [Coverage] * 0.005
End If

Peter

 

[Sheila.deJesus]

Hi Peter!

It works! Can't thank you enough!!!


Sheila