Qry.Open_CRs
Code:
SELECT Chng_ReqQry.Levelz, Chng_ReqQry.CR_ID, Chng_ReqQry.CR_Numbers, Chng_ReqQry.Levels, IIf(([Chng_ReqQRY].[Sub_No]=0),Format([Chng_ReqQRY].[Date_ID],"dd mmm yy"),"") AS Date_IDs, Chng_ReqQry.Status, Chng_ReqQry.Change_Type, Chng_ReqQry.[HB Vers], Chng_ReqQry.Units, Chng_ReqQry.[MTOE Paras], Chng_ReqQry.People, Chng_ReqQry.[Change Requested], Chng_ReqQry.Rationale, Chng_ReqQry.NOTES, Chng_ReqQry.Action_Items, Chng_ReqQry.Action_Complete, Chng_ReqQry.NIE, Chng_ReqQry.AO_Vote, Chng_ReqQry.Hr, [Times Deferred III].[Days Open]
FROM [Times Deferred III] INNER JOIN Chng_ReqQry ON [Times Deferred III].CR_ID = Chng_ReqQry.CR_ID
WHERE (((Chng_ReqQry.Action_Complete)=False))
ORDER BY Chng_ReqQry.Levelz DESC;
Email VBA
Code:
Private Sub Send_Open_Click()
On Error GoTo ErrorMsgs
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookAttach As Outlook.Attachment
Dim objOutlookRecip As Outlook.Recipient
Dim strBody, strAddresses, strSubject As String
Dim rs As DAO.Recordset
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
Set rs = CurrentDb.OpenRecordset("SELECT CR_Numbers from Open_CRs")
If IsNull(Me.CR_Numbers) Then
With objOutlookMsg
.Subject = "Tomorrow's CR's - " & Format(Date + 1, "dd mmm yyyy")
.Body = "There are no Change Request actions for tomorrows CMB."
.Display
DoCmd.Close acReport, "Open by Level"
Exit Sub
End With
Else
With objOutlookMsg
Then email with CR_Numbers
It can't find CR_Numbers, where am I referencing wrong. IsNull(CR_Numbers) should be OK if there is an empty field.
Thanks