フォームのコンボボックスのチェンジイベントがエラー

質問

フォームのコンボボックスのチェンジイベントがエラーになってしまいます

フォームのコンボボックスで値が変更するたびに
コンボックスのリストを絞り込むようにしたいので

フィールド1
1111
1112
1113
1211
1212

フォーム1を作成しコンボボックスを設置し
値集合ソースを
SELECT テーブル1.フィールド1
FROM テーブル1
WHERE (((テーブル1.フィールド1) Like "*" & [テーブル1]![フィールド1] & "*"));

として
コンボボックスの変更時イベントに

Private Sub コンボ0_Change()
Form_フォーム1.コンボ0.Requery
End Sub

としました。

そしてこのコンボボックスに
「2」というように値を入力すると
「実行時エラー '2118' "Requery/再クエリ"アクションを実行する前に、カレンとフィールドを保存する必要があります。」
となってしまいます。

やりたいことは
コンボボックスに「2」を入力すれば
テーブル１の「2」が含まれるものが抽出され
1112
1211
1212
がコンボボックスの
▼マークをクリックした後のリストに表示されるようにしたいのですが
どうすればいいでしょうか？
よろしくお願いします。

回答No.1

mitarashi · ベストアンサー

発想に無理がある様に思いますが、お勉強のためにやってみました。なお、当方Access2000です。
下記の様にすれば、それらしい動作をするかもしれません。この後どのように使われるのかがわかりませんので、とりあえず「2」で絞り込んだリストから選択して、表示するところまで実現してみました。
ご参考まで。

Private Sub Form_Load()
Me.コンボ0.RowSource = ""
End Sub

Private Sub コンボ0_Change()
Dim buf As String

buf = "*" & Me.コンボ0.Text & "*"
If Me.コンボ0.RowSource = "" Then
Me.コンボ0 = Null
Me.コンボ0.RowSource = "SELECT field1 FROM table1 WHERE field1 Like '" & buf & "';"
Me.コンボ0.Dropdown '「2」が消えて訳がわからなくなるのでリストを表示
End If
End Sub

お礼

ありがとうございました。

回答No.2

m3_maki

こちらがズバリでしょう。

コンボボックスのリストを入力値で制限する - hatena chips
http://hatenachips.blog34.fc2.com/blog-entry-282.html

お礼

ありがとうございました。