OVH Cloud OVH Cloud

Date par défaut

1 réponse
Avatar
Brigitte
Bonjour à tous!

J'ai une fois de plus besoin de votre aide si précieuse.
J'ai un formulaire avec un sous formulaire. Dans mon formulaire j'ai un
controle (indépendant) qui est active X MSComCtl2.DTPicker.2 en gros un
calendrier.
Dans mon sous formulaire j'ai un champ echéance et en fait je souhaiterai
que la valeur
par défaut de ce champ (lorsqu'on cré un nouvel enregistrement) prenne la
date selectionnée dans mon active X. Je dis valeur par défaut car
l'utilisateur pourra s'il le souhaite modifier cette date dans le sous
formulaire si besoin.

Merci d'avance pour votre aide.

@+

1 réponse

Avatar
g17254
sur l'événement Form_Before_update
Me.Texte0 = format(Forms![Formulaire1]![DTPicker0].Value,"DD/MM/YYYY")

A l'inverse, sur le formulaire principale,
([SFRM_Fille1].[Form]![Texte0] = Me.DTPicker0.Value

Pour touver ce genre de syntaxe, utiliser le generateur d'expression sur un
champ texte, propriété source controle par exemple...
Pensez à remplacer "Formulaire!..." par "Forms!..." dans du code VBA.


Bonjour à tous!

J'ai une fois de plus besoin de votre aide si précieuse.
J'ai un formulaire avec un sous formulaire. Dans mon formulaire j'ai un
controle (indépendant) qui est active X MSComCtl2.DTPicker.2 en gros un
calendrier.
Dans mon sous formulaire j'ai un champ echéance et en fait je souhaiterai
que la valeur
par défaut de ce champ (lorsqu'on cré un nouvel enregistrement) prenne la
date selectionnée dans mon active X. Je dis valeur par défaut car
l'utilisateur pourra s'il le souhaite modifier cette date dans le sous
formulaire si besoin.

Merci d'avance pour votre aide.

@+