ExcelTonnie
Gebruiker
- Lid geworden
- 5 jul 2016
- Berichten
- 276
Ik heb een userform met Tekstboxen, ComboBox en ook Optionbuttons.
Deze moeten allen verplichte invoer of keuzes worden.
Het grootste gedeelte lukt goed door dit forum echter zit ik er nog mee hoe ik dit kan instellen voor de OptionButtons.
Onderstaand zoals het er nu uit ziet en goed werkt, uitgezonderd voor de OptionButtons.
Geprobeerd heb ik het volgende maar werkt niet.
Deze moeten allen verplichte invoer of keuzes worden.
Het grootste gedeelte lukt goed door dit forum echter zit ik er nog mee hoe ik dit kan instellen voor de OptionButtons.
Onderstaand zoals het er nu uit ziet en goed werkt, uitgezonderd voor de OptionButtons.
Code:
'Controle of alle velden zijn ingevoerd
Dim ctl_Cont As Control
For Each ctl_Cont In Me.Controls
If TypeName(ctl_Cont) = "TextBox" Or TypeName(ctl_Cont) = "ComboBox" Then
If ctl_Cont.Value = "" Then
MsgBox "De " & TypeName(ctl_Cont) & Space(1) & ctl_Cont.Name & " is niet ingevuld!"
End If
End If
Next
Geprobeerd heb ik het volgende maar werkt niet.
Code:
'Controle of alle velden zijn ingevoerd
Dim ctl_Cont As Control
For Each ctl_Cont In Me.Controls
If TypeName(ctl_Cont) = "TextBox" Or TypeName(ctl_Cont) = "ComboBox" Or TypeName(ctl_Cont) = "Option" Then
If ctl_Cont.Value = "" Then
MsgBox "De " & TypeName(ctl_Cont) & Space(1) & ctl_Cont.Name & " is niet ingevuld!"
End If
End If
Next