Access VBA OpenRecordset Error

Mac1206

Board Regular
Joined
Jun 3, 2016
Messages
170
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;
 

Some videos you may like

Excel Facts

Links? Where??
If Excel says you have links but you can't find them, go to Formulas, Name Manager. Look for old links to dead workbooks & delete.

JonXL

Active Member
Joined
Feb 5, 2018
Messages
326
Office Version
365, 2016
Platform
Windows
What is the error?
 

Watch MrExcel Video

Forum statistics

Threads
1,095,733
Messages
5,446,188
Members
405,390
Latest member
RafalKowalski

This Week's Hot Topics

Top