ms-access - VBA 代码“查询输入必须包含至少一个表或查询”

Question

我想获取当前数据库中 TBLCommissionTransactions 中的所有字段，并在 T:\folder\TblBackups.mdb 中创建一个新表，并将今天的日期和时间附加到新表名中。这纯粹是出于存档目的。

对不起，不是很精通VBA。我有以下代码是我从在线搜索中修改的。当我运行它时，我收到消息“查询输入必须包含至少一个表或查询”，我怀疑它在 strTableName 上失败，但并不确定。我玩过它，但无法让它工作。我究竟做错了什么？

Private Sub BackupTblCommissions_Click()
Dim strTableName As String
Dim strFilename As String
Dim strSQL As String
strFilename = "T:\folder\TblBackups.mdb"
strTableName = "TBLCommissionTransactions" & Format(Now(), "yyyymmdd-hhmm")
strSQL = "SELECT TBLCommissionTransactions.* INTO " & strTableName & " IN " & _
strFilename & " FROM TBLCommissionTransactions;"

CurrentDb.Execute strSQL
End Sub 

Answer 1

您缺少一些大括号和引号：

SELECT TBLCommissionTransactions.* 
INTO [TBLCommissionTransactions20120405-0054] IN 'T:\folder\TblBackups.mdb' 
FROM TBLCommissionTransactions;

所以

strFilename = "'T:\folder\TblBackups.mdb'"
strTableName = "[TBLCommissionTransactions" & Format(Now(), "yyyymmdd-hhmm" & "]")
strSQL = "SELECT TBLCommissionTransactions.* INTO " & strTableName & " IN " & _
strFilename & " FROM TBLCommissionTransactions;"