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

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

 

[Ken Snell]

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

 

[Dave]

Ahh...Thank you again Ken.

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