Discussion :

[djulien19]

Bonjour à tous!
J'aimerai savoir comment on peut procéder pour changer la valeur par défaut d'un champ sans passer par les propriètés de la table. Pour mon projet, il s'agit de changer tous les ans la promo d'une classe et qu'ensuite on puisse enregistrer dans chaque formulaire sous jacent tenant compte de cette promo.
Je pense à une macro. La seule chose que j'ai trouvé sur les forums concerne la macro "définir valeur" mais je ne sais pas quoi renseigner dans l'expression... un vraifaux? Et comment retrouver ensuite dans les fonctions intégrées : valeur par défaut?
J'espère être assez clair, n'hésitez pas à me demander plus de précisions si c'est nécessaire, merci d'avance de vos réponses!

[tAKAmAkA]

Bonjour et bienvenue,

Je ne connais pas les macros, je me bornerai à te montrer ce qui marche dans mon code:
Sur un évènement de ton sous formulaire comme Avant MAJ de ta zone de texte txtPromo tu mets:

Code :

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

Me.txtPromo.DefaultValue = Chr$(34) & Me.Parent.Promo.Value & Chr$(34)

où:
Me désigne ton formulaire courant (en l'occurence ton sous-formulaire)
Me.Parent ton formulaire principal
Promo est la source contrôle dans ton formulaire principal du champ à passer
Chr$(34) est une double côte, à utiliser si ton champ Promo est un texte si Promo est numérique tu ne mets rien.

Il reste à voir l'intéret que présente la duplication d'un champ entre (je suppose) un table et une table liée...

En espérant avoir été clair (je ne suis pas un expert)

[FreeAccess]

Bonjour,
En espérant avoir compris le sens de ta question......

....il s'agit de changer tous les ans la promo d'une classe ...

Si en parlant de "promo" tu désigne le millésime (2000, 2001.....) je pense que tu dois avoir dans une table un champ représentant l'année de la promotion:
Exemple:
Dans une table T_INIT, tu posséde le champ "An" qui stockeras l'année.

Tu peux très bien faire évoluer la valeur de ce champ, grace à ce code:

Code :

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

1
2
'Initialisation de la nouvelle Année
DoCmd.RunSQL "UPDATE T_INIT SET T_INIT.An = An +1;"

Cela correspond à ta demande