| |
こんにちは。
>Do Until rs!SyainNo = TXT_Sno And Year(rs!Date) = TXT_Nen And Month(rs!Date) = TXT_Tuki
> rs.MoveNext
>Loop
>「rs!SyainNo のカレントレコードがありません」となってしまいます。
もしかして、最終レコードまで移動した（EOF=TRUE）際の、
Do〜Loopを抜け出る記述がないから？
だとしたら、
Do Until rs.EOF
If rs!SyainNo = TXT_Sno And _
Year(rs!Date) = TXT_Nen And _
Month(rs!Date) = TXT_Tuki Then
…
End If
rs.MoveNext
Loop
では、如何でしょうか。
>クエリの中に勤怠管理１というものがあり、そこからフィールド名「社員番号」、フィールド名「日付」の年、月が一致するレコードまで移動したいのですが、
単に一致するレコードだけを取得したいなら、全件読み込むまでも無く、
レコードセットを開く際に、抽出条件が指定されているクエリやＳＱＬ文を
指定されてもいいですし、
DAO、ADOのいずれを用いているのか存じませんが、
FindFirstメソッド(DAO)
Findメソッド(ADO)
などを用いた方が効率がよろしいかと。
|
|
MJM
- 05/1/17(月) 14:45 -
