Assigning Recordsets Dynamically to a form : Recordset « Access « VBA / Excel / Access / Word

Assigning Recordsets Dynamically to a form

Sub runFormNY()
    Dim con As ADODB.Connection
    Dim myRecordset As Recordset
    Dim strFrmNm As String
    Set myRecordset = New ADODB.Recordset
    myRecordset.CursorType = adOpenKeyset
    myRecordset.LockType = adLockOptimistic 

    Set con = New ADODB.Connection
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\mydb.mdb;"
       myRecordset.Open "SELECT * FROM Employees", con
       strFrmNm = "frmCustomer"
    DoCmd.OpenForm strFrmNm
    Set Application.Forms(strFrmNm).Recordset = myRecordset
    Set myRecordset = Nothing
    Set con = Nothing
End Sub


Related examples in the same category

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.Whether Records Are Returned in a Recordset
13.The Sort Property of the Recordset Object
14.Using the AbsolutePosition Property
15.Using the Bookmark Property
16.Refreshing Recordset Data
17.Set recordset to form
18.Row order in Dynamic Recordset
19.Dynamic Recordset
20.Snapshot Recordset
21.Set Index and seek the recordset