Discussion :

[guenfood]

Bonjour,

J'ai un formulaire calendrier avec le code suivant sur le bouton ok :

Code :

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

1
2
3
4
5
6
7
8
Private Sub OK_Click()
Dim temp As String
 
    temp = Me.ICalendrierX2.Value
 
    DoCmd.Close acForm, Me.ICalendrierX2
    Screen.ActiveControl.Value = temp
End Sub

Sur un contrôle d'un autre formulaire, sur l'évènement "sur clic", j'ai le code :

Code :

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

1
2
3
4
5
Private Sub Date_Reponse_Click()
Dim calendrier
    calendrier = "FCalendrier"
    DoCmd.OpenForm calendrier
End Sub

Pourtant, dès que je clique sur le contrôle, j'ai bien mon formulaire calendrier qui s'ouvre, et quand je clique sur OK, j'ai le message "Erreur d'exécution '2101' Le paramètre entré n'est pas valide pour cette propriété".

Késako ??

[guigui5931]

Si tu met ça

Code :

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

DoCmd.Close acForm, Me

à la place de

Code :

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

DoCmd.Close acForm, Me.ICalendrierX2

[guenfood]

Idem

J'ai cette partie de code qui est surlignée :

Code :

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

temp = Me.ICalendrierX2.Value

[guigui5931]

Et en fait c'est quoi comme controle ICalendrierX2?

[guenfood]

C'est le contrôle correspondant au calendrier dans la version access 2002 que j'ai au boulot.

[guigui5931]

Faut que tu regarde dans la doc qu'est ce que ton calendrier te renvoi quand tu fais calendrier.value , ça doit surement pas être un champs texte c'est pour ça que ça plante
Je peux pas t'en dire plus je l'ai pas sur ma version d'ACCESS

[guenfood]

Le problème est résolu dans l'ensemble, la référence calendrier n'était plus bonne. (Formulaire pris sur une ancienne base access 97 et mis sur base 2002).
Maintenant, j'ai un message d'erreur "'Erreur d'exécution '438' propriété ou méthode non géré par cet objet".

Le code surligné est

Code :

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

Screen.ActiveControl.Value = temp

[guigui5931]

D'après ce que j'ai vu dans la doc la propriété ActiveControl est en lecture seule donc tu ne peut pas lui donner de valeur

Il faudrait que tu mette le nom de ton composant à la place de ActiveControl

[guenfood]

ActiveControl correspond sauf erreur de ma part, au contrôle actif de mon formulaire sur lequel je clique pour faire afficher mon formulaire Calendrier, et dans lequel la date choisie sur le calendrier doit s'inscrire.

Ce formulaire Calendrier devant être utilisé sur plusieurs contrôles différents, je ne vois pas comment faire autrement que de préciser ActiveControl.

[guigui5931]

Moi j'ai plus d'idée, il faudrait que t'arrive a désigner les controles par leur nom, mais ....

Bonne chance

[guenfood]

Je sèche royalement.

Quelqu'un aurait-il une solution ???

[Arkham46]

slt,

une idée : tu passes le nom du formulaire et du contrôle dans l'argument OpenArgs

Code :

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

1
2
3
4
5
6
Private Sub Date_Reponse_Click()
Dim calendrier
    calendrier = "FCalendrier"
    ' Recherche la position de l'argument Openargs
    DoCmd.OpenForm calendrier,,,,,,Me.Name & ":Date_Reponse"
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub OK_Click()
Dim temp As String
 
    temp = Me.ICalendrierX2.Value
 
    DoCmd.Close acForm, Me.ICalendrierX2
    Forms(Split(Me.OpenArgs,":")(0)).Controls(Split(Me.OpenArgs,":")(1)).Value = temp
End Sub
'

A tester, j'ai écris ça "à la volée".

[guenfood]

C'est pile poil ce qu'il manquait.

Ca marche impeccable désormais.
Juste le

Code :

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

DoCmd.Close acForm, Me.ICalendrierX2

à mettre en dessous de

Code :

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

Forms(Split(Me.OpenArgs,":")(0)).Controls(Split(Me.OpenArgs,":")(1)).Value = temp

et enlever le

Code :

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

acForm, Me.ICalendrierX2

Sinon, ca répond à mes besoins.

Merci beaucoup