質問: ACCSESS初心者です。 やりたい流れとしては下記の通りです。 どうか助けてください。
回答: 対象のコンボボックスが「コンボ1」の場合です。 フォームのイベントの「読み込み時」を[イベント プロシージャ]にして「...」をクリックしてVBAをコピーしてください。 コンボボックスの「値集合タイプ」は「値リスト」にしてください。 Private Sub Form_Load() Dim tableList As String Dim td As TableDef For Each td In CurrentDb.TableDefs If td.Attributes = 0 Then tableList = tableList & ";" & td.Name Next If tableList <> "" Then tableList = Mid(tableList, 2) コンボ1.RowSource = tableList End Sub