Discussion :

[PatSan]

Pour simplifier l'explication de mon problème :

Dans la form FormA, j'ai le code suivant :

Code :

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

1
2
3
Public Function Proc()
    MsgBox "Hello"
End Function

J'ai créé une subform FormB (dans la form FormA).
Elle contient un bouton "cmd_bouton" via lequel je veux appeler la function Proc de la fenêtre parent formA

J'ai utilisé le code suivant :

Code :

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

1
2
3
4
5
6
private sub cmd_bouton_Click()
	Dim lstr_proc As String
 
    	lstr_proc = "Form_FormA.Proc()"
    	Application.Run (lstr_proc)
end sub

A noter que le nom FormA peut varier...

Apparemment, access ne trouve pas la fonction ?

Quelqu'un peut-il m'aider ?

[PatSan]

J'ai trouvé la solution...

Il suffit de faire :

Code :

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

1
2
3
4
5
6
7
8
Private Sub cmd_bouton_Click()
 
    Dim lfrm_parent As Form
 
    Set lfrm_parent = Me.Form.Parent
    CallByName lfrm_parent, "Proc", VbMethod
 
End Sub