Discussion :

[boubas53]

Bonsoir,

Dans mon formulaire "Statistiques réclamations", j'ai créé un bouton provisoire "ouvrir l'état" avec l'assistant pour ouvrir l'état "copie de saisies_par_catégorie_client" mais en double cliquant dessus, ce bouton ne fonctionne pas.
Pouvez-vous me dire svp que changer pour qu'il fonctionne ? Merci.

nb: ci joint ma base zippée

[ClaudeLELOUP]

Bonjour,

Tu remplaces ton code actuel, par celui-ci (beaucoup plus simple, mais correct !) :

Code :

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

1
2
3
Private Sub Commande47_Click()
   DoCmd.OpenReport "Copie de Saisies_par_catégorie_client", acViewPreview
End Sub

Tu supprimes « , acViewPreview » si tu veux que l'état s'imprime.

[boubas53]

Bonjour,

Merci mais aurai-il été possible de résoudre le problème sans passer par le code. Pourquoi l'assistant n'a pas fonctionné ? Y a t-il quelque chose à cocher ou à décocher par ex. ? Merci.

[ClaudeLELOUP]

Désolé, je ne peux répondre : j'utilise Access2000 qui ne dispose pas d'un tel assistant.

[boubas53]

En fait, c'est le même principe que le bouton à côté en rouge "Nombre de réclamation par catégorie client" qui lui fonctionne mais à l'époque, je ne sais plus comment j'avais procédé et puis en plus j'avais créé la base avec une version antérieure d'access.

[Robert1957]

Bonjour boubas53, Claude,

Le code du bouton "Nombre de réclamation par catégorie client" :

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
Private Sub Commande14_Click()
On Error GoTo Err_Commande14_Click

    Dim stDocName As String

    stDocName = "Saisies_par_catégorie_client"
    DoCmd.OpenReport stDocName, acPreview

Exit_Commande14_Click:
    Exit Sub

Err_Commande14_Click:
    MsgBox Err.Description
    Resume Exit_Commande14_Click
    
End Sub

Le code de ton nouveau bouton:

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
Private Sub Commande47_Click()
On Error GoTo Err_Commande47_Click
 
 
    stDocName = "Saisies_par_catégorie_client"
 
 
Exit_Commande47_Click:
    Exit Sub
 
Err_Commande47_Click:
    MsgBox Err.Description
    Resume Exit_Commande47_Click
 
End Sub

En gras dans le premier code les 2 lignes qui manquent pour que cela fonctionne.

La première ligne pour déclarer la variable "stDocName", l'autre est exactement ce que te proposait Claude, soit la commande qui ouvre l'état voulu.

Avec les version 2007 et plus l’assistant crée des macros au lieu de VB.

Bonne journée