僅當表填充時輸出文件

Question

所以我有一個文件QC來驗證所有必需的字段實際上是否存在且格式正確。查詢運行後，它將任何不良記錄放在表中。我想要做的是使用VBA將此表導出到文件中，以便向客戶端發送錯誤消息，以向他們顯示任何不良記錄，以便他們可以編輯它們並將其發回。

Command Click 42() 

    DoCmd.TransferText acExportDelim, "", "QC_Table", "C:\Users\moore\Desktop\EST-" & Format$(Date, "MMM-dd-yy") & ".txt", False 
    MsgBox "Exported to C:\Users\moore\Desktop\EST-" & Format$(Date, "MMM-dd-yy") & ".txt" 

End Sub 

我用它導出就好，但我希望它只在表格至少有1條記錄時才運行。我知道我應該使用，如果陳述我只是不確定如何說如果表是填充。

感謝您對此事的任何幫助！

Answer 1

您需要先添加支票。這將計數QC_Table中的記錄數。如果不是數大於零，做一些事情：

Command Click 42() 
Dim rst as recordset 
set rst=currentdb.openrecordset("Select count(*) from QC_Table") 
if rst.fields(0)>0 then 
    DoCmd.TransferText acExportDelim, "", "QC_Table", "C:\Users\moore\Desktop\EST-" & Format$(Date, "MMM-dd-yy") & ".txt", False 
    MsgBox "Exported to C:\Users\moore\Desktop\EST-" & Format$(Date, "MMM-dd-yy") & ".txt" 
endif 

End Sub