Discussion :

[Spanish_]

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:

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

txtchoix =Formulaires!mon_form!lst_choix


Et là gros message d'erreur m'indiquant "Expression sans paramètre", je ne vois pas mon erreur. Quelqu'un pourrait-il m'aider?

[Spanish_]

Bonjour,

Personne n'a une idée sur l'origine du problème que me renvoit Access?

[LedZeppII]

Bonsoir,

Il y a un paramètre en trop dans l'ouverture de l'Etat.
Ne rien mettre après filtre.

J'ai un doute sur

Code vb :

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

Select Case Report_mon_apercu.txtchoix

A priori l'état "mon_apercu" n'est pas encore ouvert.
Ou alors txtchoix fait partie du formulaire (et non de l'état) ?

A+

[Spanish_]

Bonjour,

Merci LedZeppII pour ta réponse mais j'ai trouvé la soluce.

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
Dim filtre As String
Dim txtchoix as string
filtre = "RECEPTDATE between #" & Format(Me.dte_debut, "mm/dd/yyyy") & "# and #" & Format(Me.dte_fin, "mm/dd/yyyy") & "#"
 
 
 
Select Case 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