Discussion :

[L'Oracle]

Bonjour à tous

Voila j'ai réalisé une base pour gérer une collection et à une certain moment j'ai créé un onglet qui permet de faire une recherche par plusieurs critères, et j'ai créé un bouton en face de chaque résultat qui permet d'imprimer le resultat voulu parmi tous les résutats seulement voila ce bouton à comme 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
Private Sub Impr_etat_fiche_Click()
On Error GoTo Err_Impr_etat_fiche_Click
 
    Dim stDocName As String
 
    stDocName = "Etat_fiche"
    DoCmd.OpenReport "Etat_fiche", , , "Nom_du_parfum=""" & Me.Nom_du_Parfum & """"
Exit_Impr_etat_fiche_Click:
    Exit Sub
 
Err_Impr_etat_fiche_Click:
    MsgBox Err.Description
    Resume Exit_Impr_etat_fiche_Click
 
End Sub

Mais je voudrais mettre plus de critère sur l'ouverture de l'état en plus qu nom de parfum mais je n'y arrive pas

Merci par avance de vos réponse en espérant avoir été clair

@+

[Petogaz]

salut,

une recherche sur le forum donne quoi ? car question récurrente.

[FreeAccess]

Bonjour,
He oui, une petite recherche dans les posts précédents te permettra de trouver ton bonheur
Sinon, une petite chose comme ceci :

Code :

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

1
2
3
Critere ="([Crit1] = '" & [Crit1] & "'" & ") AND ([Crit2] = '" & [Crit2] & "')"

DoCmd.OpenReport "Etat_fiche", , , Critere

Bonne continuation.