検索用フォームで数値型データを抽出する方法

質問

いつも大変お世話になっております。アクセス初心者ですが宜しくお願いします。

テーブル1を元にクエリ1を作成し，それを元にフォーム表示用を作成しました。フォーム表示用のデータを検索するために非連結のフォーム検索用を作成しました。
検索用フォームでは，氏名，住所，契約締結日等複数の非連結フィールドがあり，入力された値を抽出するために，検索実行というコマンドボタンを一つ配置しています。

検索実行コマンドボタンは，以下のようになっています。
Private Sub 検索実行_Click()
On Error GoTo エラー処理

Dim StrWhr As String 'Where条件式
Dim StrMsg As String '表示メッセージ
Dim StrSrc As String 'レコードソース
Dim stDocName As String '表示用フォームの名前

If Nz(Me!名前, "") <> "" Then
StrWhr = IIf(StrWhr = "", "", StrWhr & " And ") & "名前 Like '*" & Me!名前 & "*'"
End If

If Nz(Me!契約締結日, "") <> "" Then
StrWhr = IIf(StrWhr = "", "", StrWhr & " And ") & "Format(契約締結日,'yyyy/mm/dd') Like '*" & Me!契約締結日 & "*'"
End If

If MsgBox(StrMsg, vbOKCancel, "確認") = vbOK Then

DoCmd.OpenForm "frm_顧問先CARD", , , StrWhr

End If

終了処理:
Exit Sub
エラー処理:
MsgBox Err & Error$, , Me.Name & " 検索実行"
Resume 終了処理
End Sub

表示用フォームに契約年数という項目があり，数値型のデータが入力されています。そのデータを検索用フォームで算術演算子を使用して抽出するには，どのようにしたら良いでしょうか。

過去に質問したことと似ているので，色々と参考書を見ながら考えてみたのですが，上手くいきません。
できれば，一つのテキストボックスに
>12
とか
4<8
とか入力してデータを抽出したいですが，不可能なら検索用フォームに二つのテキストボックスを配置して，そのテキストボックスで範囲を指定し，範囲内のレコードを抽出するという方法でも構いません。

どなたか，ご教示下さい。宜しくお願いいたします。

回答No.1

tossy005

ユーザーがシステムの中をわかっている、かつ1つの比較でいいのなら
If Nz(Me!契約年数, "") <> "" Then
StrWhr = IIf(StrWhr = "", "", StrWhr & " And ") & "契約年数" & A
End If
※Aには>3や=3などテキストボックスの値が入ります
で済むでしょうが、そうもいかないでしょうから"契約年数" & Aの部分を工夫する必要があります。

■1つのテキストボックスで行う場合
(1)テキストボックスの値を取得し、半角全角スペースを削除します。
　単純にやるならReplace関数で半角全角スペースを""に置換
(2)算術演算子（=,>=,<=,>,<)を(1)の結果から探します。
　例題の書き方をルールとするならば1回探せばOK。Instr関数などを使って探しましょう。
(3)算術演算子の前と後ろのデータを取得します。
　Split関数で(1)の結果を第一引数、(2)でヒットした算術演算子を第二引数として適当なString型の配列（ここでは仮にstr()とします）で戻り値を取得します。
(4)(3)の結果が""がどうかをチェックします。
　str(0)には算術演算子の前の値、str(1)には算術演算子の後ろの値が入っています。例題でいうところの「>12」なのか「4<8」なのかをこれでチェックします。
(5)(4)の結果、どちらかが""ならば"契約年数" & Aは"契約年数" & 算術演算子 & ""でない値になります。
　両方とも""でないならば"契約年数" & Aは"契約年数" & 算術演算子 & 前の値 & "AND 契約年数" & 算術演算子 & 後ろの値になります。
　ただし、テキストボックスの書き方によって算術演算子を工夫しないといけません。
　（4<8と8>4は同じことですが、前の場合は>と<、後ろの場合は<と>、また>3と3<も同じことですが、前の場合は>、後ろの場合も>という具合に算術演算子を変えないといけないということです）

補足

丁寧なご回答ありがとうございます。誰からもお返事をいただけないかと思いビクビクしていたのでとても嬉しかったです。

さて，回答の中で不明な点があります。
表示用フォームに表示される契約年数フィールドには，算術演算子は使っていません。単純に2とか18とか数値型のデータが入力されています。検索用のフォームで抽出するときにのみ，算術演算子を利用したいのですが，上記の回答で可能でしょうか。

If Nz(Me!契約年数, "") <> "" Then
StrWhr = IIf(StrWhr = "", "", StrWhr & " And ") & "契約年数" & A
End If

としたところ，フィルタのかかった状態のデータが表示用フォームに抽出されますが，<3と入力しても3年以上の契約年数のデータも抽出されてしまいます。

>■1つのテキストボックスで行う場合
>(1)テキストボックスの値を取得し、半角全角スペースを削除します。
>　単純にやるならReplace関数で半角全角スペースを""に置換
>(2)算術演算子（=,>=,<=,>,<)を(1)の結果から探します。
>　例題の書き方をルールとするならば1回探せばOK。Instr関数などを
>使って探しましょう。

について，「値を取得するテキストボックス」とは，当然，データの入力されている表示用フォーム（つまり，そのレコードソースであるクエリ１）の中のデータの半角全角スペースを置換したり，算術演算子を探すということですか？そうだとしたら，表示用フォームに入力されているデータは数値なので半角全角スペースや算術演算子はありません。

私の理解が未熟なのだと思いますが，どうしたらよいか分かりません。お手数ですが，さらなるご回答をお願いします。