Getting a runtime error 2147352567 (80020009) 1

[Sheena2]

Private Sub Combo35_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[AttendeeID] = " & Me![Combo35]
Let Me.AttendeeID = Me![Combo35]
Me.Bookmark = rs.Bookmark
Me.Refresh

End Sub

Please help thanks

 

[Golom]

You didn't say where you're getting the error but you can try

Private Sub Combo35_AfterUpdate()
    ' Find the record that matches the control.
    Dim rs As [red]DAO.Recordset[/red]

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[AttendeeID] = " & Me![Combo35]
    [red]If Not rs.NoMatch Then [/red]
       Me.AttendeeID = Me![Combo35]
       Me.Bookmark = rs.Bookmark
       Me.Refresh
    [red]End If[/red]
    
End Sub

 

[Sheena2]

Thanks for your help Golom.

But am still getting an error at Me.AttendeeID=Me![Combo35} - "Cannot assign value to this object" Please help. thanks

 

[PHV]

Why not simply this ,

Private Sub Combo35_AfterUpdate()
    ' Find the record that matches the control.
    Dim rs As DAO.Recordset
    Set rs = Me.RecordsetClone
    rs.FindFirst "AttendeeID=" & Me!Combo35
    If Not rs.NoMatch Then 
       Me.Bookmark = rs.Bookmark
    End If
End Sub

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886