Forum - Questions générale - Sujet n°397

[]
Nombre de membres 1 membre
Connectés : ( personne )
 

La Charte du Forum - La Charte du Forum

Forum - Forum
Questions générale - Questions générale


clos par 3Stone le 17/11/2010 : 15:09  Sujet n° 397  valeur par defaut d'un champ=valeur du dernier enregistrement

le 15/08/2010 : 16:54
par lemeruvien

Anonyme

visiteur
Bonjour, dans un formulaire continu, je voudrais que lorsque je crée un nouvel enregistrement, le champ "date" prenne par défaut la valeur du champ date du dernier enregistrement?
 sujet clos  Haut

[]   

Réponse n° 1
--------
le 15/08/2010 : 21:41
par 3Stone

Anonyme

Administrateur

 Bonjour Roger,

Si par dernier enregistrement, tu entends "celui saisi juste avant", tu peux ajouter cette ligne de code dans l'événement "Sur après mise à jour" du la zone de texte qui affiche le champ date:
 
Code :
    ChampDate.DefaultValue = "'" & [ChampDate] & "'"
 
Cordialement,
Pierre(3stone)
  clos par 3Stone le 17/11/2010 : 15:09  Haut
Réponse n° 2
--------
le 16/08/2010 : 07:11
par lemeruvien

Anonyme

visiteur
 bonjour Pierre, oui, mais entre temps, j'ai fermé le formulaire, je saisie pas un enregistrement suivant le même jour!
  clos par 3Stone le 17/11/2010 : 15:09  Haut
Réponse n° 3
--------
le 16/08/2010 : 18:33
par 3Stone

Anonyme

Administrateur

 Bonjour,

Oui, si tu parles de la dernière saisie "en général", il faudrait dire ce qui permet de définir ce dernier enregistrement saisi: un numéroauto ou une date/heure ?

Si la table possède un numéroauto, c'est simple - le dernier enregistrement possède le plus grand numéro, sinon, cela peut être plus difficile - voir impossible...

Hummm ?

Cordialement,
Pierre(3stone)
  clos par 3Stone le 17/11/2010 : 15:09  Haut
Réponse n° 4
--------
le 17/08/2010 : 07:16
par lemeruvien

Anonyme

visiteur
 Oui, ma table possède un numéro auto.mais comment le trouver a l'ouverture de mon formulaire??
  clos par 3Stone le 17/11/2010 : 15:09  Haut
Réponse n° 5
--------
le 17/08/2010 : 12:52
par 3Stone

Anonyme

Administrateur

 Bonjour,

 
Citation :

comment le trouver a l'ouverture de mon formulaire??

 
Un simple DMax() te donneras le plus grand numéroauto.
Mais, comme c'est la date de cet enregistrement qui t'intéresse, il faut un peu plus.

Donc, sur ouverture du formulaire, tu fais:
 
Code :
Dim Num As Long
Dim BigDate As Date
Num = DMax("[Le Numéroauto]","[LaTable])
BigDate = DLookup("[ChampDate]","[LaTable]","[Le Numéroauto]=" & BigNum
Me.[ChampDate].DefaultValue = "'" & BigDate & "'"
 
Note:  J'ai décomposé volontairement pour que tu puisse suivre le cheminement wink

Cordialement,
Pierre(3stone)
  clos par 3Stone le 17/11/2010 : 15:09  Haut
actif sujet actif   clos sujet clos   Important! Important!   Nouveau Nouveau message   -   Rectifier Rectifier message   Clôturer Clôturer sujet   Remonter Remonter
[]
Catégories de discussion  Forum 



Haut