Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 29/11/2011, 15h18   #1
Invité de passage
 
Femme
Acheteuse
Inscription : novembre 2011
Messages : 5
Détails du profil
Informations personnelles :
Sexe : Femme

Informations professionnelles :
Activité : Acheteuse
Secteur : Distribution

Informations forums :
Inscription : novembre 2011
Messages : 5
Points : 0
Points : 0
Par défaut Ouverture d'un état à partir d'une liste déroulante

Bonjour

J'ai créé une liste déroulante pour ouvrir un état, le code est ci-dessous mais il doit y avoir une erreur sachant que

- J'ai un formulaire frmEtats avec une liste déroulante donc la source est une requête de regroupement avec uniquement [FOURNISSEUR] comme champs (afin de récupérer les fournisseurs travaillés)

- J'ai un état avec comme source la requête rqtCommandes qui a les champs filtrés, c'est champs ARCHIVE et RèglementTotal n'apparaissant pas sur l'état

Au départ j'avais un filtre sur l'état avec les filtres sur Archive et RèglementTotal mais il semble que la liste déroulante écrase ce filtre. Donc j'ai essayé de l'inclure dans le filtre de la liste déroulante.

Archive et RèglementTotal sont de type oui/non
FOURNISSEUR est de type texte

Citation:
Private Sub Modifiable0_AfterUpdate()
'Si l'état est déjà ouvert.....
If CurrentProject.AllReports("rptEtatCommandesFournisseur").IsLoaded = True Then
'...alors je le ferme en premier
DoCmd.Close acReport, "rptEtatCommandesFournisseur"
'Sinon, j'ouvre simplement mon état.
End If
DoCmd.OpenReport "rptEtatCommandesFournisseur", acPreview, , (([rqtCommandes].Archive) = 0) And (([rqtCommandes].RèglementTotal) = 0) And "[FOURNISSEUR]='" & Nz(Me![Modifiable0], "") & "'"
End Sub
Vous voyez l'erreur ? ou comment puis je faire autrement ?

merci
r.sandrine est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 29/11/2011, 18h54   #2
Membre à l'essai
 
Inscription : juillet 2004
Messages : 61
Détails du profil
Informations forums :
Inscription : juillet 2004
Messages : 61
Points : 24
Points : 24
verifie si filteron = true. en d'autre terms meme si tu as mis un filtre, il se peut que FilterOn soit sur FALSE et dans ce case le filtre n'est pas applique.
J'espere que ca aide.

Antoine
antoine dpt est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 30/11/2011, 08h34   #3
Invité de passage
 
Femme
Acheteuse
Inscription : novembre 2011
Messages : 5
Détails du profil
Informations personnelles :
Sexe : Femme

Informations professionnelles :
Activité : Acheteuse
Secteur : Distribution

Informations forums :
Inscription : novembre 2011
Messages : 5
Points : 0
Points : 0
c'est bon j'ai trouvé, merci !
r.sandrine est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 00h30.


 
 
 
 
Partenaires

Hébergement Web