Bonjour ,
Dans mon formulaire j'ai créé un bouton "aperçu", le code qui s'exécute dès que 'lon clique dessus est le suivant:
txtchoix =Formulaires!mon_form!lst_choix
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 Dim filtre As String filtre = "RECEPTDATE between #" & Format(Me.dte_debut, "mm/dd/yyyy") & "# and #" & Format(Me.dte_fin, "mm/dd/yyyy") & "#" Select Case Report_mon_apercu.txtchoix Case "Jeux" filtre = filtre & " AND ID_CAT = 'JEU'" Case "Aventure" filtre = filtre & " AND ID_CAT = 'AVE'" Case "Sports" filtre = filtre & " AND ID_CAT = 'SPO'" End Select DoCmd.OpenReport "mon_apercu", acViewPreview, , filtre, acWindowNormal Exit_cmd_apercu_Click: Exit Sub Err_cmd_apercu_Click: MsgBox Err.Description Resume Exit_cmd_apercu_Click
Et là gros message d'erreur m'indiquant "Expression sans paramètre", je ne vois pas mon erreur. Quelqu'un pourrait-il m'aider?
Partager