I have a form.

It has serveral text boxes for user data entry.

I could of course write code to check if each is empty before proceeding to
save this data to a file.

Is there any global way to control if any of these text boxes is empty or
are we really forced to do it on a one by one basis doing If....End is so
many times?

Thanks,
Adam

This is from an XL VBA project I once did:

Class:

Public WithEvents TxtBx As MSForms.TextBox





Private Sub TxtBx_Change()
' -----------------------------------------------------------------------------
' This is the Class Module that is assigned to each textbox on the
' userform. It will trigger when each textbox is changed and as long
' as certain logic is True.
' -----------------------------------------------------------------------------
If Not Application.EnableEvents Or ClassTriggerEnabled = False Then Exit Sub

    ' We need to lock the Close Date textbox if there is no value present
    ' to stop the user from creating a new one. A Close Date can only be
    ' entered via a Follow-Up.
'    If TxtBx.Name = "tbDateClosed" And ClntType = "Edit" Then
'        ' If the textbox is blank and the data on the "Data" worksheet is
not,
'        ' then the user has blanked the textbox himself, presumably to
enter
'        ' a new Close Date, thus we will not lock the textbox.
'        If TxtBx.Value = "" And
Worksheets("Data").Range("dDateClosed").Offset(frmDataEntry.sbFU.Value +
1).Value = "" Then
'            TxtBx.Locked = True
'            TxtBx.BackStyle = fmBackStyleTransparent
'        Else
'            TxtBx.Locked = False
'            TxtBx.BackStyle = fmBackStyleOpaque
'        End If
'    End If

'    If Mode = 1 Then Debug.Print "The control '" & TxtBx.Name & "' is being
changed."
    ' Extract the "format" property from the Tag property
    ' of the textbox control.
    varTag = CheckTag(CtrlTag:=TxtBx.Tag, Fld:="Fmt")
'    If Mode = 1 Then Debug.Print "           Type => " & varTag
    ' Stop the routine from re-triggering when it changes
    ' a textbox's value.
    Application.EnableEvents = False
    ' Format the textbox according to its designated format.
    Select Case varTag
    Case "Curr"
        TxtBx = Format(TxtBx.Value, "Currency")
    Case "Dt"
        TxtBx = Format(TxtBx.Value, "mm/dd/yyyy")
    Case "Ph"
        TxtBx = Format(TxtBx.Value, "(###) ###-####")
    Case "Num"
        TxtBx = Format(TxtBx.Value, "#")
    End Select
    ' Re-enable events.
    Application.EnableEvents = True
End Sub


Then in your main code:

Main:

Dim Coll As Collection
Dim Tbx As CTxtBx

.....
.....

'
' -----------------------------------------------------------------------------
' This routine "groups" all textboxes into one collection
' so that one custom Class Module procedure can be used
' to format each textbox according to its format.
' -----------------------------------------------------------------------------
'
Sub SetupClassEventTxtBox()
Dim Ctrl As MSForms.Control

If ClntType = "ViewOnly" Then
    cmbOK.Enabled = False
End If
Set Coll = New Collection
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.TextBox Then
        Set Tbx = New CTxtBx
        Set Tbx.TxtBx = Ctrl
        Coll.Add Tbx
    End If
Next Ctrl
End Sub

This at least should get you going. As you can see, the class checks the tag
of the textbox to determine it's data format and the Select....Case then
formats the data accordingly. Hope this helps.

Show quoteHide quote

\\\
Private Sub TextBox_Validating( _
    ByVal sender As Object, _
    ByVal e As CancelEventArgs _
) Handles TextBox1.Validating, TextBox2.Validating, ...
    Dim SourceControl As TextBox = DirectCast(sender, TextBox)
    If SourceControl.Text.Length = 0 Then
        Me.ErrorProvider1.SetError( _
            SourceControl, _
            "Value must be at least one character long." _
        )
    Else
        If Me.ErrorProvider1.GetError(SourceControl).Length > 0 Then
            Me.ErrorProvider1.SetError(SourceControl, "")
        End If
    End If
End Sub
///

How to extract multiple occurrences of a substring
Best Practices
Replacement code for Threading.Thread.Sleep
VB2005 Control Arrays
Enumerating MDIList Menu Item at Run-Time
Regex.Replace
SQL Server reporting services...
Wait while processing dialog boxes (threading?)
COM usage problem?
Publishing with ClickOnce