Ouvrir état à partir de liste déroulante

Fermé
FVR812 - 13 avril 2009 à 13:17
 Anais - 7 juil. 2011 à 10:06
Bonjour,Bonjour, (ACCESS2003), j’ai une table avec dans 1 champ ECOLE une liste importante de noms d’établissements scolaires, et un autre champ avec leur code administratif +d‘autres champs numériques à renseigner. Le tout s’affiche sur 1 états de sortie EFECOLESSynthGraph, trié par ce code administratif, donc fait apparaître les résultats par établissement.
J’ai créé sur un formulaire type Menu, une liste déroulante ldecolesmenu des établissements, et je voudrais qu’en cliquant sur le nom d’1 établissement, je fasse ouvrir l’état correspondant à l’établissement à cet établissement. J’ai essayé :

Private Sub ldecolesmenu_AfterUpdate()
DoCmd.OpenReport "EFECOLESSynthGraph", acNormal, , "[ECOLE]=" & Me![ldecolesmenu]
End Sub

Mais j’ai un message qui me dit que ça va imprimer, puis un débogage sur cette ligne. Comment faire ? Merci de votre aide.
A voir également:

3 réponses

Résolu, fallait ajouter Nz.
DoCmd.OpenReport "EFECOLESSynthGraph", acPreview, , "[ECOLE]='" & Nz(Me![ldecolesmenu], "") & "'"

merci
1
Utilisateur anonyme
13 avril 2009 à 20:10
Bonjour,
Si vous avez une macro1 qui fait ouvrir etat, que par ailleurs vous avez un etat qui reprend des données que vous souhaitez avoir alors vous pouvez dans votre formulaire sur propriétés dans sur mise à jour avoir l'ouverture de la macro1 je crois.
0
090414 Bonjour, Sur ACCESS 2003, en fait dans mon formulaire je mets une liste déroulante affichant une liste de noms d’établissements scolaires ldecolesmenu. Cette liste est basée sur le champ ECOLE d’une requête qui comprend 2 champs ECOLE et CODE (code administratif de l’établissement et identifiant unique qui sert de liaison entre autres). Un état EFECOLESSynthGraph est basé sur cette requête et en restitue toutes les données, cet état est trié par CODE (croissant), puis par ECOLE. Je voudrais qu’en cliquant sur un choix de la liste déroulante ldecolesmenu du formulaire, je fasse ouvrir l’état à l’école correspondante sans plus :

Private Sub ldecolemenu_AfterUpdate()
DoCmd.OpenReport "EFECOLESSynthGraph", acPreview, , "[ECOLE]=" & Me![ldecolesmenu]
End Sub

Ça ne marche pas, débogage sur la ligne DoCmd….. pouvez vous m’aider à rectifier ce code VBA ? Merci de votre aide.
0
Bonjour,

Je voulais simplement vous remercier pour ce code, très efficace pour mon fichier (j'ai galéré un jour avant de trouver votre message)

Bonne journée !
0