Bonjour,

Je trouvé un code VBA pour crréer un bouton afin d'imprimer un état pour dun seul enregistrment se trouvant dans un formulaire composé d'un sous formulaire (crréer à partir d'une requete).

Voici le code:

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
Private Sub Ficheeval_Click()
On Error GoTo Err_Ficheeval_Click
 
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "etatfiche"
stLinkCriteria = "[id_N°] = " & Me.N°
'[id_numerodelenregistrement] correspondant au champ identifiant "dans l'Etat"
'Me.numerodelenregistrement correspondant au champ identifiant sur le formulaire
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
 
Exit_Ficheeval_Click:
Exit Sub
 
Err_Ficheeval_Click:
MsgBox Err.Description
Resume Exit_Ficheeval_Click
 
End Sub
 
Private Sub Ficheeval_DblClick(Cancel As Integer)
 
End Sub
Cela marche très bien sauf qu' à chaque fois que je clic sur le bouton pour créer l'état , une fênétre s'ouvre en me demandant le N° de la ligne à visualiser. Comment faire pour éviter l'ouverture de cette bôite??

Merci de votre aide


Bonne soirée