Microsoft Office Forums - View Single Post - [Solved] Loop through Multiple Boolean Variables

Guessed · 03-22-2019, 04:48 PM

There is no point having a separate validation macro if you are going to put all 8 cases there. You want the validate macro to be passed some variables so you can merge the processing

Code:

Private Sub txt1_AfterUpdate()
    Validate (Me.txt1, "Number")
End Sub

Sub Validate(aCtrl as control, sValidate as string)
  Select Case sValidate
    Case "Number"
      If Not IsNumeric(aCtrl.Text) Then
        MsgBox ("Must be a Number")
        aCtrl.SetFocus
      Else
        aCtrl.BackColor = vbWhite
      End If
    Case "Text"
    
  End Select
End Sub