Create Table As Select Where - 使用当前数据库编译错误答案

【问题标题】：Create Table As Select Where - Compile Error using current DatabaseCreate Table As Select Where - 使用当前数据库编译错误
【发布时间】：2015-02-17 16:18:39
【问题描述】：

通过从表 [Donation_Data] 中提取所有记录，尝试在现有非关系数据库中创建一个新表：[PickupDonTbl]，其中 Pickup Date = 当前日期。

CREATE TABLE CurrentDb.PickupDonTbl AS SELECT * from Donation_Data WHERE [Pickup Date] = Date()

当我输入代码时，我得到 CurrentDb “突出显示”并出现编译错误：预期：错误结束。

然后我想使用以下方法将此表导出到 EXCEL：

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "PickupDonTbl", "C:\Users\dads\BlindCtr\Donation Data.xlsx", True

（我已经测试过这部分，它可以工作）

所有这些代码都是从这个 Db 中的一个表单启动的，带有一个命令按钮“单击时”

【问题讨论】：

Inserted "SELECT * PickupDonTbl from Donation_Data WHERE [Pickup Date] = Date"...出现新错误 - 编译错误：预期：案例。
是否有特殊原因需要创建临时表而不是只保存 SELECT 查询然后使用 TransferSpreadsheet 导出查询而不是表？
是的...这是为视障人士开发的，可在后台使用“语音阅读器”。他们无法用鼠标导航，因此我设置了一个单击命令按钮的表单，该表单会要求他们提供“取件日期”，并且在输入时将为另一个 EXCEL/VBA 应用程序生成一个 Excel 电子表格人。
没关系。按钮后面的 VBA 代码可以执行 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "YourSavedSelectQueryName", ... 而不是创建临时表并使用 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "PickupDonTbl", ...。
不知道如何设置一个查询，其中视障人士可以输入日期并“单击”导致查询运行 [Pickup Date] = “date entered”，然后自动导出为EXCEL文件

标签： excel ms-access ms-access-2007

【解决方案1】：

如何设置一个查询，让视障人士可以输入日期并“单击”，从而导致查询以 [Pickup Date] = “date entered” 运行，然后自动导出为 EXCEL 文件

在 Access 中创建一个名为“PickupDonQry”的已保存查询

PARAMETERS [Enter Pickup Date] DateTime;
SELECT Donation_Data.*
FROM Donation_Data
WHERE (((Donation_Data.[Pickup Date])=[Enter Pickup Date]));

然后从您的 VBA 代码中导出该查询

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "PickupDonQry", _
        "C:\Users\dads\BlindCtr\Donation Data.xlsx", True

Access 将提示输入“输入取件日期”参数的值，然后将结果导出到指定的 Excel 文件。

【讨论】：