Recupérer la date courante access

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!!

6 réponses

  • Votes
  • Date
  • Date décroissante
  1. Bonjour,

    Private Sub Texte32_Click()
    Texte32.Text = Format(Now, "dd/mm/yyyy")

    ou

    Texte32.Text = Date
    End Sub
    1. 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
      1. 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