アクセス小僧：開いているクエリをすべて閉じる

VBAで、

開いているクエリをすべて閉じるマクロを作りました。

Sub CloseAllQuery1()
  '【機能】開いているクエリをすべて閉じる
  '【変数】
  Dim db As DAO.Database
  Dim qr As QueryDef
  Dim myQueryName1 As String
  '【実行コード】
  Debug.Print "--- CloseAllQuery1(start) ---"
  Set db = CurrentDb
  ' カレントデータベース内のクエリを1つずつ評価
  ' 1文字目が"~"（内部クエリ）ではなく、かつ、オープン状態のクエリを閉じる
  For Each qr In db.QueryDefs
    myQueryName1 = qr.Name
    If (Not (Left(myQueryName1, 1) = "~")) And _
    (SysCmd(acSysCmdGetObjectState, acQuery, myQueryName1) = acObjStateOpen) Then
      Debug.Print "myQueryName1=" & myQueryName1
      DoCmd.Close acQuery, myQueryName1
    End If
  Next qr
  Debug.Print "--- CloseAllQuery1(end) ---"
End Sub

タグ：閉じる クエリ VBA アクセス

コメント 1

ヤバイぜ！　ありがとうございます(^_0)ノ
by cheese999 (2019-10-09 13:38)