Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1878 connectés 

  FORUM HardWare.fr
  Programmation
  SQL/NoSQL

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1422760
sire de Bo​tcor
Armorican way of life
Posté le 09-08-2006 à 11:48:02  profilanswer
 

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
mood
Publicité
Posté le 09-08-2006 à 11:48:02  profilanswer
 

n°1422898
kao98
...
Posté le 09-08-2006 à 14:44:37  profilanswer
 

Code :
  1. if (dateSortie <> "" ) then
  2.    dateSortie = date()
  3. 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
n°1422963
sire de Bo​tcor
Armorican way of life
Posté le 09-08-2006 à 15:46:58  profilanswer
 

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
n°1422965
kao98
...
Posté le 09-08-2006 à 15:49:51  profilanswer
 

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

Code :
  1. if (dateSortie = "" ) then
  2.    dateSortie = date()
  3. end if


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

---------------
Kao ..98 - Uplay (R6S) : kao98.7.62x39 - Origin (BF4, BF1) : kntkao98
n°1422969
sire de Bo​tcor
Armorican way of life
Posté le 09-08-2006 à 15:52:10  profilanswer
 

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
n°1422973
kao98
...
Posté le 09-08-2006 à 15:58:20  profilanswer
 

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 :
  1. if (nz(dateSortie,"" ) = "" ) then
  2.    DateSortie = Date()
  3. 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
n°1423149
sire de Bo​tcor
Armorican way of life
Posté le 09-08-2006 à 18:38:35  profilanswer
 

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

Aller à :
Ajouter une réponse
  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 ordreajout 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 texteVBA : 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


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR