Discussion :

[Crachover]

Bonjour,

Je sais que le sujet a déjà été ouvert à se sujet, mais voilà mon problème...

Il est très simple de mettre automatiquement la date et l'heure dans un champs Access 2007 (Valeurs par défaut : Date()+Times())

Mais lorsque l'on utilisent cette fonction, cela ajoute automatiquement la date et l'heure du moment présent sur la dernière ligne de la table, et l'encodage lui se fait sur l'avant dernière ligne étant donnée qu'une nouvelle ligne vient de se créer... comprenez-vous :-) ?

Exemple : Table

ID NOMS DATE NOW
===============================
1 Olivier 12/10/2009 13:12:45
2 Eric 13/10/2009 13:13:41
(Nouv.) 14/10/2009 13:18:31


Donc en réalité, le nom Olivier a été encodé le 13/10/2009 13:13:41, Eric lui a été encodé le 14/10/2009 13:18:31. Car le champs mis à jour avec Now() est a chaque fois le champs vide suivant...

Est-il possible que Now() se fasse sur la ligne en train de se faire encodé en non la suivante ????? En plus cette information sera complètement fausse étant donnée qu'une nouvelle ligne peut-être encodée beaucoup plus tard que la date mentionnée...

Merci d'avance pour votre réponse

[Crachover]

J'ai trouvé ceci, mais ne fonctionne pas...

Bonjour,

Sur lévénement "Sur clic" de ton bouton de commande....(DateJour est ton champ ou doit être inséré la date du jour).....
Code :

Private Sub Commande3_Click()
Me.DateJour.Value = Date
End Sub

Bonne continuation....

[Crachover]

Pas de réponse... mais bon, j'ai trouvé comme un grand...

Pour faire profiter les membres voilà la solution :

Code :

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

1
2
3
Private Sub Commande3_Click()
Me.DateJour = DateTime.Now
End Sub

et non :

Code :

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

1
2
3
Private Sub Commande3_Click()
Me.DateJour.Value = Date
End Sub

[rjamin]

Bonjour,

Dans le formulaire qui contient le champ date, dans les propriétés du champ choisir Sur réception focus et avec le bouton en fin de ligne cliquez, puis choisir Ajouter macro, le générateur de macro s'ouvre.
Cliquez le bouton 'Afficher toutes les actions'
Dans la liste choisir Définir valeur
Sur la ligne Elément inscrire

Code :

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

Formulaires![Nom_du_formulaires]![NomDuChamp]

Sur la ligne expression inscrire

Code :

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

Maintenant()

Et la date et l'heure s'inscrivent dans la ligne en cours d'encodage au moment de la réception du focus. On peut mettre une condition dans la macro pour empêcher l'écriture de la date si le champ est déjà rempli par une date antérieure.
Attention dans la table définir la propriété du champ sur Date générale.

J'ai perdu mon temps car pas de Résolu visible !!!!

[la mouche]

Pas de réponse... mais bon, j'ai trouvé comme un grand...

Pour faire profiter les membres voilà la solution :

Code :

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

1
2
3
Private Sub Commande3_Click()
Me.DateJour = DateTime.Now
End Sub

et non :

Code :

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

1
2
3
Private Sub Commande3_Click()
Me.DateJour.Value = Date
End Sub

Bonjour,

Ce sujet m'intéresse.
Comment introduisez-vous ce code dans le champ de la table ?
Merci déjà.