| |
▼あおぎん さん、VBWASURETA さん：
こんにちは。
> エラー「実行時エラー’3061’ パラメータが少なすぎます。」が出ます。
パラメータクエリを Recordset オブジェクトに入れるためには
パラメータを指定してあげないと上記のようなエラーがでます。
Q_コメント印刷用 のクエリがこのプロシジャ以外から呼ばれる場合は
'クエリの作成
str = str & constr & ";"
Set db = CurrentDb()
Set qdf = db.QueryDefs("Q_コメント印刷用")
qdf.SQL = str
qdf.Parameters(0) = Forms!F_コメント印刷!受診日
qdf.Parameters(1) = Forms!F_コメント印刷!受診日至
Set rst = qdf.OpenRecordset 'qdfからレコードセットを生成
qdf.Close '上記理由により、Closeする場所の変更
rst.MoveLast '←追加
If rst.RecordCount = 0 Then
…
のようにしてQueryDefオブジェクトから
レコードセットを生成する事になります。
Q_コメント印刷用 のクエリが他では使用されない場合には
パラメータ値を直接SQL内に記述すれば該当のエラーは出ない筈です。
constr = " WHERE UQ_コメント印刷用.受診日 between " _
& "#" & Forms!F_コメント印刷!受診日 & "# AND " _
& "#" & Forms!F_コメント印刷!受診日至 & "#"
|
|
小僧
- 07/12/6(木) 18:39 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
