2

所以我有一个文件 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 条记录时运行。我知道我应该使用 if 语句我只是不确定如何说表格是否已填充。

感谢您在这件事上的任何帮助！

4

1 回答 1

2

您需要先添加支票。这会计算 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
于 2013-07-12T16:12:57.787 回答