Validation de formulaire pour vérifier vide contrôles, à l'aide de boucles

Après que l'utilisateur a terminé la saisie des données. Lorsque l'utilisateur clique sur le bouton Soumettre. Je vais vérifier si toutes les zone de texte n'est pas vide.
L'utilisateur devra saisir un numéro de membre, si l'utilisateur entre 1 membre je vais vérifier si member01 est vide, si l'utilisateur entre 3 membre je vais vérifier si member01, member02, member03 est vide
Il travaille pour le Si d'Autre mais je voudrais le faire pour la boucle, comme il est fastidieux pour moi de le faire 10 fois. Je ne sais pas comment la changer de Si d'Autre Pour la Boucle.

 ‘Using If Else
If txtNoMember.Value = "" Then
MsgBox "Please enter the Number of Member.", vbExclamation, "Input Data"
txtNoMember.SetFocus
Exit Sub
End If
If txtNoMember.Value = 1 And txtMember01.Value = "" Then
MsgBox "Member cannot be empty.", vbExclamation, "Input Data"
Exit Sub
End If
If txtNoMember.Value = 2 And txtMember01.Value = "" And txtMember02.Value = "" Then
MsgBox "Member(s) cannot be empty.", vbExclamation, "Input Data"
Exit Sub
ElseIf txtNoMember.Value = 2 And txtMember01.Value = "" Then
MsgBox "Member(s) cannot be empty.", vbExclamation, "Input Data"
Exit Sub
ElseIf txtNoMember.Value = 2 And txtMember02.Value = "" Then
MsgBox "Member(s) cannot be empty.", vbExclamation, "Input Data"
Exit Sub
End If
If txtNoMember.Value = 3 And txtMember01.Value = "" Then
MsgBox "Member(s) cannot be empty.", vbExclamation, "Input Data"
Exit Sub
ElseIf txtNoMember.Value = 3 And txtMember02.Value = "" Then
MsgBox "Member(s) cannot be empty.", vbExclamation, "Input Data"
Exit Sub
ElseIf txtNoMember.Value = 3 And txtMember03.Value = "" Then
MsgBox "Member(s) cannot be empty.", vbExclamation, "Input Data"
Exit Sub
MsgBox "Member(s) cannot be empty.", vbExclamation, "Input Data"
Exit Sub
End If
‘Using Loop
Dim Ctrl As Control
Dim CtrlNum As Long
For Each Ctrl In Me.Controls
If Ctrl.Name Like "txtMember##" Then
CtrlNum = CLng(Right$(Ctrl.Name, 2))
If CtrlNum.Value = "" Then
MsgBox "Member(s) cannot be empty.", vbExclamation, "Input Data"
End If
End If
Next
InformationsquelleAutor Gervina | 2013-12-04