Discussion :

[sud825]

J'utilise actuellement le controle calendrier activeX dans les champs date qui sont situé dans mes différents formulaires . Le tout fonctione très bien . Voici comment je l'utilise avec un module Mo_fonction

Code :

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

1
2
3
4
5
Function Fct_FS_Date()
Dim Z_Date As Date
DoCmd.OpenForm "FS_Date"
 
End Function

Le calendrier es sous forme de formulaire FS_Date

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub FB_Annuler_Click()
DoCmd.Close
 
End Sub
 
Private Sub FB_OK_Click()
Dim Z_Date As Date
Z_Date = FC_Date
DoCmd.Close
Screen.ActiveForm.ActiveControl = Z_Date
 
End Sub

Dans mes formulaires les champs qui contienne une date ont un évenement sur le double clique =Fct_FS_Date()

Par contre lorsque le champs date ce situe dans un sous formulaire , le calendrier apparaît mais lorsque je choisis la date il m'indique l'erreur 438 .

Merci à l'avance !!

[LedZeppII]

Bonjour,

Essaie avec Screen.ActiveControl.Value = Z_Date

Le problème doit venir de ce que ActiveForm est le formulaire principal.
Et ActiveControl du formulaire principal est le contrôle sous-formulaire, pas le contrôle dans
lequel tu as double cliqué.

A+