Recupérer la date courante access
filouz
-
filouz -
filouz -
Bonjour,
je souhaiterai que la date du jour s'affiche sur mon formulaire et la récupérer dans la base au moment de la sauvegarde.
Je fais donc
Private Sub Texte32_Click()
Dim today
today = Format(Now, "dd/mm/yyyy")
End Sub
mais rien ne s'affiche
la syntaxe n'est pas bonne?
merci!!
je souhaiterai que la date du jour s'affiche sur mon formulaire et la récupérer dans la base au moment de la sauvegarde.
Je fais donc
Private Sub Texte32_Click()
Dim today
today = Format(Now, "dd/mm/yyyy")
End Sub
mais rien ne s'affiche
la syntaxe n'est pas bonne?
merci!!
6 réponses
-
Bonjour,
Private Sub Texte32_Click()
Texte32.Text = Format(Now, "dd/mm/yyyy")
ou
Texte32.Text = Date
End Sub -
-
Re,
Non, il faudra l'integrer dans un champ d'une table. -
c'est justement cette étape qui me bloque
j'ai dans ma table, un champ DATE_JOUR
comment dire que la date du jour sera injectée dans ce champ là?
Je te remercie de m'aider -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Re,
Private Sub Texte32_Click()
Dim rstCommConfigs
Dim NomTable
'Ecrire le nom de la table a la place des xxxx
NomTable = "xxxxxxxxx"
Texte32.Text = Date
Set rstCommConfigs = CurrentDb.OpenRecordset(NomTable, dbOpenDynaset)
With rstCommConfigs
.MoveFirst
.Edit
!DATE_JOUR = Texte32.Text
.Update
.Close
End With
Set rstCommConfigs = Nothing
End Sub
Bonne suite -