Dont Want a Decimal Value in Field.

[Malik via AccessMonster.com]

Hi.
I want that if a user enters a Decimal Value in a field, the form or table
should not accept it and Run a MsgBox.

Thanks

 

[Linq Adams via AccessMonster.com]

Is this textbox bound to a Numeric field in the underlying table? If so, you
could define it as an Integer, and Access would simply lop off any decimals
the user added. If that doesn't work for you, you could check for the Decimal
Point:

Private Sub YourTextBox_BeforeUpdate(Cancel As Integer)
If InStr(Me.YourTextBox, ".") > 0 Then
MsgBox "Decimals Are Not Allowed!"
Cancel = True
Me.YourTextBox.SelStart = 0
Me.YourTextBox.SelLength = Len(Me.YourTextBox)
End If
End Sub

 

[malik via AccessMonster.com]

Is this textbox bound to a Numeric field in the underlying table? If so, you
could define it as an Integer, and Access would simply lop off any decimals
the user added. If that doesn't work for you, you could check for the Decimal
Point:

Private Sub YourTextBox_BeforeUpdate(Cancel As Integer)
If InStr(Me.YourTextBox, ".") > 0 Then
MsgBox "Decimals Are Not Allowed!"
Cancel = True

This is not working. It is not giving any error but not working as well.

Thanks

 

[Linq Adams via AccessMonster.com]

Let's see the exact code you've tried. Also, what datatype is the underlying
field for the textbox?

 

[Linq Adams via AccessMonster.com]

Also, what version of Access are you running?