Code:

var = DLookup("[id]", "[Activity_Log]", "[id] = " & Forms![Activity_Logs]![cbWeek])

Dim rs As ADODB.Recordset
Set rs = Me.RecordsetClone

rs.Find "id = " & var
Me.Bookmark = rs.Bookmark


I keep getting that error at the line which says "Me.Bookmark = rs.Bookmark"

What is wrong?

Thanks

Try

Dim rs As Object, var as Variant

var = DLookUp("[id]", "Activity_Log", "[id] = " & Me.cbWeek)

If Not IsNull(var) Then
    Set rs = Me.Recordset.Clone
    rs.Find "id = " & var

    If Not rs.EOF Then
        Me.Bookmark = rs.Bookmark
    End If

    Set rs = Nothing
End If


The Me is just a shortcut for Forms![Activity_Logs] if your code is within that form.


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Thanks for replying but I still get the same error on that line in your code. What's the cause of this?