创build表作为select位置 – 使用当前数据库编译错误

试图创build一个新的表：[PickupDonTbl]通过从表中提取所有logging：[Donation_Data] Pickup Date =当前date。

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

当我input代码时，我得到CurrentDb“高亮”与编译错误：预期：错误结束。

然后我想要将这个表格导出为EXCEL：

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

（我已经testing了这部分，它的工作原理）

所有这些代码都是从这个Db中的一个表单开始的，一个命令button“点击”

Answer 1

如何设置一个查询视障人士可以inputdate和“点击”导致查询运行[拾取date] =“inputdate”，然后自动导出为EXCEL文件

在Access中创build一个名为“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 

访问将提示input“Pickup Date”参数的值，然后将结果导出到指定的Excel文件。