Discussion :

[T'chab]

voila mon souci

dans un sous formulaire, je souhaite qu'un calendrier permette la saisie d'une date
donc, j'apelle ma fonction

mais access m'envoie un grand msgbox quand je vais pour valider la date choisie.

"erreur d'execution 438"

mon problème vient de la ligne en gras!!!!

Code :

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

1
2
3
4
5
6
7
8
Private Sub FB_OK_Click()
Dim Z_date As Date
    Z_date = FC_Date
    DoCmd.Close
    Screen.ActiveForm.ActiveControl = Z_date
    
End Sub

a l'aide!!!!

[nuriel2]

Salut,

Je me suis pose quelques questions sur ton probleme:
- FC_Date est une variable globale (l3) ?
- As tu encore access a Z_Date apres la fermeture du formulaire (l4) ?
- Est on sur qu'un control dans le formulaire actif a le focus (l5) ?
- mais surtout, activeControl renvoie un control. Je ne pense pas qu'on puisse lui affecter une date (ou alors par sa propriete value s'il en possed une). Regarde l'aide VBA...

Bonne chance