|
作成した、選択クエリから、テーブルを作成するマクロを作りましたが、
どうしても、一列だけデータが入ってこないフィールドがあって、
どう回避すればよいのか分からず、ココに来ました
クエリ名が、Q_情報追加 というものが有り、このクエリを
T_情報 というテーブル名でテーブルを作成したいのですが、
他のデータはうまく入っているのですが、
どうしても、【場所】というフィールド名があるのですが、それだけは、
作成したテーブルに反映されないのです。
フィールド名は項目に存在して、作成されたテーブルに載ってきているのですが、
内容のデータが全く入ってきてくれません
原因が全く分からず困ってます
今のコード記述です
↓
Sub TBL作成()
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_情報 "
mySQL = mySQL & "FROM Q_情報追加;"
Cmd.ActiveConnection = cn
Cmd.CommandText = mySQL
Cmd.Execute mySQL
cn.Close: Set cn = Nothing
Exit Sub
エラー:
If Err.Number = -2147217900 Then
DoCmd.DeleteObject acTable, "T_情報" '削除します。
Resume
Else
MsgBox Err.Number & " : " & Err.Description
End If
End Sub
どうか、ご教授願います
|
|