创建表选择位置 - 使用当前数据库编译错误

Question

尝试在现有的非关系Db中创建一个新表：[PickupDonTbl]，方法是从表中提取所有记录：[Donation_Data]，其中拾取日期=当前日期。

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

当我输入代码时，我得到CurrentDb＆＃34;突出显示＆＃34; with Compile错误：预期：错误结束。

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

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

（我测试了这部分并且有效）

所有这些代码都是从这个Db中的表单启动的，带有一个命令按钮＆＃34; On Click＆＃34;

Answer 1

  

如何设置查询，视障人士可以输入日期和＆＃34;点击＆＃34;导致查询运行[Pickup Date] =＆＃34;输入日期＆＃34;然后自动导出为EXCEL文件

创建一个名为＆＃34; PickupDonQry＆＃34;的已保存查询。在Access中

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 

访问willl提示输入＆＃34;输入提货日期＆＃34;参数然后将结果导出到指定的Excel文件。