forms - Access - サブフォームにすべてのテーブルが入力されたドロップダウンを作成する方法は?

Question

約20のテーブルを持つアクセスDBがあります。すべてのテーブルのドロップダウン メニューを含むフォームを作成したいと思います。テーブルが選択されている場合、サブフォームにそれらのテーブルの情報を反映させようとしています。

基本的に、各テーブルをクリックして開く代わりに、フォーム内でそれらを調べます。これは可能ですか？

これは可能ですか？

Answer 1

このサブルーチンを呼び出して、ドロップダウン メニューに入力できます。

Private Sub Add_Tables_To_DropdownMenu()
  Dim T As TableDef

  For Each T In CurrentDb.TableDefs
    If (Left(T.Name, 4) <> "USys") And (T.Attributes = 0) Then
        Dropdownmenu0.AddItem T.Name
    End If
  Next
End Sub

次に、ドロップダウン メニューの変更時にイベントを設定し、選択した値に基づいてサブフォームの SourceObject を更新できます。

Private Sub Dropdownmenu0_AfterUpdate()
    Subform1.SourceObject = "Table." & Dropdownmenu0.Value
End Sub