絞り込みコンボボックスの応用について

Question

フォームに、クエリを使用した2つの絞り込みコンボボックスがあります。
1つ目で都道府県を選択すると、2つ目に該当する市名のみが表示されるものです。

このコンボボックスを
該当する値がある場合は、その値を自動入力されるように
該当する値がない場合は、絞り込みで使用できるようにしたいですが
可能でしょうか？

該当する値についてですが
納品先テーブル内に
納品先名
都道府県名
市名
があります。

同じフォーム内に、別のコンボボックスで
納品先を選択する形となっています。

この納品先を選択した際に
都道府県名・市名　の値がテーブルに入力されている場合には
その値をコンボボックスに自動で表示させたいです。

値が入力されていない場合(テーブルが空欄)の場合は
絞り込みコンボボックスとして使用したいです。

よろしくお願いいたします。

windows10/Access2019

追記＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

今回使用したいのは次の2つのテーブルとなります。

「納品先」テーブル

「都道府県」テーブル

「発送」フォーム

納品先　コンボボックス　にて　納品先を選択

絞り込みコンボボックスは「お届け先」の2つとなります。

お届け先左側、「発送先」コンボボックスで都道府県を選ぶ
「Q_都道府県」クエリを使用し、都道府県を選択できるようにしています。

更新後処理に次のコードを入れています。

Private Sub 発送先_AfterUpdate()
DoCmd.Requery "市区町村"
End Sub

お届け先右側、「市町区村」コンボボックスは
「Q_市区町村」クエリを使って市名を絞り込み表示させています

この2つのコンボボックスに
納品先テーブルに「都道府県」「市町村」が入力されている場合には
自動入力をし、
入力がされていない場合は、コンボボックスより選択をしたいです。

修正＝＝＝＝＝＝＝＝＝＝＝

すみません、修正します。

＞納品先テーブルに「都道府県」「市町村」が入力されている場合には
＞自動入力をし、
＞入力がされていない場合は、コンボボックスより選択をしたいです。

自動入力された場合でも、届け先が違う場合には
コンボボックスより選択できる状態にしたいです。

追記＝＝＝＝＝＝＝＝＝＝
入力フォーム
「発送」テーブル

Comments

[hatena19]

現状どこまでできているのでしょうか。
現状のフォーム内の構成（コンボボックス名やテキストボックス名）、
現状のコード、等を提示してください。

でないと、単なる製作依頼になり、推奨されない質問になります。
https://teratail.com/help/avoid-asking

[techiko]

情報不足、申し訳ありませんでした。
現状を追記しました。

[hatena19]

画像の入力フォームのレコードソースの設定はどうなってますか。
テーブルならその名前とフィールド構成、
クエリならSQLを提示してください。

[techiko]

ありがとうございます。
入力フォームのレコードソースはテーブルで「発送」
構成は画像を貼りました。

Answer 1

テーブル設計が正規化されていない部分が目につきますが、今回はそれはスルーしておくとして、
機会があったら「テーブル 正規化」で検索してみて、解説ページで勉強してみてください。
（ここから手を付けると、大変なことになるので）

まだ、情報不足なところがありますが、とりあえず推測を交えて、
納品先コンボボックスの設定が下記になっているとします。
なっていなかったら、このように設定するのは推奨します。

名前　納品先
値集合ソース　納品先
列数　5
列幅 　ocm;3cm

列数を5とすることで、テーブルの5つ目までのデータを取得できます。

例えば、都道府県は4列目なので、
Me.納品先.Column(3)
で取得できます。
インデックスは0から始まるため、4列目ならインデックスは3です。

ということで、

Private Sub 納品先_AfterUpdate()
    Me.都道府県 = Me.納品先.Column(3)
    Me.市町区村 = Me.納品先.Column(4)
End Sub

で都道府県名と市区町村は表示できます。
納品先にテーブルに登録されてなかったら、空欄のままです。

Comments

[techiko]

列数　5　に変更、コードを追加　で
思う通りの動きとなりました。

知識不足、情報不足な質問に回答くださり
どうもありがとうございました。
テーブルの正規化、検索しました。
もう少しちゃんと勉強してみます。