Page tree

Welcome to FreeSoftwareServers Confluence Wiki

Skip to end of metadata
Go to start of metadata

Public Sub AllFieldsFilledInUserFormCheck()
 Dim c As control
 For Each c In Me.Controls
  If TypeName(c) = "TextBox" Or TypeName(c) = "ComboBox" Then
   If c.Value = "" Then
    MsgBox "All Field must be Filled Out"
    Exit Sub
   End If
  End If
 Next c
End Sub
  • No labels