Access コンボボックスの値をクリアしたい。

質問

毎度、お世話になります。m( )m
Access2000で質問します。
フォーム上にコンボボックスが２つあります。
例えば１つ目が都道府県、２つ目が市町村のようなコンボで、１つ目の絞り込みの結果を２つ目のコンボにSQLを使って投げています。（例：１つ目－東京都　２つ目－杉並区）その後、１つ目のコンボを神奈川県に変更したときに
２つ目に入っている「杉並区」を削除して空白の状態に戻したいのですが、どのようにVBAを書けばいいのかわかりません。今のままだと神奈川県杉並区といったありえない登録が発生してしまいます。
１つ目のコンボ変更時の処理で２つ目のコンボの値をクリアする方法を教えてください。

よろしくお願いします。

回答No.3

yomo3 · ベストアンサー

実際に確認するには、もう少し時間がかかるのですが、単なるアドバイスと思ってください。

まず、
Me.市町村コンボ.RowSource = strSQL
と
市町村コンボ.SetFocus
の間に
市町村コンボ.Requery
を挿入。
これで、矛盾のない表示になるはず。
次に、市町村コンボの表示を空白にするには、
市町村コンボ.Value=""
を挿入。
これでどうでしょう？

お礼

早速のご回答、ありがとうございました。
ご指導いただきました通り実行しましたところ
上手く出来ました。
ありがとうございました。
今後とも、よろしくお願いします！　m(　)m

回答No.2

yomo3

えーとですねぇ、ご質問の２つのコンボにリストを表示するやり方には何通りもあるので、ikeidoさんが実際にどのようなコードを使っているかを教えていただかないと、ぴったりしたお答えができませんです。
クリアするのも、Valueをイジルとか、RecordSourceをイジルとか、ListIndexをイジルとかいろいろあるもので。

補足

こんな感じでQ_全国から都道府県コンボで選択した都道府県にある市町村を市町村コンボにRowSourceしています。

－－－－－－－－－－－－－－－－－－－－－－－－－－
Dim strSQL As String
Dim KEN As String

KEN = Me!都道府県コンボ
strSQL = "SELECT Q_全国.市町村 FROM Q_全国 WHERE Q_全国.都道府県 = '" & KEN & "' "
Me.市町村コンボ.RowSource = strSQL
　 市町村コンボ.SetFocus
市町村コンボ.Dropdown
－－－－－－－－－－－－－－－－－－－－－－－－－－
おわかりいただけましたでしょうか？

難しい事はよくわかりませんのでなるべくかみ砕いた表現でご指導いただけるとありがたいです。
よろしくお願いします。

回答No.1

noname#7099

今実物がないので。
１つめのコンポボックスのafterupdateの処理で、
requery　２つめのコンポボックス名
を書いてください。