Nom d'un formulaire variable dans une fonction

Bonjour,

J'appelle la même fonction à partir de 4 formulaires différents
Je souhaiterais rendre le nom du formulaire variable.
J'ai essayé d'adapter mon code à celui trouvé dans d'autres post mais çà ne fonctionne pas.
Dans le code ci-dessous, j'essaye de récupérer un champ issu d'un formulaire.
Le formulaire s'appelle "TEST 1".
J'ai essayé plusieurs syntaxe mais j'ai des messages d'erreur à chaque fois.
En mettant le nom du formulaire "non variable" çà fonctionne :
JRDVERS me ramène ce que je veux.

Je dois faire une erreur de syntaxe quelque part .. mais ou ?
Merci de votre aide
Cordialement

Code:

---

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

Public Function RECALCULER()   Dim JRDVERS As Integer Dim TEST As Integer Dim NOMFORM As String   Dim frm As Access.Form Set frm = Screen.ActiveForm   NOMFORM = "[" & frm.Name & "]" 'NOMFORM = frm.Name MsgBox (NOMFORM)   'TEST = Day(Forms!NOMFORM.[Date Versement]) TEST = Day(Forms.NOMFORM.[Date Versement]) MsgBox (TEST)   JRDVERS = Day(Forms![Test 1].[Date Versement])

---

Salut,

Tu dois placer dans un module une variable

Code:

---

Public Form_Actif As String

---

Ensuite, dans le formulaire, avant d'appeler ta function, tu mets

Code:

---

Form_Actif="Nom du formulaire"

---

Et dans ta function, tu fais un test du genre

Code:

---

1 2 3 4

If Form_Actif="xxxxxxxxxx" then code code endif

---

Un conseil, lors de l'ouverture des formulaires, remet Form_Actif=""

Voilà
A+

Salut,
autre alternative :

Code:

---

TEST = Day(Forms(NOMFORM).[Date Versement])

---

Merci @ Electrotsat : Mais avec la variable "set frm", j'avais déjà le bon nom du formulaire ...

et merci @ jpcheck : C'étais la solution !!!
:king:

Merci à vous deux ...