/ Snippet Library - View Code

Snippet details

ID: 192

Viewed: 1372

Added: 2002-04-29

Version:

Snippets in this catagory
Show Printable Version

Check for valid input in text box

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: unknown

Snippet By:	unknown
Declarations
Highlight All'Put this subroutine in BAS module Public Function ValidChar(InSearch As String, InCriteria As String) As Boolean 'Purpose: Check for valid input 'Input: String from text box, Criteria string 'Output: True or False Dim SearchCtr As Integer Dim SearchLen As Integer SearchLen = Len(Trim(InSearch)) ' if nothing to search for, leave and say its okay If (SearchLen = 0) Then ValidChar = True Exit Function End If ' test each character For SearchCtr = 1 To SearchLen If InStr(1, InCriteria, Mid(InSearch, SearchCtr, 1), 1) = 0 Then ' it fails, exit now ValidChar = False Exit Function End If Next ValidChar = True End Function
Code
Highlight All'Put this code in text box If Len(txtText) > 0 Then 'Exit if other than numeric data entered If ValidChar(txtText.Text, "0123456789") = False Then MsgBox "Please enter whole numbers only" + vbCrLf + "No leading spaces allowed", vbExclamation + vbOKOnly, "Validation Error" txtText.SetFocus Exit Sub End If End If

No Reviews to show