コンボボックスにキー入力をさせない方法(ACCESS VBA)

ACCESS　VBAでコンボボックスを使ったプログラムを作成しています。

コンボボックスにキー入力(特にdelete、BackSpaceキー)をさせたくありません。
VBではSTYLEプロパティをドロップダウンリストにすれば
可能ですが、VBAで同じようにするプロパティが見つかりません。どなたかご存知でしたら教えてください。

それとも、そもそもそのようなプロパティは用意されていないのでしょうか？
そのような場合も考えて、コンボボックスのKeydownイベントでキーコードを拾ってdelete、backspaceキーを無効にしようとも思いましたが、どうしたら無効になるのかわからず、できませんでした。

どなたかよい方法をご存知でしたら教えてください。

No.2 ベストアンサー 回答者： AloneAgain 回答日時： 2005/03/09 13:46

こんにちは。

Delete の Keycode が 46
BackSpace の Keycode が 8 ですから、

コンボボックスの Keydown イベントに
↓で無効にできると思います。
-----------------------------------
If KeyCode = 8 Or KeyCode = 46 Then
KeyCode = 0

End If
-----------------------------------
すべてのキー入力を無効にしたいのなら
Keydown イベントに
↓だけを記述してください。
-----------------------
KeyCode = 0
-----------------------

この回答へのお礼

お返事ありがとうございます。
教えていただいた方法を試してみたところ、
解決することができました。

ありがとうございました。

お礼日時：2005/03/09 17:08

No.1 回答者： zgmfx10a 回答日時： 2005/03/09 13:15

コンボボックスコントロールのプロパティで

[入力チェック]を「はい」に変更してください。

マウスカーソルは入りますけど、
テキスト変更ができなくなるようです。

この回答へのお礼

お返事ありがとうございます。
教えていただいた方法を試してみたところ、
余計な文字の入力を排除することができました。

ありがとうございました。

お礼日時：2005/03/09 17:15