フォームのコンボボックスのチェンジイベントがエラー
フォームのコンボボックスのチェンジイベントがエラーになってしまいます
フォームのコンボボックスで値が変更するたびに
コンボックスのリストを絞り込むようにしたいので
フィールド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」を入力すれば
テーブル1の「2」が含まれるものが抽出され
1112
1211
1212
がコンボボックスの
▼マークをクリックした後のリストに表示されるようにしたいのですが
どうすればいいでしょうか?
よろしくお願いします。
お礼
リンク先と同じアイコンです!ありがとうございました。