How to verify integer or no-integer input 2

[Axoliien]

I am needing a way to verify that some text boxes, eg: txtNames and other textboxes, eg: txtNumbers are formatted correctly. I need to ensure txtNames only has character values but no integers, and txtNumbers has only integer values (without a decimal) and no characters. I have looked far and wide and can't come up with anything. Any help please?

 

[psemianonymous]

There are levels to this:

1. The InputMask property may do what you need, for very simple things. It will give the user an error if they don't follow the input mask. By far the simplest, but also less powerful.

2. Each control has a BeforeUpdate() event, in which you can "validate" the data entered before the user is allowed to even leave the control. So if they type "a few thou" under "Billed Amount: $", then you can pop up an error messagebox and Cancel the update, forcing them to enter valid data.

 

[Axoliien]

Aye, I normally do a lot of error checking and verification with data, however I have never taken it to another level and verified the data is actually only integer values or only text values. I am talking about doing the error checking at the time the user commands to run the insert statement. Right now it verifies that required fields have values and that those values are not empty strings, and that dates are valid by entering through a calendar function, however I have no idea where to start with checking for integer values.

 

[psemianonymous]

Do a
IsNumeric(Nz(txtSomeNumber.Value, "non-numeric&quot) = True

and there is also an IsDate, and there is also a Val() function which will return a number if there is any sort of number in the string, so you can do:

Val(Nz(txtSomeNonNumeric.Value, "0&quot) = False

which means "make sure we DON'T find any numbers in that textbox"


And there are probably still other ways.

--
Find common answers using Google Groups:

http://groups.google.com/groups?group=comp.databases.ms-access

Corrupt MDBs FAQ

http://www.granite.ab.ca/access/corruptmdbs.htm

 

[JeffTullin]

How about:

Check for integer:

If format(int(val(txtNumbers ))) = txtNumbers then
'it was indeed an integer
else
'there are other characters in there
endif

Check for Alpha:

If IsAlpha(txtNames) then...

where IsAplha is a function that looks at each character in turn, and returns FALSE if it locates a number?
(Maskededit sounds better to me, though...)

 

[danvlas]

Integer thing:

If Int(Expression) = Expression Then
'it's an integer
Else
'it is not an Integer
End If


HTH





Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html