| |
作成したクエリをアクションクエリでテーブル作成をしていますが、
マクロで直接実行させるようにしたいと思っています
しかし、何度試してみても、エラーがでてしまい、解決できません
cmd.Execute
↑ここの部分でエラーが発生してしまいます
実行時エラー'''-2147217900(80040e14) SQLステートメントが正しくありません
Delete、Insert、Procedure、SelectまたはUpdateを使用して下さい。
何がよくないのか、是非アドバイスを頂けるとありがたいです
お願いします
現在のマクロ
Sub テーブル作成()
'On Error GoTo エラー
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim mySQL As String
Set cn = CurrentProject.Connection
mySQL = "SELECT * "
mySQL = mySQL & "INTO T_LIST "
mySQL = mySQL & "FROM Q_LIST;"
cmd.ActiveConnection = cn
cmd.CommandText = "Q_LIST"
cmd.Execute '←ここでエラー発生
cn.Close: Set cn = Nothing
Exit Sub
エラー:
If Err.Number = -2147217900 Then
DoCmd.DeleteObject acTable, "T_LIST"
Resume
Else
MsgBox Err.Number & " : " & Err.Description
End If
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
