2つのコンボボックスを含むフィルタをかけたい（and検索）

質問

こんばんは。
ＶＢ2008です。
フォーム上に２つのコンボボックスがあります。

Sub フィルタ()
Form1.TメインBindingSource.Filter = "進捗 LIKE '*" & Form1.進捗.Text & "*'"
Form1.TメインBindingSource.Filter = "番号 LIKE '*" & Form1.番号.Text & "*'"
End Sub

を実行して、、「進捗」と「番号」コンボボックスに入力されている値のフィルタをかけたいのですが
上記のコート゛だと進捗コンボボックスの値は無視され、番号コンホ゛ホ゛ックスの値しか取得できません。

なので
Sub フィルタ()
Form1.TメインBindingSource.Filter = "進捗 LIKE '*" & Form1.進捗.Text & "*'" 　and　Form1.TメインBindingSource.Filter = "番号 LIKE '*" & Form1.番号.Text & "*'"
End Sub

としてみましたが、
andの部分がエラーになります。

どうすればand検索ができるのでしょうか？
よろしくお願い致します。

回答No.1

うぃず（@Wizard_Zero） · ベストアンサー

BindingSourceは使ったことがないのですが、構文エラーは直せるので投稿してみます。

Form1.TメインBindingSource.Filter = "進捗 LIKE '*" & Form1.進捗.Text & "*' and 番号 LIKE '*" & Form1.番号.Text & "*'"

お礼

うまくいきました！ご回答ありがとうございます。