access2007 VBA データの抽出SQLがわかりません。

質問

access2007 VBA データの抽出SQLがわかりません。

下記のように記述しているのですが、Aテーブルから必要なデータが抽出できません。どなたかご教授いただけますか。

※　「Me.txtSEQ前.Value」「Me.txtSEQ後.Value」はテキストコントロールです。プロパティでの書式設定は何もしていません。

=========================================
Dim intSEQ前 As Long
Dim intSEQ後 As Long

'テキストコントロールなので、数値型にする。
'分かりやすくするために、ここで定義しています。
intSEQ前 = CLng(Me.txtSEQ前.Value)
intSEQ後 = CLng(Me.txtSEQ後.Value)

'データを抽出します
'intSEQ前からintSEQ後に入力された数値を抽出する。
strSQL = "SELECT "
strSQL = strSQL & "* "
strSQL = strSQL & "FROM Aテーブル "
strSQL = strSQL & "WHERE 県コード=1 "
strSQL = strSQL & "AND (SEQ >= intSEQ前 OR SEQ <= intSEQ後) "
strSQL = strSQL & "ORDER BY SEQ "

Set objRs = myDB.OpenRecordset(strSQL, dbOpenSnapshot)

※下記をコメントアウトするとデータは正しく抽出されているようです。
strSQL = strSQL & "AND (SEQ >= intSEQ前 OR SEQ <= intSEQ後) "

以上。よろしくお願い致します。

回答No.2

nag0720 · ベストアンサー

パラメータクエリを使うのが正攻法ですが、それが難しかったら変数の値をSQL文に記述してもＯＫです。

strSQL = strSQL & "AND (SEQ >= intSEQ前 OR SEQ <= intSEQ後) "
↓
strSQL = strSQL & "AND (SEQ >= " & intSEQ前 & " OR SEQ <= " & intSEQ後 & ") "

お礼

教えていただいたもので抽出できました。ありがとうございました。
（しかし、ORではなくANDでした・・・。）

回答No.1

osamuy

SQL文中にVBA変数名を直書きできると考えたのが、敗因。
パラメータクエリを使ってみては。

http://www.google.co.jp/search?hl=ja&lr=lang_ja&tbs=lr%3Alang_1ja&q=%E3%83%91%E3%83%A9%E3%83%A1%E3%83%BC%E3%82%BF%E3%82%AF%E3%82%A8%E3%83%AA+Access+ADO&aq=f&aqi=&aql=&oq=&gs_rfai=

お礼

パラメータクエリを使った事がなく、存在すら知りませんでした。次回、是非使ってみたいです！ありがとうございます！