Microsoft Access 掲示板

InputBoxでの入力ではなく選択して入力する手法 / 3

7 コメント
views
4 フォロー
3
tokinaito 2019/08/28 (水) 14:26:28 bb5c2@5f550

お世話になります。質問が要領が悪く大変失礼しました。
下記で分かりますでしょうか。

区コンボ   あいおうえおコンボ  町名コンボ

それぞれコンボを連携し町名まではコンボ入力し
丁目以降は手入力をしています。

中央区  →  あ →        大江   
東区      か          出水
西区
南区
北区

大江以外の町名にはそれぞれ警察署をコンボに記して
Me!警察署 = 町名コンボ.Column(3)で求めています。
しかし大江は下記のように丁目地番で警察署が違うので
町名コンボの更新後処理で処理したいのです。

町名コンボの更新後処理に

DoCmd.Requery "保管地番"
Me!保管地番.SetFocus
If Me.町名コンボ= "大江" Then
MsgBox "大江1丁目・2丁目1番~7番・大江3丁目~6丁目は中央署です。
大江2丁目8番以上は東署です。"
管轄署 = InputBox("管轄署を入力")
管轄署.SetFocus
End If
Me!保管地番.SetFocus
Me!警察署 = 町名コンボColumn(3)
End Sub

それではよろしくお願いします

通報 ...