Access VBA OpenRecordset Error

Mac1206

Board Regular
Joined
Jun 3, 2016
Messages
184
I have a VBA code cmdSendRpt_Click() button that errors on Set rst = CurrentDB.OpenRecordset(strSql) and when I hover over the error it says rst = Nothing and I can't for the life of me understand why....

Private Sub cmdSendRpt_Click()

Dim rst As DAO.Recordset
Dim strSql As String

strSql = "Select * FROM Max_Pymt_EmailDetails;"

Set rst = CurrentDb.OpenRecordset(strSql)

Do While Not rst.EOF

Me.txtID = rst![ID]


DoCmd.SendObject acOutputQuery, "Max_Pymt_EmailDetail1", acFormatXLS, "email", , "This is just a test to email delivery", "Hello, this is working properly and we are on our way", False

DoEvents
rst.MoveNext


Loop


rst.Close

Set rst = Nothing


End Sub

This is my query:

SELECT Max_Pymt_PymtEmailDetail.ID, Max_Pymt_PymtEmailDetail.Email
FROM Max_Pymt_PymtEmailDetail;
 

Excel Facts

Is there a shortcut key for strikethrough?
Ctrl+S is used for Save. Ctrl+5 is used for Strikethrough. Why Ctrl+5? When you use hashmarks to count |||| is 4, strike through to mean 5.

Forum statistics

Threads
1,223,908
Messages
6,175,305
Members
452,633
Latest member
DougMo

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top