Ms access 仅当填充了表时才输出文件

因此，我有一个文件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条记录时运行。我知道我应该使用and if语句，但我不确定如何表示该表是否已填充

---

谢谢你在这件事上的帮助

您需要先添加一个检查。这将统计QC_表中的记录数。如果大于数字大于零，请执行以下操作：

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

---

如果DCount（“*”，“QC_Table”）>0，则“执行导出”

完美。再次谢谢你，汉斯