Accessでコンボボックスに勝手な値を入力されないように制御

概要

こういうコンボボックスがある…

↓ こんなふううに、されないようにしたい。（規定の選択肢以外はダメよ）

やり方

まず前提として、コンボボックスには制御するプロパティが無い。

イベントで制御が必要。

キー入力時

Private Sub cmb_tester_KeyPress(KeyAscii As Integer)
    KeyAscii = 0
End Sub

キークリック時

『キー入力時』だけだと全角入力ができてしまう。
なので『キークリック時』でも制御が必要。

Private Sub cmb_tester_KeyDown(KeyCode As Integer, Shift As Integer)
    KeyCode = 0
End Sub

『入力チェック』と『値リストの編集の許可』

こうなるように。

参考サイトさん

バージョン

Windows 10 Pro 21H2 OSビルド 19045.2311
Microsoft Access for Microsoft 365 MSO (バージョン 2211 ビルド 16.0.15831.20098) 32 ビット