| |
下のように書いてクエリを作成してからDoCmd.OpenQuery
で開こうと思っているんですが
DoCmd.OpenQuery "Q_P"のところで「オブジェクト"Q_P"を見つけることができません」
と表示されエラーになってしまいます。
自分では原因がなんなのか全然わからないのでご指南お願いしますm(-_-)m
Public Sub CreateQuery()
Dim cat As ADOX.Catalog
Dim cmd As ADODB.Command
'カレントデータベースに接続
Set cat = New ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection
'クエリーを定義
Set cmd = New ADODB.Command
cmd.CommandText = "SELECT * FROM パターンテーブル;"
'選択クエリーを作成
cat.Views.Append "Q_P", cmd
'クエリを開く
' DoCmd.OpenQuery "Q_P"
Set cmd = Nothing
Set cat = Nothing
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
