Automating Button Clicking

[csn102]

Greetings,

In my database, I have a split form that displays the results of a query. Those results can vary in number based on the parameters entered into my query. Now, I have a button that, when clicked, takes records from that query and sends it as an email report. This I have down and it works well. However, based on the results of the initial query, I may have to click the email button several times to 50+. I would like to automate the button click so that when clicked, it activates a macro (or vba) that collects the data for the email report and sends it.

So far, I haven't had much luck. The most I've been able to find is:

 public function clickButton(btn as Control) as boolean  btn.value = true
end function

but I haven't been able to get it to work successfully.

Is this doable? If so, what am I missing?

[Homegrownandy]

Word mail merge could be an option. Use the query as a data source and send out as many as you like

[bigot]

I would suggest doing it differently (I'll explain that), but I'll also show you how to do it your way.

Your way:
The button's click event handler is actually a function you can call! For example, if the VBA for the button is:

Private Sub Command1_Click()
    'code that does email stuff is here
End Sub

Then you can simply call "Command1_Click". However, if you have a continuous form, and you have multiple instances of the same button, it won't work as desired.

EDIT:
On second thought, if this is a continuous form, calling "Command1_Click" will call the first instance. So if you remove the row after the email is sent, then you can add a button to the header ("Mail all" or something):

Private Sub cmdMailAll_Click()
    While Form.Recordset.RecordCount > 0
        cmdMailReport_Click
        Form.Requery
    Wend
End Sub

I know I already said this, but just to be safe: in order for this to work, you MUST remove the row after the email is sent. Otherwise you will spam the first one forever. Also Form.Requery is required (same reason).
/EDIT


My Suggestion:
Rewrite the mail function to take a parameter that indicates which report to mail (use a primary key or other unique identifier). Example:

Sub MailDaReportYo(ReportID as Integer)

and then just call that in a loop that iterates all the rows in your split form.

Hope that helps. If you provide more detail or a database file, I can help further.






EDIT #2:
Lol, so many edits.

 public function clickButton(btn as Control) as boolean  btn.value = true
end function

This might work (untested):

public function clickButton(btn as Control) as boolean
Run( btn.Name & "_Click" )
end function

Simply takes your button's name and adds "_Click" to it, then runs that as a function.
/EDIT

[HiTechCoach]

This can be done it Acces with a little VBA code to use a recordset to loop through the records and send each email.

I have created an example that create a PDF for each record. It would be very easy to add the lines of code to send it as an email.

See: Batch Printing and Save As PDF (Click Here)