Discussion :

[poplite]

Bonjour.
je cherche a faire afficher un etat selon un critere de requete qu'une listbox renseigne. J'utilise donc une listbox pour le choix et le bouton pour ouvrir l'état.

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande16_Click()
If IsNull(Me.Cours) Then
MsgBox "Merci de remplir la case Cours", vbInformation + vbOKOnly
Else
    stDocName = "par Cours"
    DoCmd.OpenReport "Par Cours", acViewPreview, , "cours = " & "Cours"
End If
End Sub

et j'ai l'erreur 3464. Ca doit etre une erreur de ' ' ou de [] mais j'ai tout essayé rien ne passe...
Quelqu'un a une idée? merci !

[pgz]

Bonsoir,

Peut-être avec

Code :

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

DoCmd.OpenReport "Par Cours", acViewPreview, , "cours = """ & Me.Cours & """"

et

Code :

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

stDocName = "par Cours"

ne sert à rien.

Bon courage,

PGZ

[poplite]

Plus d'erreur, mais la requete me demande mon critère comme si je cliquais dessus dans le menu access..
je cherche, je cherche, mais si vous trouvez avant moi, dites le moi !

merci!

P.S. : et si j'enleve le critère que j'ai mis j'ai un #erreur par tout dans mon état... etrange.

[pgz]

Bonjour,

Il faut effecivement utiliser une requête sans condition sur le champ "cours".
Ouvrir l'état à la main pour s'assurer que tous les enregistrements sont présents.
Quand tout va bien, utiliser la commande d'ouverture avec la clause WHERE sur le champ "cours", comme avec la procédure actuelle.

Bon courage,

PGZ

[poplite]

Cad utiliser WHERE? Je mets ca dans les propriétés du champs, au niveau des données?
Merci de ton aide !

[pgz]

La "clause WHERE" est simplement le 4ème argument du DoCmd.OpenReport.
Il est très bien écrit comme ça, il n'y a rien à ajouter.

Je te conseille de reprendre les opérations dans l'ordre de mon précédent message et de vérifier à chaque étape que tout va bien.

A+

PGZ

[poplite]

J'ai enfin reussi a me debrouiller avec les listbox, reste le probleme du champ tout bete.
je voudrais juste rajouter comme un critère "comme *+ variable +*" pour comprendre les cases qui n'ont qu'une partie du mot

mais je n'y arrive pas.voici mon code.

Code :

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

1
2
3
symptvar = "*" & Forms!visuetat![Symptome] & "*'"
MsgBox "" & symptvar & "", vbInformation + vbOKOnly
DoCmd.OpenReport "Par symptome", acViewPreview, , "symptome='" & symptvar & "'"

Je sais pas si la méthode employée est bonne déja..

merci de votre aide !

[pgz]

Bonjour,

Tu peux essayer :

Code :

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

DoCmd.OpenReport "Par symptome", acViewPreview, , "symptome LIKE """ & symptvar & """"

Bon courage,

PGZ

[poplite]

Je suis désolé, j'ai toujours la meme erreur avec les #erreur partout dans mon état.. C'est étrange non?

merci !

A mon avis,après tests, tout marche sauf l'indication à access qu'il faut chercher le mot tel quel mais aussi comme une partie d'un mot..

[pgz]

Re,

Difficile de voir comme ça ce qui se passe. Il y a bien un champ "symptome" dans la source de l'état? Avec la même orthographe?
Si ta base n'est pas grosse ni confidentielle, tu peux la compacter et la joindre?

A+

PGZ

[poplite]

mp envoyé je pense qu'elle sera trop grosse pour le forum..