Recupérer la date courante access

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

6 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

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

    ou

    Texte32.Text = Date
    End Sub
    0
  2. filouz
     
    merci!

    est-ce qu'elle sera récupérée dans la base??
    0
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,
    Non, il faudra l'integrer dans un champ d'une table.
    0
  4. filouz
     
    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
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0