|    | 
     作成した、選択クエリから、テーブルを作成するマクロを作りましたが、 
どうしても、一列だけデータが入ってこないフィールドがあって、 
どう回避すればよいのか分からず、ココに来ました 
 
クエリ名が、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 
 
どうか、ご教授願います 
 | 
     
    
   |