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 : 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
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])