Discussion :

[theBinette]

Bonjour,

J'ai fais un formulaire contenant une combo box qui permet en fonctionde la valeur selectionner de faire une requête sql pour créer un Etat sur l'évent On Click

Dans les propriétés du OpenReport, je ne comprend pas ce qu'il faut mettre dans le champs [Where Condition ]

Voici mon code :

Code :

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

1
2
3
4
5
6
 
    Dim var_grade As String
    var_grade = cbo_grade.Value
    sSQL = "SELECT tbl_consultant.nom_complet, tbl_event.Date_debut, tbl_event.Date_fin, tbl_ecole.Nom_complet_Ecole, tbl_grade.Nom_grade, tbl_grade.ID_grade FROM tbl_grade INNER JOIN ((tbl_ecole INNER JOIN tbl_event ON tbl_ecole.ID_ecole = tbl_event.ID_Ecole) INNER JOIN (tbl_consultant INNER JOIN tbl_participation_event ON tbl_consultant.ID_consultant = tbl_participation_event.ID_consultant) ON (tbl_event.ID_event = tbl_participation_event.ID_event) AND (tbl_event.ID_event = tbl_participation_event.ID_event)) ON tbl_grade.ID_grade = tbl_consultant.ID_grade WHERE ((([tbl_participation_event]![Reponse_mail])=-1) AND ((tbl_grade.ID_grade)='" & var_grade & "'));"
 
DoCmd.OpenReport report_test, acViewPreview, ,[whereCondition] 'la je sais pas quoi mettre comme condition

dans le champs Where Condition je ne sais vraiment pas quoi écrire
En général qd j'écris un truc ca me sort "Erreur 424 Onject Required"
Bref je suis complétement perdu

Merci de votre aide

ps: dsl la requete est super longue

[argyronet]

Bonjour,


La condition WHERE se traduit par ce que tu mets dans une clause WHERE d'une instruction SQL par exemple :

Code :

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

DoCmd.OpenReport report_test, acViewPreview, ,"[Pays] ='" & Me!cboPays & "';"

où cboPays représente la liste des pays.

dans ton cas, tu as une chaîne SQL dépendante d'une valeur d'une Combo donc tu dois créer dynamiquement la requête en conséquence et faire en sorte que ton état possède comme source cette requête.
Ensuite pas de condition WHERE à définir mais juste un :

Code :

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

DoCmd.OpenReport report_test, acViewPreview

Argy

[theBinette]

Merci Beaucoup je vais plancher la dessus