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.

[hellmaster78]

Salut,

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

Je l'ai déjà lu. Et effectivement il est très bien. Mais malheureusement il ne traite pas le cas le nom des formulaires et sous formulaires ne sont pas connus (car stockés dans des variables)...

J'ai fait beaucoup de recherches avant de poster ici (Je ne viens ici qu'en dernier recours )

[Lou Pitchoun]

Là, c'est de l'apprentissage et de la réflexion !!

Exemple où fRecherche est le formulaire principal, sfRecherche un sous formulaire et sPK est une variable contenant le nom d'un champ :

Code :

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

Forms.fRecherche.sfRecherche.Form(sPK)

Je testerais ceci :

Code :

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

Forms(variable).Form(variable).Form(NomChamp)...

[hellmaster78]

J'ai besoin de vacances...

En fait l'ERREUR, c'était d'avoir mis dans la variable str_sousform le nom du formulaire qui était la source du sous-formulaire, et non le controle sous-formulaire lui même...

Merci d'avoir perdu votre temps avec moi Je vais me pendre

[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.