Clic dans bouton de deuxieme form

Question

Bonjour,

Suite à ma question precedente, comment faire clic dans un bouton du deuxieme formulaire

Je suis dans le "Form1" et avec vba j'ai fait le suivant:

DoCmd.OpenForm "Form2"

DoCmd.GoToControl "CmdOK"

**Forms!Form2.CmdOK_Click '**Mais ça ne marche pas

Votre aide, svp

Merci d'avance

A Costa

Answer 1

Salut Costa,

Modifiez le modificateur d’accès du gestionnaire d’événements 'CmdOK_Click' dans Form2 de Private à Public. Cette modification accordera à d’autres contrôles ou macros dans Form1 les droits d’accès nécessaires à l’événement CmdOK.Click.

' Before
Private Sub CmdOK_Click()
' ...
End Sub

' After
Public Sub CmdOK_Click()
' ...
End Sub

Ensuite, dans Form1 (en supposant qu’il existe un CommandButton nommé CmdOpen), vous pouvez appeler directement le sous-programme 'CmdOK_Click' à partir de Form2 :

Private Sub CmdOpen_Click()
    DoCmd.OpenForm "Form2"
    Form2.CmdOK_Click
End Sub

Answer 2

Merci beaucoup.

Joyeux Noël