Help with specific textbox entry...

  • Thread starter Thread starter SS
  • Start date Start date
S

SS

Hi,
I have a textbox called txtStartLotNumber on a form called
frmLotNumber.

That's all that's on the form, along with an OK and Cancel button.

When user enters into textbox, and clicks OK, in need to verify the
entry, before the rest of the code in the OK button executes.

The entry has to be:
- A six digit number
OR
-A five digit number, preceeded by an 'M', or an 'S', or a 'R'

If those conditions are met, the sub continues, If not, a message
indicating an 'Invalid Entry' displays, then cycles back (a loop?) to
the frmLotNumber to reenter a valid lot number.


As usual, Thanks for any help!
-Steve
 
The entry has to be:
- A six digit number
OR
-A five digit number, preceeded by an 'M', or an 'S', or a 'R'
Click to expand...

You can test the entry like this...

If Entry Like "[0-9MSR]#####" Then
' VALID entry
Else
' INVALID entry
End If

Note that the test is case sensitive; that is, it will validate on M, S or R
as the first character and fail if m, s or r is used instead. If you need
the test to be case insensitive, then change the If..Then statement to
this...

If Entry Like "[0-9MmSsRr]#####" Then

Rick Rothstein (MVP - Excel)
 
Hi,
I have a textbox called txtStartLotNumber on a form called
frmLotNumber.
Click to expand...
That's all that's on the form, along with an OK and Cancel button.
Click to expand...
When user enters into textbox, and clicks OK, in need to verify the
entry, before the rest of the code in the OK button executes.
Click to expand...
The entry has to be:
- A six digit number
OR
-A five digit number, preceeded by an 'M', or an 'S', or a 'R'
Click to expand...
If those conditions are met, the sub continues, If not, a message
indicating an 'Invalid Entry' displays, then cycles back (a loop?) to
the frmLotNumber to reenter a valid lot number.
Click to expand...
As usual, Thanks for any help!
-Steve
Click to expand...

frmLotNumber Like "[RMS0-9]#####"

will return TRUE or FALSE and you can incorporate this into your code to branch to whatever.

So something like:

Do Until frmLotNumber Like "[RMS0-9]#####"
        msgbox("Invalid Entry")
        'Redisplay text box
loop- Hide quoted text -

- Show quoted text -
Click to expand...

Thanks Gentlemen!!

I used this, and it works Beautifully!!

Do Until frmLotNumber.txtStartLotNumber Like "[RrMmSs0-9]#####"
MsgBox ("Invalid Entry")
txtStartLotNumber.SetFocus
Exit Sub
Loop
 
Back
Top