| |
小僧さん、
早速のご返事ありがとうございます。
次のように書き換えてやってみたのですが、オブジェクトが見当たらないとの
エラーが出たのでクエリーボックスを見たのですが名前がありません。
再度実行しようとすると、既にオブジェクトが存在しますと出てしまいます。
問題がもし分かればお教えください。
また、このクエリーを削除するには"collection.delete"を使用できますか。
まだまだ初心者なものであつかましいお願いをしますが、よろしくおねがいし
ます。
Sub クエリで結果表示()
Dim mySQL As String
Dim cat As New ADOX.Catalog
Dim cn As New ADODB.Connection
Dim com As New ADODB.Command
mySQL = "SELECT * FROM 販売機別 ORDER BY 店舗名 ASC"
Set cn = CurrentProject.Connection
cat.ActiveConnection = cn
com.CommandText = mySQL
cat.Views.Append "Q_Test", com
cn.Close: Set cn = Nothing
Set com = Nothing
Set cat = Nothing
DoCmd.OpenQuery "Q_Test"
End Sub
何度ももうしわけありません。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
