Pb access
dom
-
dom -
dom -
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
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
1 réponse
-
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
-
