37 コントロール系 - 値集合ソースに特定の文字列を含むコントロールを収集する

カレントデータベース内にあるすべてのフォームとその中のコンボボックスとリストボックスコントロールを探索し、値集合ソースプロパティに特定の文字列を含むコントロールの一覧を収集します。これを応用することで、あるテーブル/クエリ、あるいはフィールドが使われているコンボボックスなどを探すことができます。
  1. 「Database」オブジェクト「Container」オブジェクトを設定し、「Documents」コレクションの中から、For Each〜Nextステートメントでひとつずつフォーム情報を取り出し、「Document」オブジェクトの変数「doc」にセットしていきます。

  2. 取り出されたひとつのフォーム情報のうち、フォーム名である「Name」プロパティの値を、ここではそれを何度か使用するため、いったん変数「strFormName」にセットします。

  3. フォーム内のオブジェクトを参照するので、そのフォームを”デザインビュー”(引数に「acDesign」を指定)で開きます。

  4. そのフォーム内に配置されているすべてのコントロールのコレクションである「Controls」の中から、For Each〜Nextステートメントでひとつずつコントロール情報を取り出し、「Control」オブジェクトの変数「ctl」にセットしていきます。

  5. 取り出されたひとつのコントロール情報のうち、そのコントロールの種類を表す「ControlType」プロパティの値を調べます。

  6. それが特定の値(ここでは「acComboBox/コンボボックス」または「acListBox/リストボックス」)であれば、値集合ソースである「RowSource」プロパティの値に特定の文字列(ここでは”区分”)が含まれているかどうかを検査します。

    ※ここでは「InStr」関数を使っています。この関数は指定文字列が見つかった場合はその位置を返し、見つからなければ”0”を返しますので、”0より大きければその文字列が含まれている”と判定することができます。

  7. 指定文字列を含んでいたら、そのフォーム名とコントロール名、およびその「値集合ソース」をイミディエイトウィンドウに出力します。

  8. そのフォームを閉じます。
    ここではデータ収集のみでデザイン変更はありませんので、引数に「acSaveNo」を指定することで意図的に変更を保存せずに閉じます。

Sub Sample_4_12()
'値集合ソースに特定の文字列を含むコントロールを収集する

  Dim dbs As Database
  Dim ctn As Container
  Dim doc As Document
  Dim ctl As Control
  Dim strFormName As String
  Dim strFind As String

  strFind = "区分"

  Set dbs = CurrentDb
  Set ctn = dbs.Containers!Forms
  For Each doc In ctn.Documents
    strFormName = doc.Name
    DoCmd.OpenForm strFormName, acDesign
    For Each ctl In Forms(strFormName).Controls
      With ctl
        If .ControlType = acComboBox Or _
            .ControlType = acListBox Then
          If InStr(.RowSource, strFind) > 0 Then
            Debug.Print strFormName,
            Debug.Print .Name,
            Debug.Print .RowSource
          End If
        End If
      End With
    Next ctl
    DoCmd.Close acForm, strFormName, acSaveNo
  Next doc

End Sub

実行例:


| Index | Prev | Next |



Copyright © T'sWare All rights reserved