Access Knowhow Forms

コンボボックス｜リストボックスにデータベースのオブジェクト（テーブル、クエリー、フォーム、レポート、マクロ、モジュール）を表示させるには

リストボックスを例にデータベースのオブジェクトを表示させる方法を解説します。

Access 97のサンプルデータベースNorthwind.mdbを開きます。
データベースウインドウのフォームのタブをクリックしたら新規作成のボタンをクリックします。

フォーム上にリストボックスとラジオボタン用のオプショングループを作成します。

図１-フォーム上にリストボックスとオプショングループを作成した例

リストボックスとオプショングループのプロパティを次のように設定します。

Object

Property

Setting

List Box

Name

lstObject

Column Count

Column Heads

Row Source Type

Table/Query

Row Source

Bound Column

Option Group

Name

grpObject

値	オプションボタン１-６
0	Tables
1	Queries
2	Forms
3	Reports
4	Macros
5	Modules

Default Value

オプショングループのAfterUpdateイベントに以下のコードをコピー＆ペーストします。

Private Sub grpObject_AfterUpdate()
  Dim strSQL As String

  Select Case grpObject
      Case acTable
          strSQL = "SELECT MSysObjects.Name FROM MsysObjects" _
                 & " WHERE (Left([Name],1)<>'~')" _
                 & " AND (Left([Name],4) <> 'Msys')" _
                 & " AND (MSysObjects.Type)=1" _
                 & " ORDER BY MSysObjects.Name;"
      Case acQuery
          strSQL = "SELECT MSysObjects.Name FROM MsysObjects" _
                 & " WHERE (Left([Name],1)<>'~')" _
                 & " AND (MSysObjects.Type)=5" _
                 & " ORDER BY MSysObjects.Name;"
      Case acForm
          strSQL = "SELECT MSysObjects.Name FROM MsysObjects" _
                 & " WHERE (Left([Name],1)<>'~')" _
                 & " AND (MSysObjects.Type)=-32768" _
                 & " ORDER BY MSysObjects.Name;"
      Case acReport
          strSQL = "SELECT MSysObjects.Name FROM MsysObjects" _
                 & " WHERE (Left([Name],1)<>'~')" _
                 & " AND (MSysObjects.Type)= -32764" _
                 & " ORDER BY MSysObjects.Name;"
      Case acMacro
          strSQL = "SELECT MSysObjects.Name FROM MsysObjects" _
                 & " WHERE (Left([Name],1)<>'~')" _
                 & " AND (MSysObjects.Type)= -32766" _
                 & " ORDER BY MSysObjects.Name;"
      Case acModule
          strSQL = "SELECT MSysObjects.Name FROM MsysObjects" _
                 & " WHERE (Left([Name],1)<>'~')" _
                 & " AND (MSysObjects.Type)= -32761" _
                 & " ORDER BY MSysObjects.Name;"
  End Select

  With lstObject
      .RowSource = strSQL
      .Requery
  End With

End Sub

フォームをビューモードに切り替えて確認します。

図２-リストボックスにデータベースのオブジェクトを表示させた例

注）
ここで使用しているクエリーは、Accessのシステムテーブルを直接参照していますので、Access 2000にバージョンアップした場合動作の保証はありません。