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
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
choixmois = "[Né le]= " & Me![Modifiable171]