Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check contents of text box
A data entry form includes a simple check to determine if a entry was made in the text box txtFILE. If nothing was entered, then the cursor is returned to the text box and a message displayed. The code appears below. If Trim(Me.txtFILE.Value) = "" Then Me.txtFILE.SetFocus MsgBox "Please enter a FILE" Exit Sub End If I'd like to also check that an entry to text box txtFILE is exactly 7 characters long and the first three characters are letters (e.g. ABC, FGH, et. ) and the last four characters are numbers (e.g. 1234, 4562, etc.) Alternatively, I'd like to check that txtFILE is exactly 9 characters long (including a decimal point) and the first three characters are letters (e.g. ABC, FGH, et.) and the last six characters are numbers with a single decimal (e.g. 1234.1, 4562.9, etc.) -- Message posted via http://www.officekb.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check contents of text box
CheckStr = Me.txtFILE.Value
If ((CheckStr = "") _ Or (CheckStr like "[A-Z][A-Z][A-Z]####") _ Or (CheckStr like "[A-Z][A-Z][A-Z]####.#")) _ Then Me.txtFILE.SetFocus MsgBox "Please enter a FILE" Exit Sub End If Note: you may want to ensure it is uppercase before the checks: Me.txtFILE.Value = UCase(Me.txtFILE.Value) -- - K Dales "vince c via OfficeKB.com" wrote: A data entry form includes a simple check to determine if a entry was made in the text box txtFILE. If nothing was entered, then the cursor is returned to the text box and a message displayed. The code appears below. If Trim(Me.txtFILE.Value) = "" Then Me.txtFILE.SetFocus MsgBox "Please enter a FILE" Exit Sub End If I'd like to also check that an entry to text box txtFILE is exactly 7 characters long and the first three characters are letters (e.g. ABC, FGH, et. ) and the last four characters are numbers (e.g. 1234, 4562, etc.) Alternatively, I'd like to check that txtFILE is exactly 9 characters long (including a decimal point) and the first three characters are letters (e.g. ABC, FGH, et.) and the last six characters are numbers with a single decimal (e.g. 1234.1, 4562.9, etc.) -- Message posted via http://www.officekb.com |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check contents of text box
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
vba to check cell contents | Excel Discussion (Misc queries) | |||
Using contents of a check box for an in statement | Excel Discussion (Misc queries) | |||
Fussy check of cell contents | Excel Discussion (Misc queries) | |||
IF statement to check cell contents | Excel Worksheet Functions | |||
Range Contents Check | Excel Programming |