指定クエリの有無 - toolstorage

指定クエリの有無

• ソース

' HasSelectedQuery
' 指定MDBに指定クエリが存在しているかを確認する
' 引数：あり
' iDB   ：　DAO.Database    ：検索先のMDB
' iSelectedQueryName    ：　String  ：検索対象のクエリ名
' 戻り値：あり
' Boolean   ：　検索対象のクエリの有無（クエリが存在していた場合TRUE）
Public Function HasSelectedQuery(ByVal iDB As DAO.Database, ByVal iSelectedQueryName As String) As Boolean
    Dim dbQueryDef As DAO.QueryDef
    Dim result As Boolean
    
    ' 返却値の初期化
    result = False
    
    ' 指定MDBのすべてのテーブルに対し処理を行う
    For Each dbQueryDef In iDB.QueryDefs
        ' 検索対象のテーブルが存在していれば、返却値をTRUEにする
        If dbQueryDef.Name = iSelectedQueryName Then
            result = True
            Exit For
        End If
    Next
    
    HasSelectedQuery = result
End Function

パッケージ化されたクラスはこちら

トップ