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

Question

试图通过从表中提取所有记录来在现有的非关系数据库中创建一个新表:[PickupDonTbl]:[Donation_Data]，其中 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 中的一个表单启动的，带有一个命令按钮“On Click”

Answer 1

how to set up a query where a visually impaired person could enter a date and "click" resulting in the query run with [Pickup Date] = "date entered" and then automatically export as an EXCEL file

在 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 文件。