#229
通常のコンボボックスでは、その値集合ソースにデータが１件もない場合、ドロップダウンすると次のような表示になります。
これでも、項目の選択ができないのですから、実質的には使用不可と同じなのですが、コンボボックスコントロールの"Enabled/使用可能"プロパティを設定することによって、"使えない"ということをより明確に示すことができます。
それには、フォームの"Load/読み込み時"イベントプロシージャなどにおいて、次のようなコードを実行します。「コンボ0」が対象となるコンボボックスの名前です。
Private Sub Form_Load()
'コンボボックスの項目数を調べる
If Me!コンボ0.ListCount = 0 Then
'ゼロなら使用不可に設定
Me!コンボ0.Enabled = False
End If
End Sub
'コンボボックスの項目数を調べる
If Me!コンボ0.ListCount = 0 Then
'ゼロなら使用不可に設定
Me!コンボ0.Enabled = False
End If
End Sub
実行例：
