1 réponse
le meruvien
Messages postés
1125
Date d'inscription
vendredi 12 août 2011
Statut
Membre
Dernière intervention
15 décembre 2024
40
19 déc. 2014 à 06:28
19 déc. 2014 à 06:28
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
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
19 déc. 2014 à 14:40
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
19 déc. 2014 à 15:00
choixmois = "[Né le]= " & Me![Modifiable171]
19 déc. 2014 à 15:35