Discussion :

[blondin01]

Voila, j'ai fait des recherches sur le forum, mais j'y ai trouvé aucune information dessus.
J'ai plusieurs champs sur ma base dans lesquels je voudrais que la date du jour soit automatiquement renseignée.

J'ai essayé dans le générateur d'expression toutes les fonctions dates possible, mais ca ne marche pas.
Quelqu'un sait-il comment il faut proceder? Ca ne doit pas être bien compliqué quand même...

Merci d'avance.

[LeScandinave]

Bonjour,
tu dois simplement ecrire dans tes champs textes:

Code :

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

Now()

[blondin01]

Ok, je vais essayé

Moi j'avais mis:

Code :

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

maintenant()

[blondin01]

Le problème c'est que ca se met en 'source controle'
Du coup, la date ne s'enregistre plus dans la table.

[LeScandinave]

alors à l'ouverture de ton formulaire (procèdure évenementielle), tu codes en VBA.

Code :

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

Me.MonChampTexte= Now()

ça devrait fonctionner

[Toff !!!!!]

J'ai le meme probléme...

Je met now() dans mes champs de texte,

mais etant donné que j'ai plusieurs champs de texte dans le queles je dois utiliser cette formule... comment je code la procedure evenemetielle?

Me.MonChampTexte1.MonChampText2= Now()

cela marcherait ?

[blondin01]

Alors, j'ai fait des essais, et lorsque je clique sur le champ, au lieu d'avoir la date, j'ai un message d'erreur:
Erreur d'execution 424 : objet requis.

Le problème c'est que je suis completement débutant en VBA, et le code c'est pas trop mon truc donc j'espère avoir bien manoeuvré.

[LeScandinave]

Toffff (trop de f tue le f )
non tu es dans le faux, en fait il faut copier plusieurs fois la ligne de code si tu as plusieurs contrôle.

Code :

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

1
2
3
4
Me.MonChampTexte1= Now()
Me.MonChampTexte2= Now()
...
Me.MonChampTexten= Now()

hum la procèdure n'est peut être pas à mettre sur ouverture alors, je regarde ça après manger...

[LeScandinave]

Blondin01, tu pourrais copier coller ton code ici, car ça fonctionne chez moi en mettant le code à l'ouverture du formulaire.

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer)
Me.MonTexte = Now()
End Sub

[blondin01]

Merci LeScandinave de ton aide.

Mais ca m'affiche toujours le même code d'erreur.
J'ai pas fait d'erreur??
A la place de Me, j'ai indiqué le nom du formulaire.
J'ai remplacé MonCampTexte par le nom de ma zone de texte dans laquelle je veux que la date automatique s'affiche.

Je suis desespéré

[LeScandinave]

pourquoi tu changes le Me?
il est très bien le Me
Tu as essayé avec le Me?

Ton erreur elle te surligne quoi dans ton code pour te signaler l'erreur.
Et tu peux copier coller ton code, svp

PS: tu as quelle version de Access?

[blondin01]

J'ai essayé en laissant le Me,
Ca me fait une autre erreur.

Voici le code tel que je l'ai mis:

Code :

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

1
2
3
4
Private Sub Date_commande_client_Click()
Private Sub Form_Open(Cancel As Integer)
Me.Date_commande_client = Now()
End Sub

[LeScandinave]

ah bah oui en effet c'est pas ce que j'ai écrit , voilà pourquoi écrire le code est important!

En fait tu voulais mettre le code sur un événement bouton, donc le code donne:

Code :

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

1
2
3
Private Sub Date_commande_client_Click() 
Me.Date_commande_client = Now() 
End Sub

et là ça devrait marcher.
Mais je suis sûr que ton bouton peut être supprimé. Enfin au moins tu as ce que tu souhaites.
si c'est bon n'oublies pas de cocher

[blondin01]

J'ai pas tester avant, désolé.
Cette fois cela marche
Mais ca ne correspondait pas a un bouton, seulement a un champ de texte.

Par contre le problème c'est que cette fonction affiche en plus l'heure
Est-il possible de l'enlever?

[cafeine]

now() renvoie la date et l'heure courante
date() renvoie la date courante

[blondin01]

Merci.
Ca marche impeccable...