Sub lblKMtellerInvoer_Click
LaatsteKM = Tabel.GetValue(2, Tabel.LastEntry)
inputNumber.Decimal = 0
inputNumber.Digits = 6
If lblKMtellerInvoer.Text = "" OR lblKMtellerInvoer.Text <= LaatsteKM Then
inputNumber.Number = LaatsteKM
Else
inputNumber.Number = lblKMtellerInvoer.Text
End If
inputNumber.Show("KM-teller","OK","Cancel","", Null)
If inputNumber.Response = OK Then
lblKMtellerInvoer.Text = inputNumber.Number
If inputNumber.Number <= LaatsteKM Then
Result = Msgbox2 ("KM <= Laatste invoer !", "", "OK","" ,"" , LoadBitmapSample(File.DirAssets, "aglogo.jpg",LogoBreedte , LogoHoogte))
lblKMtellerInvoer.Text = ""
End If
End If
End Sub