Discussion :

[Maude_84]

Bonjour à tous,
voilà, j'ai dans un formulaire

• une case à cocher
• une zone de texte

je veux un script qui me permet qu'en cochant la case, la date du jour apparaisse dans la zone de texte.
le seul code que j'ai pu écrire est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Commande38_Click()
Forms![monformulaire].DateJour.Value = DATE
End Sub

avec monformulaire: le formulaire, Date_saisie: le champ qui va contenir la date du jour....
là je ne sais plus quoi faire!

J'ai besoin de vous

[jimbolion]

Maude_84,

Essayes comme çà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.DateJour.Value = Now()

Attention renvoie la date sous la forme date et heure,

pour ne renvoyer que la date

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.DateJour.Value = Format(Now(), "dd/mm/yyyy")

Bonne fin de journée

[madefemere]

Bonjour Jimbolion et Maude,

@Jimbolion,
Il me semble qu'il existe et j'utilise la fonction Date() (avec des parenthèses) pour avoir le même résultat que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.DateJour.Value = Format(Now(), "dd/mm/yyyy")

La première fois, je pensais aussi que seule la fonction Now() existait.

@+

[jimbolion]

madefemere,

je te confirmes que les deux écritures sont possibles. Dans le code VBA Date mais pas Date()

Ce qui me chagrine c'est que l'exemple de Maude, le DATE aurait dû être traduite en Date (ce à quoi je demande à Maude d'essayer avec Now())

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.DateJour.Value = Format(Date, "dd/mm/yyyy")

est bien équivalent à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.DateJour.Value = Format(Now(), "dd/mm/yyyy")

Merci pour ta remarque

JimBoLion

[Maude_84]

Bonjour,
merci pour le code.
ce que je veux en plus c'est que: dès que je coche la case "case à cocher" de mon formulaire la date s'écrit dans la zone de texte.
en quelque sorte, mettre la case à cocher et la zone de texte en relation (si vous me permettez l'expression)

j'ai dans un formulaire

une case à cocher
une zone de texte

[jimbolion]

Maude84,

Le code doit être placé dans l’événement après mise à jour de ton checkbox (propriété -> Onglet événement)

En imaginant que ton checkBox se nomme CB_Text et ton contrôle TextBox se nomme DateJour, en cliquant sur le générateur de code Access va t'afficher ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CB_Text_AfterUpdate()
 
End Sub

Tu insères donc la ligne indiquée dans mon post précedent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CB_Text_AfterUpdate()
    Me.DateJour.Value = Format(Now(), "dd/mm/yyyy")
End Sub

Tu enregistres et tu testes

[Maude_84]

Bonjour jimbolion et les autres,
Pardon de répondre avec un aussi grand retard.

Le code marche merci.