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!!
A voir également:
- Recupérer la date courante access
- Recuperer message whatsapp supprimé - Guide
- Récupérer mon compte facebook désactivé - Guide
- Comment récupérer un compte facebook piraté - Guide
- Comment recuperer une video sur youtube - Guide
- Impossible de récupérer mon compte gmail - Guide
6 réponses
Bonjour,
Private Sub Texte32_Click()
Texte32.Text = Format(Now, "dd/mm/yyyy")
ou
Texte32.Text = Date
End Sub
Private Sub Texte32_Click()
Texte32.Text = Format(Now, "dd/mm/yyyy")
ou
Texte32.Text = Date
End Sub
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
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
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
