Access複数条件の検索フォームでエラーがでてしまう

Question

実現したいこと

Accessフォームで複数条件での検索フォームを作成したいです。
テキストボックスに条件を入力または選択して「検索」ボタンをクリックすると条件にあったレコードのみが表示されるようにしたいです。現在はエラーメッセージが表示されてしまいます。ご教授頂けると幸いです。よろしくお願いします。

前提

社内で使用予定の社有車の検索フォームを作成しました。検索条件を入力するテキストボックスを2つ作成しました。作成したテキストボックスに条件を入力または選択し「検索」ボタンをクリックするとエラーが出てしまいます。

発生している問題・エラーメッセージ

エラーメッセージが「型が一致しません」と表示されてしまいます。
調べたところデータ型が一致していないと書いてあったのですが直し方がわかりません。テキストボックスを単体で検索をすることはできるので原因がわからず困っています。
検索フィールドは共に短いテキストで設定しています

該当のソースコード

試したこと

「検索」ボタンクリック時のVBA
Me.Filter = "車種小分類='" & Me.車種小分類選択 & " '" And "事業部='" & Me.事業部選択 & " '"
Me.FilterOn = True
End Sub

補足情報（FW/ツールのバージョンなど）

Comments

[YT0014]

コードは、コードマークダウンでご提示ください。
「データ型が一致していない」のですから、関係する部分のデータ型を確認してみてください。
フィルター設定部を、演算子毎に別行にしてみるなどをお試しください。

Answer 1

Me.Filter = "車種小分類='" & Me.車種小分類選択 & " '" And "事業部='" & Me.事業部選択 & " '"

上記コードの右辺は、文字列　AND 文字列 となるため、ブール型となります。
左辺は、文字列型を要求しますので、「型が一致しません」
Form.Filter プロパティ

ANDも文字列として連結してください。

追記

Me.Filter = "車種小分類='
Me.Filter = Me.Filter & Me.車種小分類選択
Me.Filter = Me.Filter & " '"
Me.Filter = Me.Filter And "事業部='"
Me.Filter = Me.Filter & Me.事業部選択 & " '"

Comments

[0531]

回答ありがとうございました。
無事できました。
また何かありましたら助けて下さい。

[YT0014]

自力で解決できるような努力をお願いします。
質問へのコメントに記載した、できるだけコードを多くの行に分けるのは、エラーの特定に便利ですので、修得されることをお勧めします。
参考までに、元のコードの場合を追記しておきます。

Answer 2

Null考慮の不足です。
エラー対処だけなら、以下の様にすれば良いかと思います。
※文字列区切りの'の前のスペースは一致しなくなるので不要です。

Me.Filter = "車種小分類='" & Nz(Me.車種小分類選択) & "' And 事業部='" & Nz(Me.事業部選択) & "'"

Comments

[sazi]

and 部分を見落としていたので訂正

[0531]

いつも助かっております。
無事設定することができました。
ありがとうございました。