Discussion :

[spacesheep]

Bonjour les developpezien(ne)s,

je voudrais ouvrir un état selon le choix faite dans la zone de liste déroulante
voici ma syntaxe qui ne fonctionne pas

Code :

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

1
2
If Me.zl_materiel.Column(1) = "CLEF 3G" Then
DoCmd.OpenReport "etat_frm_pret_3g", AcView.acViewPreview

Pourquoi cela ne fonctionne pas?

Merci de votre aide

[Dolphy35]

Bonjour,

Code :

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

DoCmd.OpenReport "etat_frm_pret_3g", acViewPreview

acView est le nom de la constante.

Dolphy

[spacesheep]

Merci Dolphy35

Ma syntaxe toute seul fonctionne bien aussi

Code :

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

DoCmd.OpenReport "etat_frm_pret_3g", AcView.acViewPreview

mais je voudrai selon le choix de ma zone de texte déroulante qu'il ouvre l'état on question
exemple:
si je choisi clef 3g qu'il m'ouvre l'état etat_clef_3g
si je choisi clef us qu'il m'ouvre l'état etat_clef_usb ...

Comment faire dans ce cas là?

[Dolphy35]

Salut,

Très bien, le premier post n'était pas clair

ta zone de liste renvoie bien la bonne valeur.

test le retour de ta liste par

Code :

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

Debug.Print Me.zl_materiel.Column(1)

ou

Code :

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

MsgBox Me.zl_materiel.Column(1)

ensuite si tu fais un test :

Code :

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

1
2
3
4
5
If Me.zl_materiel.Column(1) = "CLEF 3G" Then
    DoCmd.OpenReport "etat_frm_pret_3g", acViewPreview
ElseIf Me.zl_materiel.Column(1) = "CLEF US" Then
    DoCmd.OpenReport "etat_clef_usb", acViewPreview
End If

ou avec un select

Code :

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

1
2
3
4
5
6
Select Case Me.zl_materiel.Column(1)
    Case "CLEF 3G"
        DoCmd.OpenReport "etat_frm_pret_3g", acViewPreview
    Case "CLEF US"
        DoCmd.OpenReport "etat_clef_usb", acViewPreview
End Select

Dolphy

[spacesheep]

Merci Dolphy35

Pour voir que c'était la bonne valeur j'avais créer une zone de texte
avec une syntaxe

Code :

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

Me.txt_materiel.Value = Me.zl_materiel.Column(1)

et j'avais bien "CLEF 3G" comme valeur

Je vais tester test codes de ce pas.

[spacesheep]

ça marche nickel chrome

merci Dolphy35

je viens de voir mon erreur j'avais oublié tout bêtement End If ...

pour mon choix j'ai choisi avec select je le trouve plus claire est moins barbare

[Dolphy35]

ça marche nickel chrome

merci Dolphy35

je viens de voir mon erreur j'avais oublié tout bêtement End If ...

pour mon choix j'ai choisi avec select je le trouve plus claire est moins barbare

Tu ne compile pas ton code ?
Menu Débogage -> Compiler xxx.
Lorsque tu compile VBE t'indique si il y a des erreurs

Dolphy

[spacesheep]

Je suis vrai un novice sur access et de ce qu'il y a autour. j'apprends pas mal grâce au site ^^
Et je ne te cache pas que je n'ai pas tout les réflexes en tout cas je le saurais pour la prochaine fois

encore merci

[Dolphy35]

Je suis vrai un novice sur access et de ce qu'il y a autour. j'apprends pas mal grâce au site ^^
Et je ne te cache pas que je n'ai pas tout les réflexes en tout cas je le saurais pour la prochaine fois

encore merci

pas de soucis, je compile systématiquement lorsque je fais des modifs de VBA, cela permet des petites erreurs.

Dolphy