最新トピック
1
1 ヶ月前
排他制御 1 ヶ月前
2
2 ヶ月前
Hatena様にご質問 2 ヶ月前
6
4 ヶ月前
モジュールでカレントフォームのコントロールを使うには 4 ヶ月前
7
5 ヶ月前
日付のテキストボックスからフォームが開けません 5 ヶ月前
9
5 ヶ月前
レポートにおける数値の間隔を広げる方法 5 ヶ月前
12
5 ヶ月前
リストボックスから複数選択しそれをテーブルに格納したい 5 ヶ月前
タグリスト
Markdown テーブル生成
Accessのテーブルやクエリのデータを貼り付ける場合は下記で、Markdown書式のテーブルに変換して貼り付けてください。
お世話になります。質問が要領が悪く大変失礼しました。
下記で分かりますでしょうか。
区コンボ あいおうえおコンボ 町名コンボ
それぞれコンボを連携し町名まではコンボ入力し
丁目以降は手入力をしています。
中央区 → あ → 大江
東区 か 出水
西区
南区
北区
大江以外の町名にはそれぞれ警察署をコンボに記して
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
それではよろしくお願いします