Stop Macro on Null Query 1

[ebizleads]

How do I write an expression to stop a macro if a query returns no records?

EB

 

[THWatson]

EB
Your post doesn't indicate what the macro does.

Tom

 

[TheAceMan1]

How are ya ebizleads . . .

Something like this:

[blue]   Dim db As DAO.Database, rst As DAO.Recordset
   
   Set rst = db.OpenRecordset("[purple][b]QueryName[/b][/purple]", dbOpenDynaset)
   
   If Not rst.BOF Then
      [green][b]'Your Code Here[/b][/green]
   End If[/blue]

See Ya! . . . . . .

 

[ebizleads]

It runs another macro that runs this code:

Function EPack()
On Error GoTo EPack_Err


DoCmd.OpenForm "Main Lead Console", acNormal, "SCEmail", "", , acHidden
DoCmd.OutputTo acOutputReport, "EPackage", acFormatRTF, "C:\MyDebtIQ\Packages\" & Forms![Main Lead Console].[ClientID] & "_" & Forms![Main Lead Console].[qlast] & "_" & Forms![Main Lead Console].[qfirst] & ".rtf"
DoCmd.OpenQuery "SendContract-Email-U", acViewNormal, acEdit



EPack_Exit:
Exit Function

EPack_Err:
MsgBox Error$
Resume EPack_Exit

End Function

 

[TheAceMan1]

. . . and this:

[blue]   Dim db As DAO.Database, rst As DAO.Recordset
   
   Set rst = db.OpenRecordset("[purple][b]SendContract-Email-U[/b][/purple]", dbOpenDynaset)
      
   If Not rst.BOF Then
      Something = [purple][b]EPack()[/b][/purple]
   End If

   Set rst = Nothing[/blue]

See Ya! . . . . . .