[Access] Affecter une valeur lors du premier focus sur une case

Marsh Posté le 09-08-2006 à 11:48:02

Salut !

J'ai une question un peu particulière.
Sur un formulaire Access, j'ai une case vierge au lancement.
Je voudrais qu'elle contienne la date du jour au moment où le focus se place sur cette case pour la première fois.

J'ai donc tout naturellement tapé ce code :

Citation :

Private Sub dateSortie_GotFocus()
dateSortie=date
End Sub

Mais l'inconvénient c'est que chaque fois que je reviens sur cette case,
il remet le contenu à la date du jour, même si elle contient une autre date

Y a-t-il une solution ?
Merci d'avance

---------------
«Ceux qui croient que les peuples suivront leurs intérêts et non leurs passions n’ont rien compris au XXe siècle.» © Raymond Aron

Reply

Marsh Posté le 09-08-2006 à 11:48:02

Reply

Marsh Posté le 09-08-2006 à 14:44:37

Code :

if (dateSortie <> "" ) then
    dateSortie = date()
end if

:spamafote:

Message édité par kao98 le 09-08-2006 à 15:58:59

---------------
Kao ..98 - Uplay (R6S) : kao98.7.62x39 - Origin (BF4, BF1) : kntkao98

Reply

Marsh Posté le 09-08-2006 à 15:46:58

j'ai testé
mais ça ne fonctionne pas non plus

---------------
«Ceux qui croient que les peuples suivront leurs intérêts et non leurs passions n’ont rien compris au XXe siècle.» © Raymond Aron

Reply

Marsh Posté le 09-08-2006 à 15:49:51

Mais oui, mais parce que j'ai fait une grosse erreur (suis allé trop vite) !
C'est ça qu'il faut mettre :

Code :

if (dateSortie = "" ) then
    dateSortie = date()
end if

Message édité par kao98 le 09-08-2006 à 15:58:50

---------------
Kao ..98 - Uplay (R6S) : kao98.7.62x39 - Origin (BF4, BF1) : kntkao98

Reply

Marsh Posté le 09-08-2006 à 15:52:10

oui, non, ne t'inquiète pas, j'avais corrigé la faute d'inattention
mais ça ne fonctionne vraiment pas

---------------
«Ceux qui croient que les peuples suivront leurs intérêts et non leurs passions n’ont rien compris au XXe siècle.» © Raymond Aron

Reply

Marsh Posté le 09-08-2006 à 15:58:20

Utilise Nz() en cas de valeur null (ou teste aussi si DateSortie est null) ce qui donnerait (je viens d'essayer, et ça fonctionne) :

Code :

if (nz(dateSortie,"" ) = "" ) then
    DateSortie = Date()
end if

M'enfin, je te recommenderais quand même plutôt d'utiliser une valeur par défauf plutôt que d'en attribuer une sur Réception du focus.

Message édité par kao98 le 09-08-2006 à 15:58:41

---------------
Kao ..98 - Uplay (R6S) : kao98.7.62x39 - Origin (BF4, BF1) : kntkao98

Reply

Marsh Posté le 09-08-2006 à 18:38:35

En effet, ça fonctionne comme ça
[:spikler]

(je dois éviter la valeur par défaut car dans mon appli, ça signifie autre chose : cette case n'est pas forcément remplie)

---------------
«Ceux qui croient que les peuples suivront leurs intérêts et non leurs passions n’ont rien compris au XXe siècle.» © Raymond Aron

Reply

[Access] Affecter une valeur lors du premier focus sur une case

Sujets relatifs:

Leave a Replay