[AccessD] Bind Form to RecordSet

 Hi Arthur --

Access forms can be bound to ADODB recordsets only.

-- Shamil

Воскресенье, 24 февраля 2013, 13:16 -05:00 от Arthur Fuller <fuller.artful at gmail.com>:
>I'm playing around with ways to do this but am running into a problem.
>
>The form_open looks like this:
>
><vba>
>Dim db As DAO.Database
>Dim rs As DAO.Recordset
>Dim strSQL As String
>
>Set db = CurrentDb
>strSQL = "SELECT * FROM Volunteers WHERE LastName IS NOT NULL " & _
>         "ORDER BY LastName"
>'----------------------------------------------------------------------------------------------
>' Open the recordset
>'----------------------------------------------------------------------------------------------
>Set rs = db.OpenRecordset(strSQL)
>
>With rs
>    If .EOF And .BOF Then
>        MsgBox "No records returned."
>    Else
>        .MoveFirst
>        While Not .EOF
>            Debug.Print rs("VolunteerID"), rs("LastName")
>            .MoveNext
>        Wend
>    End If
>End With
>
>MsgBox "Setting new record source"
>Debug.Print "Setting new record source"
>
>'Here's where I get busted:
>'Set Me.RecordSource = rs
>
>rs.Close
>Set rs = Nothing
>End Sub
></vba>
>
>I read something from microsoft on how to bind a form to a recordset but
>the example was bound to a SQL Server db, and I wanted to keep it simple -
>just create a local recordset and then assign it to the recordsource.
>
>So I'm confused. Every previous time I've altered RecordSource it's been by
>substituting a string. But the code in the MS example uses exactly the
>syntax that failed me above.
>
>Any suggestions, people?
>
>-- 
>Arthur
>-- 
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website:  http://www.databaseadvisors.com