「指定クエリの有無」の編集履歴（バックアップ）一覧はこちら

「指定クエリの有無」(2013/05/12 (日) 18:38:10) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

***指定クエリの有無
- ソース
 ' 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
 


パッケージ化されたクラスは[[こちら>Accessファイルチェッククラス]]


[[トップ]]