Whether Records Are Returned in a Recordset

 
Sub CheckARecordset()
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset

    rst.ActiveConnection = CurrentProject.Connection
    rst.CursorType = adOpenStatic
    rst.Open "Select * from Employees"

    If Not rst.RecordCount Then
      msgBox "Recordset Empty...Unable to Proceed"
    End If

    rst.Close
    Set rst = Nothing
End Sub

1.	Looping Through a Recordset
2.	Retrieve data from Recordset by table column name
3.	Move cursor in result set
4.	Build a string text from result set
5.	Creating a Custom Recordset
6.	Creating a Disconnected Recordset
7.	Filling a Combo Box with a Disconnected Recordset
8.	The Supports Method of the Recordset Object
9.	Using the EOF Property to Determine the Bounds of a Recordset
10.	A Recordset That Does Not Support the RecordCount Property
11.	A Recordset That Supports the RecordCount Property
12.	The Sort Property of the Recordset Object
13.	Using the AbsolutePosition Property
14.	Using the Bookmark Property
15.	Refreshing Recordset Data
16.	Assigning Recordsets Dynamically to a form
17.	Set recordset to form
18.	Row order in Dynamic Recordset
19.	Dynamic Recordset
20.	Snapshot Recordset
21.	Set Index and seek the recordset

Whether Records Are Returned in a Recordset : Recordset « Access « VBA / Excel / Access / Word

Related examples in the same category