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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 FunctionOr, une erreur "nom de fonction ou variable attendue" ressort, comment faire ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Sub FormCadre() X = "Forms![menu]![Cadre].Form" X.SourceObject = "devis et facture" VBA.UserForms.Add(X).Show End Sub
Nota: j'aimerai que la dite variable soit aussi valide lorsque je suis dans une requête ...
Merci
Partager