Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7532 / 9994

←次へ　｜　前へ→


	【5650】テーブルの並び替え

mak - 05/7/20(水) 14:44 -


	引用なし

	パスワード

小僧さん、

早速のご返事ありがとうございます。
次のように書き換えてやってみたのですが、オブジェクトが見当たらないとの
エラーが出たのでクエリーボックスを見たのですが名前がありません。
再度実行しようとすると、既にオブジェクトが存在しますと出てしまいます。
問題がもし分かればお教えください。
また、このクエリーを削除するには"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

何度ももうしわけありません。

192 hits

▼

【5650】テーブルの並び替え mak 05/7/20(水) 14:44

≪