Passer nom de formulaire en variable dans fonction publique

Bonjour à tous,

Je voudrais pour rendre plus facile à lire mon code passer en variable le nom d'un formulaire qui sert de cadre général à d'autres formulaires.

J'ai donc mis ce code dans un module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Public Function CreerFacture()   Dim Afrm As String Set Afrm = FormCadre()   Afrm.SourceObject = "devis et factures"   Afrm.Caption = "Création d'un nouveau document Facture" Afrm.TypeDoc = "FACTURE" Afrm.EtatDocument = "Création" Afrm.NumDocument = NumAuto(frm.TypeDoc, frm.DateDoc) Afrm.BtnGenererAvoir.Visible = True Afrm.BtnSolderFacture.Visible = True Afrm.BtnImprimer.Caption = "Imprimer Facture" Afrm.BtnTransformerenFacture.Visible = False     End Function

---

Code:

---

1 2 3 4 5

Sub FormCadre() X = "Forms![menu]![Cadre].Form" X.SourceObject = "devis et facture" VBA.UserForms.Add(X).Show End Sub

---

Or, une erreur "nom de fonction ou variable attendue" ressort, comment faire ?

Nota: j'aimerai que la dite variable soit aussi valide lorsque je suis dans une requête ... :)
Merci

Bonjour.

La variable X est-elle déclarée quelque part? Dans les déclarations du module? Sinon, il faudrait la déclarer dans le code Sub...

Code:

---

Dim X As Form

---

Je n'ai pas fait d'essai...

Cordialement.

Merci pour ta réponse RobiPMS, j'ai déclaré la variable comme tu l'as suggéré mais la même erreur est toujours là :(

Bonjour,

En complément de la réponse de Robert :

Code:

---

Sub FormCadre()

---

Etant donné que vous utilisez Sub, cela ne renvoie aucun objet !

Cela ne serait pas plutôt :

Code:

---

1 2 3 4

Function FormCadre() as Form .... Set FormCadre=X End function

---

De plus :

Code:

---

1 2	Dim Afrm As String Set Afrm = FormCadre()

---

Afrm est une chaine de carcatère ! Cela ne serait pas plutôt :

Code:

---

1 2	Dim Afrm as Form Set Afrm = FormCadre()

---

Cordialement

Merci pour cette réponse, maintenant il y a un message "utilisation incorrecte de la propriété" pointant vers la ligne 21, cela à avoir apparement avec le formulaire en question dont la syntaxe finit par un "!" or la variable étant devant un point ça ne va peut être pas marcher.

Faut il plutôt mettre le nom du formulaire tel que le représente Access en VBA dans la collection forms ?

Je ne sais pas quelle serait sa syntaxe ...



Voici le nouveau code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Public Function CreerFacture()   Dim afrm As Form Set afrm = FormCadre()   afrm.SourceObject = "devis et factures"   afrm.Caption = "Création d'un nouveau document Facture" afrm.TypeDoc = "FACTURE" afrm.EtatDocument = "Création" afrm.NumDocument = NumAuto(afrm.TypeDoc, afrm.DateDoc) afrm.BtnGenererAvoir.Visible = True afrm.BtnSolderFacture.Visible = True afrm.BtnImprimer.Caption = "Imprimer Facture" afrm.BtnTransformerenFacture.Visible = False     End Function Public Function FormCadre() As Form Dim x As Form x = "Forms![menu]![Cadre].Form!" VBA.UserForms.Add(x).Show End Function

---

Je pensais qu'il y aurait un code bcp plus simple, une simple variable à déclarer sur chaque formulaire/bouton qui en aurait besoin...

Merci beaucoup

Code:

---

x = "Forms![menu]![Cadre].Form!"

---

:rouleau: Même réflexion que tout à l'heure, x est une variable objet Form et vous lui affecter une chaîne de caractère !

Cela devrait ressembler ça :

Code:

---

Set x=Application.Forms("Nom de votre formulaire")

---

Bon, on progresse , merci , mais maintenant il dit ne pas trouver le formulaire !

Ce formulaire s'appelle "Menu" et contient un cadre container s’appelant "cadre"... j'ai beau essayer toutes les combinaisons, il dit ne pas le trouver !!!!

Bon ok,

De votre code, j'avais déduit que vous FormCadre devait pointé un objet Form, c'est à dire un formulaire !

Quel objet, et situé où, doit renvoyé FormCadre ?

Cette fonction a pour but de remplacer le nom de certains formulaires par une variable courte représentant le nom du formulaire désiré, elle doit être disponible depuis n'importe quel endroit du projet ...

Je pensais que l'on pouvait mettre le nom du formulaire en string et le déclarer en variable tout simplement mais apparement ce n'est pas possible...

Donc quelque chose comme cela:

Code:

---

1 2 3 4 5 6 7

Function DonneFormulaire (byVal strFormulaire as string) as Form   Set DonneFormulaire=Application.Forms(strFormulaire)   End function   Set afrm=DonneFormulaire("devis et factures")

---

ou plus rapide :

Code:

---

Set afrm=Application.Forms("devis et factures")

---

Je ne l'ai pas testé. De plus, si le formulaire n'est pas chargé, je crois que Access provoque une erreur. Le formulaire désigné est-il obligatoirement chargé ?

Merci pour tout ce boulot mais ça ne marche pas :

Il ne s'agît pas d'ouvrir le formulaire directement par son titre mais de faire référence à la chaîne (forms!menu.cadre.form!) et ne pas avoir à la recopier à chaque fois...

Autrement dit :

Tous les formulaires dans mon application sont affichables dans le container "Cadre" du formulaire "Menu".
Lorsque je veux faire référence dans mon code ou requêtes à ce container, je suis obligé d'écrire "forms!menu.cadre.form!" et ce que je veux c'est justement me faciliter la tâche en déclarant "Afrm" comme variable contenant la dite chaîne sans avoir à la retaper des centaines de fois ...

C'est peut-être possible, quand vous dites "Container" est-ce ce qui contient un sous-formulaire dans un formulaire (SubForm)

a) Quelle est la nature exacte du contrôle Cadre du formulaire Menu ?

Mettons que cadre est un contrôle sous-formulaire (il me semble que cela doit être ça) :

Code:

---

1 2 3 4 5 6 7 8

Function DonneFormulaire () as Form   Dim strFormCible as string   strFormCible=Application.Forms("Menu").Controls("Cadre").SourceObject 'Donne la valeur de la propriété Objet Source du contrôle Sous-formulaire Cadre Set DonneFormulaire=Application.Forms(strFormCible)   End function

---

Mettons que cadre est un groupe d'option qui renvoie bien le nom du formulaire dans sa propriété value

Code:

---

1 2 3 4 5 6 7 8

Function DonneFormulaire () as Form   Dim strFormCible as string   strFormCible=Application.Forms("Menu").Controls("Cadre").Value Set DonneFormulaire=Application.Forms(strFormCible)   End function

---

J'ai mis ce code en m'inspirant de ta réponse :

Code:

---

1 2 3 4 5 6 7 8

Function Afrm() As Form   Dim strFormCible As String   strFormCible = Application.Forms("Menu").Controls("Cadre") Set Afrm = Application.Forms(strFormCible)   End Function

---

Il me dit "nombre d'arguments incorrect ou affectation de propriété incorrecte en pointant la ligne 5

Que faire ?

Je sais qu'on en est pas loin ! :)

Bonjour,


strFormCible est une chaîne de caractère, donc elle attend bien une chaine de caractère, et là comme plus haut, vous lui affectez un objet !

Qu'est ce qui ne fonctionne pas dans :

Code:

---

1 2 3 4 5 6 7 8

Function DonneFormulaire () as Form   Dim strFormCible as string   strFormCible=Application.Forms("Menu").Controls("Cadre").SourceObject 'Donne la valeur de la propriété Objet Source du contrôle Sous-formulaire Cadre Set DonneFormulaire=Application.Forms(strFormCible)   End function

---

Et votre contrôle cadre est bien ce qui contient un sous-formulaire dans un formulaire (SubForm) ?

Je crois qu'on s'est mal compris.

Je veux simplement que la référence au container nommé "cadre" et qui s'écrit "Forms!menu!cadre.form" soit inclus dans une variable dont le nom écourté sera beaucoup plus facile à gérer.

Je n'ai pas besoin de connaître son objectsource, que je peux lui imposer à n'importe quel moment suivant la situation...

En bref je voudrais tout simplement qu'au lieu d'écrire :

- "forms!menu!cadre.form" + argument

Je puisse écrire partout, même dans les requêtes en VBA :

Afrm + argument

Afrm étant le nom de la variable remplaçant la chaîne citée plus haut.

Merci

Citation:

---

Envoyé par clickandgo

Je crois qu'on s'est mal compris.

---

Donc l'objet visé est bien de type SubForm, donc la fonction devient

Code:

---

1 2 3 4 5 6

Function SousFormulaire() As SubForm   Set SousFormulaire = Application.Forms("Menu").Controls("Cadre")     End Function

---

et

Code:

---

1 2 3

Dim sfX as SubForm   Set sfX = SousFormulaire()

---

Cordialement,

Merci Pepito78,

Ca ne marche toujours pas !

Je reçois le message d'erreur qui surligne "caption" comme objet introuvable

voici le code final:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Public Function CreerFacture()   Dim afrm As SubForm Set afrm = FrmCadre()   'AFrm pour formulaire Cadre   afrm.SourceObject = "devis et factures"   afrm.Caption = "Création d'un nouveau document Facture" afrm.TypeDoc = "FACTURE" afrm.EtatDocument = "Création" afrm.NumDocument = NumAuto(afrm.TypeDoc, afrm.DateDoc) afrm.BtnGenererAvoir.Visible = True afrm.BtnSolderFacture.Visible = True afrm.BtnImprimer.Caption = "Imprimer Facture" afrm.BtnTransformerenFacture.Visible = False     End Function   Function FrmCadre() As SubForm   Set FrmCadre = Application.Forms("Menu").Controls("Cadre")   End Function

---

Je n'avais pas cette erreur quand le nom du formulaire n'était pas encore mis en variable ...

Qu'est -ce qui cloche ?

Rien !

Un SubFom n'a pas de propriété Caption.

Si vous voyez un titre d'un container de sous-formulaire, c'est un contrôle étiquette collé à côté, il n'a pas non plus de propriété DocumentType, ni de propriété ....

Si je retire la ligne en question la même erreur se produit sur tous les autres attributs, il y a donc quelque chose qui cloche ...

Si je remplace la variable par le nom du formulaire tout va bien !

Donc, que faire ?

C'est ce que j'essaye de vous dire depuis un moment !

Voulez-vous atteindre l'objet qui contient le sous-formulaire (cadre) ou le sous-formulaire contenu dans cadre. A la vue de votre code, vous voulez mixer les deux. Donc je vous ai donné les deux fonctions : Celle qui permet d'atteindre le formulaire contenu et l'objet contenant (Cadre)

Cordialement,