Discussion :

[guymkl]

Bonjour!

J'ai un formulaire qui a 10 contrôles texbox qui doivent tous être saisis, aucun ne doit être vide.

Pour éviter autant de test (imbriqué) if qu'ii y a de contrôles, j'ai tenté ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim ctl As Access.Control

For Each ctl In Me.Controls
    If TypeOf ctl Is textbox and  ctl.value = ""  Then  
        MsgBox ("Tous les champs doivent être remplis")
    End If

Next ctl

Comment corriger?


Merci.

Je reçois un message d'erreur sur la ligne avec if :
erreur 438 propriété ou méthode non géré par cet objet

Comment corriger

[marot_r]

Ceci devrait être la solution.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim ctl As Access.Control
 
For Each ctl In Me.Controls
    If TypeOf ctl Is textbox then
 
         if ctl = "" or IsNull(ctl) or IsEmpty(ctl)  Then  
            MsgBox ("Tous les champs doivent être remplis")
         End If
 
    end if
Next ctl

Ton problème vient du fait que dans le TypeOf ctl Is textbox and ctl.value = "" il faut que Access teste les 2 conditions, c'est à dire si c'est un texte box et si sa valeuer est "" mais si ton contrôle n'est pas un TextBox alors il se peut qu'il n'ai pas de propriété Value ce qui génère l'erreur.

A+