Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"Anthony" | comment procéder pour que le calendrier dans mon formulaire affiche par | défaut la date du précédent enregistrement ? | | pour info, le code que j'utilise est le suivant et me permet juste d'avoir | la date du jour : | | Private Sub Form_Load() | Me.CtlCalendar.Value = Now | Exit sub | | par quoi doit-on remplacer le "now" ?
Tu dois aller chercher cette date dans la table avec un "DMax" par exemple.
Dim LastDate as date LastDate = DMax("ChampDate","LaTable") Me.CtlCalendar.Value = Format(LastDate,"mm-dd-yyyy")
"Anthony"
| comment procéder pour que le calendrier dans mon formulaire affiche par
| défaut la date du précédent enregistrement ?
|
| pour info, le code que j'utilise est le suivant et me permet juste d'avoir
| la date du jour :
|
| Private Sub Form_Load()
| Me.CtlCalendar.Value = Now
| Exit sub
|
| par quoi doit-on remplacer le "now" ?
Tu dois aller chercher cette date dans la table avec un "DMax" par exemple.
Dim LastDate as date
LastDate = DMax("ChampDate","LaTable")
Me.CtlCalendar.Value = Format(LastDate,"mm-dd-yyyy")
"Anthony" | comment procéder pour que le calendrier dans mon formulaire affiche par | défaut la date du précédent enregistrement ? | | pour info, le code que j'utilise est le suivant et me permet juste d'avoir | la date du jour : | | Private Sub Form_Load() | Me.CtlCalendar.Value = Now | Exit sub | | par quoi doit-on remplacer le "now" ?
Tu dois aller chercher cette date dans la table avec un "DMax" par exemple.
Dim LastDate as date LastDate = DMax("ChampDate","LaTable") Me.CtlCalendar.Value = Format(LastDate,"mm-dd-yyyy")
