「パラメータが少なすぎます。１を指定してください」

質問

_{2014年3月20日木曜日 5:03}

   

Private Sub ABCの検索_Click()
DoCmd.OpenForm "ABCの検索"

Dim db As Database
Dim INP1 As Recordset

Set db = CurrentDb

' ここでエラーになる
Set INP1 = db.OpenRecordset("SELECT * FROM 限月 WHERE (((限月.[発会日]) <= Date) And ((限月.[納会日]) >= Date)) ORDER BY 限月.[限月]")
INP1.Close
db.Close
End Sub

これで実行すると、
「パラメータが少なすぎます。１を指定してください」
となります。

どういう風に直せばよいのでしょうか？

すべての返信 (1)

_{2014年3月20日木曜日 6:03 ✅回答済み}

Set INP1 = db.OpenRecordset("SELECT * FROM 限月 WHERE ((([発会日])<=Date()) AND (([納会日])>=Date())) ORDER BY [限月]")

で、うまくいきました。