A voir également:
- Recupérer la date courante access
- Recuperer video youtube - Guide
- Iphone 14 date de sortie - Guide
- Comment récupérer un compte facebook piraté - Guide
- Recuperer message whatsapp - Guide
- Recuperer mon compte gmail - Guide
6 réponses
f894009
Messages postés
16906
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 mars 2023
1 680
19 avril 2012 à 12:15
19 avril 2012 à 12:15
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
f894009
Messages postés
16906
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 mars 2023
1 680
19 avril 2012 à 14:17
19 avril 2012 à 14:17
Re,
Non, il faudra l'integrer dans un champ d'une table.
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
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
f894009
Messages postés
16906
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 mars 2023
1 680
Modifié par f894009 le 19/04/2012 à 14:34
Modifié par f894009 le 19/04/2012 à 14:34
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