Sayın zaferdemir37;
Aşağıdaki kodu bitişkm güncelleme sonrası koduna yazınız. Olay tamamdır.
Kolay Gelsin.

Private Sub Bitişkm_AfterUpdate()

If Me.Bitişkm < Me.Başlangıçkm Then

Me.Bitişkm.SetFocus

MsgBox "Bitiş Km Başlangıçtan Küçük Olamaz."

Exit Sub

End If

If Me.Bitişkm - Me.Başlangıçkm > 50 Then

Me.Yapilankm = (Me.Bitişkm - Me.Başlangıçkm) - 50

Else

Me.Yapilankm = (Me.Bitişkm - Me.Başlangıçkm)

End If

End Sub