Menu

Pb access [Fermé]

- - Dernière réponse :  dom - 19 déc. 2014 à 15:35
Bonjour,

J'ai créé une requête récupérant tous les inscrits né au mois de ...
en répondant */12/* par exemple
et ça marche très bien

SELECT T_Tjudo.[Né le], T_Tjudo.Nom, T_Tjudo.Prénom, T_Tjudo.Cours
FROM T_Tjudo
WHERE (((T_Tjudo.[Né le]) Like [Exemple tapez */01/*]) AND ((T_Tjudo.abandon)=No))
ORDER BY T_Tjudo.[Né le];

Je voudrais ne plus taper au clavier */11/* mais remplacer cela par une liste déroulante
comment faire ?
j'ai essayé avec : DoCmd.OpenReport ..... mais je n'y arrive pas
Afficher la suite 

1 réponse

Messages postés
965
Date d'inscription
vendredi 12 août 2011
Statut
Membre
Dernière intervention
23 juin 2019
30
0
Merci
bonjour,
Ton champ de saisie du mois, tu le fait en liste déroulante basée sur une table ou une liste avec tous les mois de 1 à 12.que tu appel par exemple LDmois.
Et apres mise à jour de la liste, si ton ton champ s'appel "mois", tu met:
[mois]="*/" & ldmois & "/*"
roger
Ca marche avec ça mais ce que je veux c'est tous les adhérents du mois choisi par ma liste déroulante 171 ; il me faudrait le caractère générique pour remplacer 16 et 1963,
choixmois = "[Né le]=" & "'" & "16/0" & Me![Modifiable171] & "/1963" & "'"
j'ai essayé * , %, ? mais rien à faire ça veux pas marcher


Private Sub Modifiable171_AfterUpdate()
On Error GoTo Err_Commande171_Click

Dim stDocName As String
Dim choixmois As String
choixmois = "[Né le]=" & "'" & "16/" & Me![Modifiable171] & "/1963" & "'"

stDocName = "listeanniv"
DoCmd.OpenReport stDocName, acPreview, , choixmois
Exit Sub
Err_Commande171_Click:
MsgBox Err.Description

End Sub
le meruvien
Messages postés
965
Date d'inscription
vendredi 12 août 2011
Statut
Membre
Dernière intervention
23 juin 2019
30 > dom -
et ben met tout sans le 16 et le 1963!!
choixmois = "[Né le]= " & Me![Modifiable171]
> le meruvien
Messages postés
965
Date d'inscription
vendredi 12 août 2011
Statut
Membre
Dernière intervention
23 juin 2019
-
ça marche pas non plus