Link event to another form

[Thompyt]

Say I have 2 forms developed

Form.Start and Form.Stop

Both can email the same form. I have a report open button and an email form button. When I select the Open form button, I also have an email button on the report itself.

I have duplicate VBA code in the report and the form.start doing the same email. How can I link the button in the report to the Form.start email button?

If I select the email button to edit the [Event Procedure] it takes me automatically to the report's VBA, I would like to link it to the forms VBA code.

Gracias

[pbaldy]

You can make the form event public and call it from the report, but personally I'd create a public function and call it from both.

[davegri]

The report must have its own code module. The Button_onclick event must be in that module.
It the FORM name is formStart and the button on that form is named SendEmail
Then the code for the REPORT button on_click event should be
Call FORM_formStart.SendEmail

Form formStart must be loaded for this to work.
UpRider

[Thompyt]

pbaldy,
How do I make this "Public" other than changing the name from Private Sub?

[pbaldy]

Just change Private to Public.

[Thompyt]

It can't be as easy as that. I have to do that on both the report and the form? Do I need to have some sort of centralized place? Do I leave all the code in one and just the Public Sub_Send_Email_Click()?

[pbaldy]

So you didn't try? Change Private to Public in the form. In the report:

Forms!FormName.ButtonName_Click

But as mentioned that requires the form to be open, which is why I'd use a public function called by both.

[Thompyt]

Pbaldy,
I did change it, I was a bit surprised of the simplicity on that part.

Whare do I put the "Forms!FormName.ButtonName_Click" I have tried it in the report under the select button on click event = Form!Start.Send_Open_Click. I have also tried putting it in the Buttons' name, and in the reports VBA under the Private Sub Send_Open_Click()

[Thompyt]

I think I have found it.
Seems to work on one form/report set
The other doesn't....yet

Report
Private Sub Send_Open_Click()
Call Form_Start.Send_Open_Click
End Sub

Form Change Private to Public

[pbaldy]

So you've got it working?

[Thompyt]

Yes I did! Thanks pbaldy. I'll mark as solved.

[pbaldy]

Happy to help!