Discussion :

[dodo28]

Bonjour le forum,

Pouvez vous m'aider sur ce probléme?
J'ai une zone de liste deroulante et si il y a pas de selection d'effectuer j'aurai voulu un message d'alerte .
J'ai fait ceci mais ca ne marche pas

Code :

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

1
2
3
4
5
6
'verifié si il y a une selection
 
If IsNull(ug_list)  Then
MsgBox ("Attention! Vous n'avez fait aucune selection.")
Exit Sub
End If

Merci pour votre aide

[RobiPMS]

Bonjour.
Sur quel événement as-tu placé ce code? Il n'y a apparemment pas d'erreur dans le code, donc, qu'est-ce qui l'appelle?
Cordialement.

[dodo28]

Merci de vous intérréssé à mon probleme,

cette procedure est appelée par un clic sur bouton dans un formulaire se trouvant dans un onglet
voici mon code complet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Private Sub EtatDocTerrain_Click()
 
Dim pouretat1 As String
Dim valeur As String
Dim pouretat2 As String
Dim Sup As String
 
'verifié si il y a une selection
 
If IsNull(ug_list) And Ca_ToutEtat = False Then
MsgBox ("Attention! Vous n'avez fait aucune selection.")
Exit Sub
End If
 
'ferme l'etat
DoCmd.Close acReport, "Et_Doc_Terrain"
 
'si case a cocher ok
If Ca_ToutEtat = True Then
 
'faire sortir l'etat d impression des doc de terrain
 
Sup = MsgBox("vous n'avez pas sélectionné d'UG, dans ce cas l'ensemble des circuits de TOUTES les UG sera imprimé. Voulez vous continuer?", vbCritical + vbYesNo + 256, "Attention")
 
           If (Sup = 6) Then
            'si ok etat2
 
            pouretat2 = "SELECT table_codeika.UG_PRINCIPALE, table_codeika.Nom_Circuit, table_codeika.code_barre, table_codeika.Longueur, table_codeika.ordre_passage FROM table_codeika ;"            'previsualisation etat avec ug principale comme filtre
            DoCmd.OpenReport "et_doc_terrain", acViewPreview, "pourEtat2"
           End If
 
Else
'si case a cocher non ok
    valeur = ug_list.Value
    valeur1 = circuit_list.Value
 
     If circuit_list.Value = "" Then
 
     'si circuit non selectionné
 
     Sup = MsgBox("vous n'avez pas sélectionné de circuit, dans ce cas l'ensemble des circuits de l'UG " & valeur & " sera imprimé. Voulez vous continuer?", vbCritical + vbYesNo + 256, "Attention")
 
            If (Sup = 6) Then
            'si ok etat1
 
            pouretat1 = "SELECT table_codeika.UG_PRINCIPALE, table_codeika.Nom_Circuit, table_codeika.code_barre, table_codeika.Longueur, table_codeika.ordre_passage FROM table_codeika WHERE (((table_codeika.UG_PRINCIPALE)='" & valeur & "'));"
            'previsualisation etat avec ug principale comme filtre
            DoCmd.OpenReport "et_doc_terrain", acViewPreview, "pourEtat1", "UG_PRINCIPALE ='" & valeur & "'"
            End If
    Else
        'sinon
        pouretat1 = "SELECT table_codeika.UG_PRINCIPALE, table_codeika.Nom_Circuit, table_codeika.code_barre, table_codeika.Longueur, table_codeika.ordre_passage FROM table_codeika WHERE (((table_codeika.UG_PRINCIPALE)='" & valeur & "'));"
        'filtre sur le nom de l UG et nom de circuit
        DoCmd.OpenReport "et_doc_terrain", acViewPreview, "pourEtat1", "UG_PRINCIPALE ='" & valeur & "' and nom_circuit='" & valeur1 & "'"
        End If
 
 
End If
end sub

Merci

[RobiPMS]

Ok.
Je suppose que, par défaut, ug_liste est vide.
Pour sérier les problèmes, avez-vous isolé la procédure d'alerte

Code :

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

1
2
3
4
If IsNull(ug_list)  Then
MsgBox ("Attention! Vous n'avez fait aucune selection.")
Exit Sub
End If

afin de voir si c'est à son niveau que ça ne marche pas, ou s'il y a un problème avec la suite du code?
Personnellement, j'utilise dans plusieurs formulaires cette procédure, avec cette syntaxe, et je n'ai pas de souci.
RL

[dodo28]

J'ai trouvé.
Cela vient de la case à cocher. A l'ouverture de l'onglet la case à cocher est ni true ni false. Elle le devient aprés un premier usage (cochage et decochage). Je pense donc que la solution est d ajouter a l'ouverture du formulaire la ligne :

Code :

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

Ca_ToutEtat = False

Ou peut etre dans la propriété de la case a cocher.
Si vous avez une idée merci.
Et merci a RobiPMS

[RobiPMS]

En ce qui concerne la case à cocher, vous pouvez tout simplement, si c'est un contrôle indépendant, mettre sa valeur par défaut sur Faux (dans les propriétés en mode création).
Le code ne serait utile que si la valeur est conservée dans une table.
Bonne soirée!