Discussion :

[star]

Code :

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

1
2
    d = Now
    Me.txtDateDeb.DefaultValue = d

Lorsque j'insère un nouvelle enregistrement en mode formulaire, j'ai un champ dans lequel je voudrais faire apparaitre la date et heure courante pour aider à la saisie. Pour ce faire, je l'initialise par défaut dans l'évènement On_Open() du formulaire avec la fonction VBA Now. Le problème est que l'affichage n'est pas bon voir ci-dessous.



Sauriez-vous comment procéder pour que l'affichage de la date et heure se fasse correctement ?
Merci
.

[tee_grandbois]

bonjour,
les valeurs dans la fenêtre des propriétés doivent être de type "langue locale", donc pour la France:

Code :

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

1
2
Format :jj/mm/aaaa\ hh:nn (dans onglet Format)
Valeur par défaut: Maintenant() (dans onglet Données)

sinon en VBA, je préconiserai de le faire plutôt sur l'évènement "Sur chargement" (On Load):

Code :

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

Me.txtDateDeb.DefaultValue = VBA.Now

[star]

.
Sur l'évènement On_Load()

Code :

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

Me.fldDateDeb.DefaultValue = VBA.Now

Tjrs le même affichage dans le champ

#Name?

?
.

[madefemere]

Bonjour,

Tu mets comme Valeur par défaut du contrôle dans ton formulaire "Maintenant()" ou "Now()"
Tu définis le format d'affichage à "Date, général".

Je ne comprends pas pourquoi tu as besoin d'utiliser du VBA pour définir une valeur par défaut d'un contrôle.
"par défaut", cela veut dire qu'automatiquement dès que tu crées un enregistrement, on a la valeur indiquée.

Cordialement.

[tee_grandbois]

bonjour,

Tjrs le même affichage dans le champ

#Name?

en effet...cela m'a semblé bizarre, mais après quelques recherches je me suis souvenu que la syntaxe doit être une expression, pas une valeur:

Code :

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

Me.fldDateDeb.DefaultValue = "=Now()"

sinon as-tu essayé sans VBA, c'est à dire, ma première proposition ou celle de madefemere ?

[star]

.

Code :

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

Me.fldDateDeb.DefaultValue = "Now()"

Fonctionne comme attendu

Autre possibilité

Code :

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

Me.fldDateDeb.DefaultValue = "#" & Now & "#"

Merci
.