More than 1 year has passed since last update.

AccessのVBAでコンボボックスの選択肢数に応じて初期化

Last updated at 2023-05-22Posted at 2023-04-20

概要

コンボボックスの選択肢をVBAで動的に生成。

そして…

選択肢が1つだけなら、その値を選択状態にしておく。
選択肢が2つ以上なら空の選択肢を追加して、その値を選択状態にしておく。

のような切り替え。

コンボボックスの動的設定

詳細は下記参照。

サンプル（列が1つ）

'フォーム開いた時の動作。
Private Sub Form_Open(Cancel As Integer)

    'フォーム上に『cmb_1』という名前のコンボボックスがある前提。
    
    '選択肢を動的に設定。
    Me.cmb_1.RowSourceType = "Value List"
    Me.cmb_1.RowSource = ""
    Me.cmb_1.ColumnCount = 1
    
    '選択肢追加。
    Me.cmb_1.AddItem "あ"
    
    '下記コメントアウトを外すかどうかで動作が変わる。
    'Me.cmb_1.AddItem "い"
    
    '選択肢の数によって初期選択などの切替。
    If Me.cmb_1.ListCount = 1 Then
        Me.cmb_1.Value = Me.cmb_1.ItemData(0)
    Else
        Me.cmb_1.AddItem ""
        Me.cmb_1.Value = ""
    End If
    
End Sub

選択肢が1つだけなら下記。

選択肢が2つなら下記。

サンプル（列が2つ）

'フォーム開いた時の動作。
Private Sub Form_Open(Cancel As Integer)

    'フォーム上に『cmb_1』という名前のコンボボックスがある前提。
    
    '選択肢を動的に設定。
    Me.cmb_1.RowSourceType = "Value List"
    Me.cmb_1.RowSource = ""
    Me.cmb_1.ColumnCount = 2
    
    '選択肢追加。
    Me.cmb_1.AddItem "あ;あです;"
    
    '下記コメントアウトを外すかどうかで動作が変わる。
    'Me.cmb_1.AddItem "い;です;"
    
    '選択肢の数によって初期選択などの切替。
    If Me.cmb_1.ListCount = 1 Then
        Me.cmb_1.Value = Me.cmb_1.ItemData(0)
    Else
        Me.cmb_1.AddItem ""
        Me.cmb_1.Value = ""
    End If
    
End Sub