Disallow Empty Fields for All TextBoxes on a Form

Category:

Forms and Controls

Type:

Modules

Difficulty:

Beginning

Author:

I.T.Raytchev

Version Compatibility: Visual Basic 6

More information:

Here is one simple way to validate a form to ensure no textboxes are empty. Follow the instructions in the comments.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' in Module Option Explicit Public FrmForCheck As Form ' this is to hold form Public TextBoxCheck As TextBox ' this will hold selected text box for validation Public IndexN As Integer ' this will hold index of label

Code:

' put this in Module
Function ValidateNoEmptyFields() As Boolean ' this will validate that there are not empty entries and will return true if no empty records are there
If TextBoxCheck.Text = "" Then MsgBox "Please enter " & Mid(FrmForCheck.Label1.Item(IndexN).Caption, 1, Len(FrmForCheck.Label1.Item(IndexN)) - 1), vbInformation, "Empty record": TextBoxCheck.SetFocus: ValidateNoEmptyFields = False
End Function

'create as many form as you wish
'create label control array Label1 in each form
' write label caption that will finish with ':' for instance Address:
' create equal number of inputs for instance text boxes
' to avoid writing msg box when user missed some text box just put this to validate for instance on click event
' function will return which text box left without input with label's caption and will set focus there

Set FrmForCheck = Me
' will check if there are empty entries
IndexN = 1' this is for label array # 1, for 4 you put 4 and s.o.
Set TextBoxCheck = Me.txtYourTextBox 'this is text box associated with this label 
If ValidateNoEmptyFields = False Then Exit Sub