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;
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;