#229 値集合ソースが空のコンボを使用不可にする方法 フォーム、VBA

通常のコンボボックスでは、その値集合ソースにデータが1件もない場合、ドロップダウンすると次のような表示になります。
データがない場合のドロップダウン表示

これでも、項目の選択ができないのですから、実質的には使用不可と同じなのですが、コンボボックスコントロールの"Enabled/使用可能"プロパティを設定することによって、"使えない"ということをより明確に示すことができます。

それには、フォームの"Load/読み込み時"イベントプロシージャなどにおいて、次のようなコードを実行します。「コンボ0」が対象となるコンボボックスの名前です。
Private Sub Form_Load()

  'コンボボックスの項目数を調べる
  If Me!コンボ0.ListCount = 0 Then
    'ゼロなら使用不可に設定
    Me!コンボ0.Enabled = False
  End If

End Sub

実行例:
使用不可にしたコンボボックス
| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします


Copyright © T'sWare All rights reserved