Discussion :

[Secco]

Bonjour

Je fais appel à vous car même après recherche dans le forum ou autres tutos bien utiles sur ce site, je n'ai pas trouvé comment remplir un contrôle d'un onglet d'un autre formulaire.

Je m'explique, j'ai un formulaire : FORM1 à partir duquel j'ouvre un formulaire FORM2. Dans FORM2 il y a un contrôle onglet CTL0 qui a 2 pages (PAGE1, PAGE2). Dans la PAGE1 j'ai une zone de texte L_1 que je souhaiterais remplir. Et c'est là où ça coince...

Et le code suivant, ne fonctionne pas :

Code :

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

1
2
3
4
5
6
 
Private Sub Cmd_Click()
DoCmd.OpenForm "FORM1"
NomEtiq1 = "Forms![FORM1]![CTL0]![L1]"
Controls(NomEtiq1).Value = "test"
End Sub

Merci pour votre aide
Secco

[madefemere]

Bonjour,

Cela :

FORM1 à partir duquel j'ouvre un formulaire FORM2

est différent de

Code :

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

DoCmd.OpenForm "FORM1"

Et Tu fait référence à L_1 alors que dans le code on a L1 ?

Peux-tu te relire stp et ré-expliquer exactement ce que tu veux faire car ça devrait être assez simple :

Code :

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

1
2
3
4
5
6
Private sub Bouton_Click
'On ouvre Form2 à partir de Form1 :
Docmd.Openform "Form2"
'On attribue la valeur "Test" au contrôle L1 de Form2 par :
Forms!Form2!L1 = "Test"
end sub

Bonne continuation.

[Secco]

Bonjour madefemere

En effet, j'ai voulu modifier mon code pour plus de visibilité et éviter de rentrer dans des détails inutiles, mais au final... ça ne veut plus rien dire !

Donc, voici la version modifiée :

Code :

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

1
2
3
4
5
6
7
 
 
Private Sub Cmd_Click()
DoCmd.OpenForm "FORM2"
NomEtiq1 = "Forms![FORM2]![CTL0]![L_1]"
Controls(NomEtiq1).Value = "test"
End Sub

Par ailleurs, j'ai également testé :

Code :

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

NomEtiq1 = "Forms![FORM2]![CTL0]![PAGE1]![L_1]"

qui ne fonctionne pas.

Le message d'erreur est le suivant à chaque fois :
"Erreur d'exécution '2465': Microsoft Access ne trouve pas le champ ""Forms![FORM2]![CTL0]![PAGE1]![L_1]"" auquel il est fait référence dans votre expression."

Merci d'avance pour votre aide
Secco

[madefemere]

Y a-t-il une raison particulière pour faire l'assignation de valeur par tes lignes 5 et 6 au lieu de

Code :

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

Forms!Form2!L_1 = "Test"

@+

[Secco]

Oui, parce qu'en réalité, je fais une boucle du type :

Code :

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

1
2
3
4
5
6
 
For i = 2 To NbT
   'Tout un blabla ici pour remplir la variable X
   NomEtiq1 = "Forms![FORM2]![CTL0]![L_" & i & "]"
   Controls(NomEtiq1).Value = X
Next

[madefemere]

Je verrai cela de cette façon :

Code :

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

1
2
3
4
5
6
dim Ctl as control
For i = 2 To NbT
   'Tout un blabla ici pour remplir la variable X
    set Ctl=Forms![FORM2].controls("L_" & i)
    Ctl.value = X
Next i