複数条件でのレコード抽出について

質問

いつも大変お世話になっています。
複数条件でのレコード抽出で教えていただけますでしょうか？

下記のようなサンプルコードを見つけ、実際に抽出できることを確認しました。
ただ、テーブル名：学生名簿の　身長と体重のデータ型が数値型である必要が
あるようで、他の型では　Set rs = CurrentDb.OpenRecordset(SQL)　でエラー
となってしまいます。テキスト型の入力でエラーが出ないように記述するには
どうしたらよいのでしょうか？
Access2010、Win7を使用しています。

サンプルコードは身長と体重を入力し、条件にあった内容をテキスト1に出力する
コードです。
ーーサンプルコードーー
Option Compare Database
Private Sub コマンド8_Click()
Dim SQL As String
Dim rs As Recordset
If IsNull(Me!テキスト2) Then
MsgBox "抽出する身長を入力してください。"
Me!テキスト2.SetFocus
Exit Sub
End If

If IsNull(Me!テキスト3) Then
MsgBox "抽出する体重を入力してください。"
Me!テキスト3.SetFocus
Exit Sub
End If

Me!テキスト1 = Null
SQL = "SELECT 学生ID,身長,体重 FROM 学生名簿 WHERE 体重>=" & Me!テキスト3 & " AND 身長>=" & Me!テキスト2
Set rs = CurrentDb.OpenRecordset(SQL)
Do Until rs.EOF
Me!テキスト1 = Me!テキスト1 & rs![学生ID] & "： " & rs![身長] & " " & rs![体重] & vbCrLf
rs.MoveNext
Loop
Set rs = Nothing
End Sub

回答No.1

piroin654 · ベストアンサー

Accessで型変換について探せばいろいろ出てくると思いますが、

>SQL = "SELECT 学生ID,身長,体重 FROM 学生名簿 WHERE 体重>=" & Me!テキスト3 & " AND 身長>=" & Me!テキスト2

を、

SQL = "SELECT 学生ID,身長,体重 FROM 学生名簿 WHERE Val([体重])>=" & Val(Me!テキスト3) & " AND Val([身長])>=" & Val(Me!テキスト2)

のようにします。
テキストボックスはデフォルトのIME入力モードならばPCの入力方法によりますが、一応、テキストボックスのほうにも型変換の網をかけておきます。

このように、WHERE条件の体重と身長のフィールド名をVal([体重])、Val([身長])のようにVal関数でフィールドの値を数値に変更します。ただし、Val関数は小数点以下を取らないので小数点があるならCLng([体重])、CLng([身長])のようにCLng関数を使います。

SQL = "SELECT 学生ID,身長,体重 FROM 学生名簿 WHERE CLngng([体重])>=" & Me!テキスト3 & " AND CLng([身長])>=" & Me!テキスト2

あるいは、

SQL = "SELECT 学生ID,身長,体重 FROM 学生名簿 WHERE CLng([体重])>=" & CLng(Me!テキスト3) & " AND CLng([身長])>=" & CLng(Me!テキスト2)

なお、
Set rs = CurrentDb.OpenRecordset(SQL)
としているので、参照設定でDAOにチェックが入っていると思いますが、
もし、ADOにもチェックが入っていればエラーおきる可能性もあるので、
変数宣言で、

Dim rs As Recordset

を

Dim rs As DAO.Recordset

のようにしておいてください。

お礼

piroin654さん
ありがとうございました。無事解決できました。Val()で強制的に変換できる事を知り
勉強になりました。
＞Accessで型変換について探せばいろいろ出てくると思いますが
検索の仕方も併せて勉強していきたいと思います。