Discussion :

[vince07]

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

[electrosat03]

Salut,

Tu dois placer dans un module une variable

Code :

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

Public Form_Actif As String

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

Code :

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

Form_Actif="Nom du formulaire"

Et dans ta function, tu fais un test du genre

Code :

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

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+

[Jean-Philippe André]

Salut,
autre alternative :

Code :

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

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

[vince07]

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

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


Merci à vous deux ...