Access Macro / VBA Question
I have a Email macro which I converted to VB in Access 2016. When you click the Email button for each record the macro attaches the detail spreadsheet and email the client. I have to click this email button a total of 550 times or more for each client records...My form has two parts to it...I click on each Payee record to pull the details form up and then I click on the Email Detail button to email the client with their attached detail pay spreadsheet. I would like the Email button to loop through each record and perform the task without having to manually go through each record until EOF but I'm unsure how and where to place this in my macro or code...Any help with this would be greatly appreciated...Thanks in advance...See the sample files below...
Sample_Code.txt
Email_Macro.png
Sample_Code.txt
Email_Macro.png
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
You could put the email code in a while - wend loop.
The code below just prints out 20 when it's done. Your code would go in the while section and assumes you know the number of client records (550+). If you have the clients in a table it should be easy enough to determine the number.
If you need to count records of the client maybe try DCount to return the number of records and let that be your end(i.e., replace the 20 in the sample code).
The code below just prints out 20 when it's done. Your code would go in the while section and assumes you know the number of client records (550+). If you have the clients in a table it should be easy enough to determine the number.
If you need to count records of the client maybe try DCount to return the number of records and let that be your end(i.e., replace the 20 in the sample code).
Dim Counter
Counter = 0 ' Initialize variable.
While Counter < 20 ' Test value of Counter.
Counter = Counter + 1 ' Increment Counter.
Wend ' End While loop when Counter > 19.
Debug.Print Counter ' Prints 20 in the Immediate window.
Function EmailPymtDetail()
On Error GoTo EmailPymtDetail_Err
Dim rst as DAO.RecordSet
'Here i assume that you have a table named clients that has this structure
' ClientID , ClientName,ClientEmail
with rst
While Not .EOF
DoCmd.SendObject acQuery, "CurrentDetail", "Excel97-Excel2003Workbook(*.xls)", .Fields("ClientEmail"), "", "", "Bill Cleaning Services: Payment Detail", "Greetings. Please find the attached payment detail for the payment released today from the Cleaning Custodian. If you have any questions or would like additional information please contact Bill@cleaningonline.com."
.MoveNext
Wend
end With
EmailPymtDetail_Exit:
Exit Function
EmailPymtDetail_Err:
MsgBox Error$
Resume EmailPymtDetail_Exit
End Function
Premium Content
You need an Expert Office subscription to comment.Start Free Trial