RsetEOF
Function RecordsetIsEmpty(Rec As Recordset) On Error Resume Next Rec.MoveFirst RecordsetIsEmpty = Err <> 0 On Error GoTo 0 End Function
Function RecordsetIsEmpty(Rec As Recordset)
On Error Resume Next
Rec.MoveFirst
RecordsetIsEmpty = Err <> 0
On Error GoTo 0
End Function
( rseteof.html )- by Paolo Puglisi
- Modifica del 17/12/2023