Discussion :

[lucas-18]

Bonjour,

J'ai un champ type Date/Time (short time) mais il y a un léger problème pour le nouvel enregistrement.

Je lui ai mis comme valeur par défaut =Time() mais lorsque pour la dernière ligne (nouvel enregistrement), il n'y a pas de resfresh lorsque je commence à remplir un champ du nouvel enregistrement ; il garde donc l'heure de mon dernier enregistrement.

En d'autres termes mon dernier enregistrement et mon nouvel enregistrement porte la même heure.

Comme faire en sorte que l'heure de mon nouvel enregistrement se mette correctement à l'heure lorsque je remplit au moins un champ de ce même enregistrement ?

J'espère que vous m'avez compris ...

[6ril25]

Salut,

tu as essayé de mettre Now() comme valeur par défaut?

[lucas-18]

Salut,

tu as essayé de mettre Now() comme valeur par défaut?

Oui mais l'heure ne s'actualise pas

[6ril25]

ah...

tu peux nous donner la structure du dit-champs, stp.

[lucas-18]

ah...

tu peux nous donner la structure du dit-champs, stp.

Format : Short Time
Input Mask : 00:00
Default Value : =Now()

[LE VIEUX]

Salut,
A priori que tu mettes dans valeur par defaut dans ta table :
Now() qui se transformera en Maintenant()
Time () qui se transformera en Temps()
= now() ou =Time
Cela doit marcher si on a bien compris ton problème.
Par contre question Bête, le soir, la fatique, cela me prend souvent.
Tu mets combien de temps entre chaque enregistrement ???
1 mn c’est long –
As-tu essayé avec : format : Heure, complet
Et masque : 00:00:00;0;_
Mais c’est peut-être une question bête…..

[lucas-18]

Salut,
A priori que tu mettes dans valeur par defaut dans ta table :
Now() qui se transformera en Maintenant()
Time () qui se transformera en Temps()
= now() ou =Time
Cela doit marcher si on a bien compris ton problème.
Par contre question Bête, le soir, la fatique, cela me prend souvent.
Tu mets combien de temps entre chaque enregistrement ???
1 mn c’est long –
As-tu essayé avec : format : Heure, complet
Et masque : 00:00:00;0;_
Mais c’est peut-être une question bête…..

Euh j'ai pas bien compris là ; je dois juste changer la valeur par défaut ?

Si l'utilisateur reste sur le même enregistrement ouvert et qu'il y mette un nouvel enregistrement après je sais pas moi 1h par exemple ben l'heure sera incorrecte ; de plus la date aussi vu qu'elle s'est ajouter sur le nouvel enregistrement à la date d'aujorud'hui et que lorsque j'utiliserai ce nouvel enregistrement la prochaine fois il ne se mettra pas à la date du jour réel ...

[LE VIEUX]

Bonjour,
Bon je crois qu’il faut préciser un peu.
Quelle est l’heure que tu veux mettre sur ton enregistrement ?
Quand il est ouvert, quand il est fermé ?
Si c’est l’heure d’ouverture c’est la valeur par défaut qui sera mise sur ton enregistrement. Mais bien sur s’il est fermé 1 h après il aura toujours la même heure sauf si tu la change par saisi soit manuelle ou par code.
Si c’est l’heure de fermeture inutile de remplir la valeur par defaut.
Tu mets simplement le code suivant sur l’évènement : AVANT MAJ de ton formulaire :

Code :

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

1
2
3
4
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.MonChampHeur = Time()
 
End Sub

[lucas-18]

Bonjour,
Bon je crois qu’il faut préciser un peu.
Quelle est l’heure que tu veux mettre sur ton enregistrement ?
Quand il est ouvert, quand il est fermé ?
Si c’est l’heure d’ouverture c’est la valeur par défaut qui sera mise sur ton enregistrement. Mais bien sur s’il est fermé 1 h après il aura toujours la même heure sauf si tu la change par saisi soit manuelle ou par code.
Si c’est l’heure de fermeture inutile de remplir la valeur par defaut.
Tu mets simplement le code suivant sur l’évènement : AVANT MAJ de ton formulaire :

Code :

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

1
2
3
4
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.MonChampHeur = Time()
 
End Sub

Ca marche !! Super merci Le Vieux mais si je veux la même chose pour mon champ Date ... je peux rajouter une ligne à ce code, si oui comment stp ?


Edit : En fait, non le problème avec l'heure c'est que quand je modifie un enregistrement précédent l'heure s'actualise ....

[LE VIEUX]

salut,
excuse j'ai zappé ton Edit :

si tu ne veux pas changer la date et l'heure en cas de modif :

ex :
date = DateJ
heure = HeurH

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.DateJ) Then
Me.DateJ = Date
Else
Exit Sub
 
End If
If IsNull(Me.HeureH) Then
Me.HeureH = Time()
Else
Exit Sub
 
End If
 
 
End Sub