- ベストアンサー
Accessのコンボボックスで値をクリアする方法
- Accessのコンボボックスで値をクリアする方法について教えてください。
- フォーム上のコンボボックスにおいて、絞り込みの結果を反映させるためにSQLを使用していますが、１つ目のコンボボックスを変更した際に、２つ目のコンボボックスの値をクリアしたいです。
- 現在のままでは、意図しない値が登録されてしまうため、１つ目のコンボボックス変更時に２つ目のコンボボックスをクリアする方法を教えてください。
- オフィス系ソフト
- 回答数3
- ありがとう数2
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
実際に確認するには、もう少し時間がかかるのですが、単なるアドバイスと思ってください。 まず、 Me.市町村コンボ.RowSource = strSQL と 市町村コンボ.SetFocus の間に 市町村コンボ.Requery を挿入。 これで、矛盾のない表示になるはず。 次に、市町村コンボの表示を空白にするには、 市町村コンボ.Value="" を挿入。 これでどうでしょう？
その他の回答 (2)
- yomo3
- ベストアンサー率32% (88/269)
えーとですねぇ、ご質問の２つのコンボにリストを表示するやり方には何通りもあるので、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 －－－－－－－－－－－－－－－－－－－－－－－－－－ おわかりいただけましたでしょうか？ 難しい事はよくわかりませんのでなるべくかみ砕いた表現でご指導いただけるとありがたいです。 よろしくお願いします。
今実物がないので。 １つめのコンポボックスのafterupdateの処理で、 requery ２つめのコンポボックス名 を書いてください。
お礼
早速のご回答、ありがとうございました。 ご指導いただきました通り実行しましたところ 上手く出来ました。 ありがとうございました。 今後とも、よろしくお願いします！ m( )m