Hallo forumleden
wie kan mij helpen met deze verandering
hoe zet ik deze om zodat als gemaaktA gelijk is aan carA 1 komt te staan
bvd ronnie
wie kan mij helpen met deze verandering
Code:
Private Sub gemaaktA_AfterUpdate()
On Error GoTo Err_Knop69_Click
If Me.Dirty Then Me.Dirty = False
A = Int(gemaaktA) / carA * 10
A = Int(A)
Exit_Knop69_Click:
Exit Sub
Err_Knop69_Click:
MsgBox Err.Description
Resume Exit_Knop69_Click
End Sub
bvd ronnie