Discussion :

[Auron89]

Bonjour,

je cherche un moyen de donner la date d'aujourd'hui à un nouvel enregistrement, ou bien à un enregistrement qui n'a pas de date attribuée. Seulement je ne veux pas que la date se mette à jour chaque fois que j'accède à l'enregistrement par mon formulaire.
En gros la date ne doit être donnée qu'une seule fois, lors de sa création, et qu'elle ne soit plus modifiable par la suite.

d'avance pour votre aide.

[FreeAccess]

Bonjour,

Tu pourrais utiliser la propriété NewRecord lors de la création de ton enregistrement (voir Aide)..

....et pour les enregistrements déjà créés, qui ne possèdent pas de date, il te suffit de vérifier le contenu du champ....

[Auron89]

Merci pour ta réponse

J'ai écris le code (faux) suivant :

Code :

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

1
2
3
4
5
6
7
Private Sub Date_BeforeUpdate(Cancel As Integer)
 
    If Me.NewRecord = True Then
        Me.Date = Now()
    End If
 
End Sub

J'ai aussi éssayé "Me!Date = DateTime.Now()", avec et sans ()

Comment s'y prendre pour donner la date d'aujourd'hui?

[FreeAccess]

Re,

Dans un premier temps, évite de nommer tes champs pouvant être confondu avec un mot-clé d'ACCESS..

.....ainsi ton champ Date devient Date_Enreg

Ensuite, place ta vérification sur l'événement "Sur activation" de ton formulaire.:

Code :

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

1
2
3
4
5
Private Sub Form_Current()
If Me.NewRecord = True Then
    Me.Date_Enreg.Value = Date
End If
End Sub

...

[Auron89]

Super, ça a l'air de marcher . Je te remercie, j'avais vraiment besoin de cette fonction. À une prochaine fois peut-être .