[AccessD] Bind Form to RecordSet

Thanks for that, Shamil.

A.


On Sun, Feb 24, 2013 at 2:07 PM, Salakhetdinov Shamil <mcp2004 at mail.ru>wrote:

>  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
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>



-- 
Arthur
Cell: 647.710.1314

Prediction is difficult, especially of the future.
  -- Niels Bohr