Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Plz, Need Help 1
- Thread starter HNA
- Start date
-
1
- #2
Sure...
Create an event procedure in the Before Update event of the text box and add code that looks like this:
... where "txtMyText" is the name of your text box. You'll also want to set the format of your field to a number type and/or set an input mask or otherwise test for non-numeric data in the field so you don't get type mismatch errors.
Ken S.
Ken S.
Create an event procedure in the Before Update event of the text box and add code that looks like this:
Code:
Dim intRemainder As Integer
If Not IsNull(Me!txtMyText) Then
intRemainder = Me!txtMyText Mod 6
If intRemainder <> 0 Then
MsgBox "Invalid data. Value must be a multiple of 6."
DoCmd.CancelEvent
SendKeys "{ESC}"
End If
End If... where "txtMyText" is the name of your text box. You'll also want to set the format of your field to a number type and/or set an input mask or otherwise test for non-numeric data in the field so you don't get type mismatch errors.
Ken S.
Ken S.
- Thread starter
- #3
- Status
Similar threads
