Page tree

Welcome to FreeSoftwareServers Confluence Wiki

Skip to end of metadata
Go to start of metadata

https://stackoverflow.com/questions/48281859/check-if-all-comboboxes-are-not-empty

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