Expand|Select|Wrap|Line Numbers
- 'Common Code Block
- Dim MyDB As DAO.Database, MyRS As DAO.Recordset
- Set MyDB = CurrentDB()
- Set MyRS = MyDB.OpenRecordset("qryEmployees", dbOpenDynaset)
- 'Method #1
- If Not MyRS.BOF And Not MyRS.EOF Then
- 'you will only be here if Rows are returned
- End If
- 'Method #2
- Do Until MyRS.EOF
- 'if the Recordset returns no Rows, Loop will not be entered
- Loop
- 'Method #3
- If MyRS.Recordcount > 0 Then
- 'you will only be here if Rows are returned
- End If
- NOTE: If you are looking for an exact Record Count in addition
- to testing for an Empty Recordset, it is a good idea to traverse
- the Recordset beforehand as in:
- MyRS.MoveLast: MyRS.MoveFirst
- Debug.Print MyRS.RecordCount
- ------------------------------------------------------------------------------
- NOTE: Any explicit move in an Empty Recordset such as MoveNext,
- MoveLast will result in a Runtime Error.