Access - VBA Case - impression

Résolu
olivierporcinet Messages postés 16 Statut Membre -  
olivierporcinet Messages postés 16 Statut Membre -
Bonjour,

Bonjour,


J’ai un code VBA qui doit imprimer 2 états différents selon l’institution choisie.


Problème :

Le nom de la personne lié à l’institution ne s’imprime pas sur l’état



Private Sub Commande78_Click()

Select Case Institution

Case "Auberge "

DoCmd.OpenReport "Attestation Auberge"


Case "Hôtel"
DoCmd.OpenReport "Attestation Autre"


Case "Motel"
DoCmd.OpenReport "Attestation Autre"


End Select

End Sub



Merci pour votre aide.

Bonne journée

1 réponse

yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
bonjour, est-ce différent quand tu ouvres l'état à la main?
0
olivierporcinet Messages postés 16 Statut Membre 1
 
Oui.

Au départ j'avais fait 2 boutons distincts avec une macro et condition where.

J'ai essayé de mettre 2 conditions mais ça ne fonctionne pas.
0
yg_be Messages postés 24281 Statut Contributeur 1 584 > olivierporcinet Messages postés 16 Statut Membre
 
il faudra que tu nous en dises plus. entr'autres, le lien entre l'état, l'institution et la personne.
0
olivierporcinet Messages postés 16 Statut Membre 1
 
J'ai actuellement 2 boutons distinct reliés à 2 états.

condition where :

[Nom]=[Formulaires]![Coordonnées]![Nom] Et [Institution]=[Formulaires]![Coordonnées]![Institution]

Etats : Attestation Auberge
Attestation Autre


Lorsque je suis sur une fiche je choisi un des 2 boutons en fonction de l'Institution. (Auberge ou Autre)


j'aimerais n'avoir qu'un seul bouton qui fasse directement le lien entre le nom de la personne et l'institution et qui puisse imprimer l'état ad-hoc
0
yg_be Messages postés 24281 Statut Contributeur 1 584 > olivierporcinet Messages postés 16 Statut Membre
 
je n'ai pas compris où se trouvait exactement la condition where. Ni pourquoi l'état se faisait sur la bonne institution.
il faut peut-être spécifier la condition where dans le VBA:
DoCmd.OpenReport "Attestation Autre" , , ,  " [Nom]=[Formulaires]![Coordonnées]![Nom] and [Institution]=[Formulaires]![Coordonnées]![Institution]  "
0
olivierporcinet Messages postés 16 Statut Membre 1
 
Super, merci beaucoup. Bon week-end
0