他mdbのクエリを実行する。

1.クエリの実行結果を表示する。
他mdbの選択クエリや集計クエリの実行結果を表示する。
Sub Sample_Proc()
  Dim App As Access.Application
    Set App = CreateObject("Access.Application")

    App.OpenCurrentDatabase("他mdbのフルパス")
    App.DoCmd.OpenQuery "クエリ名"
    App.UserControl = True
    App.Visible = True
    Set App = Nothing
End Sub

あるいは、選択クエリ

SELECT *
  FROM クエリ名 IN '他mdbのフルパス'

を実行する。

 

2.アクションクエリを実行する(非同期実行)。
他mdbのアクションクエリを実行する。(非同期実行)
 Dim App As Access.Application
 Set App = CreateObject("Access.Application")

 App.OpenCurrentDatabase("他mdbのフルパス")
 App.DoCmd.OpenQuery "クエリ名"

 

3.アクションクエリを実行する(同期実行)。
他mdbのアクションクエリを実行する。(同期実行)
Dim db   As DAO.Database
Dim QDef As DAO.QueryDef

Set db = DBEngine.OpenDatabase("他mdbのフルパス", , True)
Set QDef = db.QueryDefs("アクションクエリ名")

QDef.Execute dbFailOnError
Set QDef = Nothing: db.Close: Set db = Nothing

QueryDef オブジェクトの Set を省略して、

Dim db As DAO.Database
Set db = DBEngine.OpenDatabase("他mdbのフルパス", , True)

db.Execute "アクションクエリ名", dbFailOnError

db.Close: Set db = Nothing

でも良い。
アクションクエリがパラメータクエリの場合はこちら。
cf.1 DAO を使用してパラメーター クエリの結果を取得する方法

他mdbのマクロの実行はこちら
cf.2 他mdbのマクロを実行する。

広告

, , , ,

  1. コメントする

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト /  変更 )

Google フォト

Google アカウントを使ってコメントしています。 ログアウト /  変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト /  変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト /  変更 )

%s と連携中

%d人のブロガーが「いいね」をつけました。