Discussion :

[hellmaster78]

Bonjour tout le monde,

Je viens vers vous car je bloque sur une pauvre ligne de code :

Je dispose de 3 variables :

Code :

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

1
2
3
Dim str_form_source As String 'nom du formulaire source
Dim str_lst_source As String    'nom de la listbox
Dim str_sousForm_source As String 'nom du sous formulaire source

L'architecture est la suivante le formulaire (dont le nom est dans str_form_source) contient un sous-formulaire (dont le nom est dans str_sousForme_source) qui lui même contient une listbox (dont le nom est dans str_lst_source)

Dans une fonction, je souhaite modifier la propriété rowsource de ma listbox "str_lst_source".

Ce que j'arrive à faire :

En mettant directement le nom de mon sous-formulaire "en dur", ce que je souhaite faire fonctionne (le sous formulaire se nomme SF_RULE_DETAIL) :

Code :

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

1
2
Form_SF_RULE_DETAIL.Controls(str_lst_source).RowSource = "ma source"
Form_SF_RULE_DETAIL.Controls(str_lst_source).Requery

Par contre, je ne parviens pas à faire la même chose avec mes variable str_form_source ou/et str_sousForm_source. j'ai tenté avec la collection, Forms, mais je ne doit pas trouver la bonne syntaxe.

Quelqu'un peut-il m'aider ??

[Jean-Philippe André]

Salut,
si je comprends bien ta question, essaie ceci :

Code :

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

1
2
Forms(str_form_source ).Controls(str_lst_source).RowSource = "masource"
Forms(str_form_source ).Controls(str_lst_source).Requery

[hellmaster78]

Non, cela ne fonctionne pas, car la listbox se trouve dans le sous formulaire (str_sousForm_source)

Donc, au début, j'avais fait quelquechose dans le même style :

Code :

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

1
2
Forms(str_sousForm_source).Controls(str_lst_source).RowSource = "ma source "
   Forms(str_sousForm_source).Controls(str_lst_source).Requery

mais ca ne lui plait pas :

Impossible de trouver le formulaire 'SF_RULE_DETAIL' auquel il est fait référence dans une expression de macro ou un code Visual Basic.

[hellmaster78]

So ?

Personne n'a déjà été confronté à ce problème ?

[micniv]

Ajoute l'encapsulation du formulaire :

Code :

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

1
2
3
 
forms("leFormulaire")!Forms(str_sousForm_source).Controls(str_lst_source).RowSource = "ma source"
   forms("leFormulaire")!Forms(str_sousForm_source).Controls(str_lst_source).Requery

[Lou Pitchoun]

Salut,

un Excellent article : http://loufab.developpez.com/appelformulaire

[hellmaster78]

Je viens d'essayer :

Code :

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

1
2
   Forms(str_form_source)!Forms(str_sousForm_source).Controls(str_lst_source).RowSource = "ma source"
   Forms(str_form_source)!Forms(str_sousForm_source).Controls(str_lst_source).Requery

Mais ca ne marche pas :

Impossible de trouver le champ 'Forms' auquel il est fait référence dans votre expression.

[morobaboumar]

Ajoute l'encapsulation du formulaire :

Code :

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

1
2
3
 
forms("leFormulaire")!Forms(str_sousForm_source).Controls(str_lst_source).RowSource = "ma source"
   forms("leFormulaire")!Forms(str_sousForm_source).Controls(str_lst_source).Requery

Bonsoir micniv,

l'encapsulation du formulaire

Pourriez vous m'expliquer comment programme t on une zone de liste attachée à un sous formulaire encapsulé dans
un formulaire principal ?
Cordialement.