[AccessD] Bind Form to RecordSet

Arthur,

I would try
Me.Recordsource = strSQL

rather than  rs

Just a guess.

On Sun, Feb 24, 2013 at 1:16 PM, Arthur Fuller <fuller.artful at gmail.com>wrote:

> 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
>