1

現在の DB の TBLCommissionTransactions のすべてのフィールドを取得し、T:\folder\TblBackups.mdb に新しいテーブルを作成し、今日の日付と時刻を新しいテーブル名に追加したいと考えています。これは純粋にアーカイブを目的としています。

申し訳ありませんが、VBA に精通していません。オンライン検索から変更した次のコードがあります。実行すると、「クエリ入力には少なくとも1つのテーブルまたはクエリが含まれている必要があります」というメッセージが表示されますが、これは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
4

1 に答える 1

3

いくつかの中括弧と引用符がありません:

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;"
于 2012-04-04T23:57:42.590 に答える