TransferSpreadsheet - If empty do not export

S

StephanieH

I'm using TransferSpreadsheet to run several queries to a single spreasheet
so that each query has it's own tab in the spreadsheet. Sometimes, some of
the queries are empty. Is it possible to specify that if the query is empty,
do not export?
 
K

Klatuu

Dim rst As Recordset

Set rst = Currentdb.OpenRecordset("MyQueryName")

If rst.Recordcount < 1 Then
MsgBox "No Records For This Query"
Else
DoCmd.TransferSpreadsheet......
End If
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Want dates exported as dates, not strings 0
TransferSpreadsheet still truncates the memo field 1
Trying to create a report that will list unmatched records by Ticket Primary Key 0
Use transferspreadsheet in macro, randomly receive error 2950 8
Importing excel table but user to select table in macro 4
TransferSpreadsheet gives different behavior 0
TransferSpreadsheet to existing worksheet creates new worksheet instead. 4
TransferSpreadsheet 5

Top