How do I move to last record on form when it loads?

  • Thread starter Thread starter Dave
  • Start date Start date
D

Dave

The code below produces a Type Mismatch error when I try to set rsClone as
Me.RecordsetClone():

Dim rsClone As Recordset

Set rsClone = Me.RecordsetClone()

If rsClone.RecordCount > 0 Then
rsClone.MoveLast
rsClone.Bookmark = Me.Bookmark
End If

Likewise so does this:

Dim rs As Recordset

Set rs = Me.Recordset
rs.MoveLast

How do I move to the last record in my form?
 
Likely you're using ACCESS 2000 or 2002. You need to add the DAO library to
the references (VBE: Tools | References) and then disambiguate the
Recordset dim. A form recordset is a DAO recordset, not an ADO recordset.

Dim rsClone As DAO.Recordset

Also, your code logic is wrong. This line:
rsClone.Bookmark = Me.Bookmark
should be this:
Me.Bookmark = rsClone.Bookmark
 
Ahh...Thank you again Ken.


Ken Snell said:
Likely you're using ACCESS 2000 or 2002. You need to add the DAO library to
the references (VBE: Tools | References) and then disambiguate the
Recordset dim. A form recordset is a DAO recordset, not an ADO recordset.

Dim rsClone As DAO.Recordset

Also, your code logic is wrong. This line:
rsClone.Bookmark = Me.Bookmark
should be this:
Me.Bookmark = rsClone.Bookmark
Click to expand...
 
Back
Top