| 
    
     |  | >勿論そうですね、実際私自身もコンボボックスをこのような使い方をしたことが >ありません
 >が
 >一応仕様なので・・・こういう風にしてくれと・・・
 >最悪どうしようもなければ
 >全く違う方法をとるしかありませんが・・・
 
 >追加は行いません
 >結局これらのコンボの役目は
 >間違いであろうとも
 >IDを検索するためのものです
 >ただ、IDを選択された際にも名前にはそのIDの名前が出るようにし、
 >逆に名前を選択された際にはその名前のIDが出るようにしたいのです
 >
 >この状態が良いということですので…
 
 クライアントの仕様をまるまる飲むのではなく、
 希望を活かしつつもう少しましな仕様を提案するというのも
 ひとつのやり方だとは思いますが、どうでしょうかね。
 
 私が以前作ったことのある例ですと、コンボボックスの変更時イベントで、
 価集合ソースを書き換えて、該当するデータを抽出する仕様というのにしたことが
 あります。
 
 Private Sub cb1_Change()
 Me.cb1.RowSource = "SELECT 顧客名 FROM A_顧客マスター WHERE 顧客名 Like '" _
 & Me.cb1.Text & "*';"
 Me.cb1.Dropdown
 End Sub
 
 これを応用して、65536件を越える時は、TOP句で先頭から適当な件数のみ表示
 させるようにするなどすれば、なんとかなるかも。
 
 実際、実用に耐える速度になるかどうか不明ですが。
 
 |  |