IsNull

[JJCHCK]

Private Sub Comando2_Click()
 On Error GoTo errore:
Dim dbs   As DAO.Database
Dim qdf   As QueryDef
Dim rs As DAO.Recordset
Set dbs = CurrentDb

For Each qdf In CurrentDb.QueryDefs
   
  If (qdf.ReturnsRecords) = True Then
       DoCmd.SendObject acSendQuery, qdf.Name, acFormatPDF, pluto@mail.it, , , "obj", "subj"
   
Else
    Debug.Print qdf.Name
End If
 Next qdf
 
Set qdf = Nothing
Set dbs = Nothing
DoCmd.Close qdf.Name
errore:
    MsgBox Err.Description & Err.Number, vbInformation, "azione annullata"
   Err.Clear
End Sub

What's wrong in this code: i would test query's recordset befor to send email. IF recordset is empty i would not that query


help

[Rhino373]

Where does it throw an error? You do need to exit the sub before you get to your error label or it will throw your error message box everytime.

[JJCHCK]

this line code dosent work "If (qdf.ReturnsRecords) = True Then":
if the query have no record that goes in attachements in email
but i would not send blank report in my email
sorry for english

[JJCHCK]

i forget: i have report that sometime have records and other time no but i want
send all my mail without remember this