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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Access] Affecter une valeur lors du premier focus sur une case

sire de Botcor

Armorican way of life

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

Publicité

kao98

...

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

sire de Botcor

Armorican way of life

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

kao98

...

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

sire de Botcor

Armorican way of life

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

kao98

...

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

sire de Botcor

Armorican way of life

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

FORUM HardWare.fr

Programmation

SQL/NoSQL

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

Sujets relatifs
[Résolu] [Algo] Stabilisation et Système du premier ordre	ajout de valeur
Supprimer les doublons absolus dans une table ACCESS	[PHP]Remplacer une constante par sa valeur dans une chaîne ""
[SQL] Prendre les enregistrements valeur max par catégorie (GROUP BY)	Recuperer la valeur dans une liste déroulante
Inserer une valeur d'une base de donnée dans un champ de texte	VBA : modifier la valeur d'une cellule en appellant une function
Copie d'une cellule lors d'un chgt de valeur	[vbs][résolu] desactiver prompt avec une valeur par defaut
Plus de sujets relatifs à : [Access] Affecter une valeur lors du premier focus sur une case

Page générée en 0.026 secondes