hiroton
2019/08/26 (月) 09:54:19
96551@f966d
InputBox
で表示されるテキストボックスのところにコンボボックスを使いたいということですかね?
1.標準機能にはないので、専用のフォームを作成して(ポップアップに設定しておいて)、Inputbox
の代わりにOpenform
して閉じるときのイベントで[管轄署]に入力するのが一般的だと思います。
2.身内で使うようなものなら
ret = Inputbox("管轄署を入力。0=中央区、1=東署")
select case ret
case 0: me!管轄署 = "中央区"
case 1: me!管轄署 = "東署"
end select
で手抜き実装したりとか
3.大江町以外の[管轄署]がどう使われているのかわかりませんが[大江町用管轄署]コンボボックスを重ねてvisible
のON/OFFでそのフォーム内で処理するとか
4.
MsgBox "大江1丁目・2丁目1番~7番・大江3丁目~6丁目は中央署です。大江2丁目8番以上は東署です。"
決まり切っているなら自前で入力された住所を解析してユーザーに入力させないのが一番だと思います。住所だと丁目(番地)を省略されたりハイフンでつないだりと手間もかかりそうですが。
通報 ...