Bonsoir à tous,
J'ai un formulaire pour lequel je souhaiterai vérifier que certains champs soient bien renseignés avant de valider l'inscription.
J'ai trouvé sur le forum la solution suivante par Philippe JOCHMANS :
1 2 3 4 5 6 7 8 9 10 11 12
| Sub TestCtrl()
Dim Ctrl As control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is TextBox Then
If Ctrl.Value = "" Or IsNull(Ctrl.Value) Then
MsgBox "Toutes les cases doivent être renseignées", vbOKOnly + vbExclamation, "Sélection"
Ctrl.SetFocus
Exit Sub
End If
End If
Next Ctrl
End Sub |
Seulement moi je souhaite vérifier seulement une partie des Textbox j'ai donc pensé qu'il fallait mettre :
For Each Ctrl In Me.Controls!NomClient or Me.Controls!PrenomClient or Me.Controls![Date début] or Me.Controls![Date fin])
Mais Access n'aime pas du tout ma syntaxe. Je ne vois pas comment rédiger ma liste autrement alors si quelqu'un peut me venir en aide je lui serai reconnaissant.
Bonne soirée
Oliv'
Partager