Run Time error 3077

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Joe - 31 Jul 2008 19:53 GMT

I have an access 2003 database that has a combo box on a form. It was working
for the past two days, but today it is giving me the Runtime Error 3077 when
I search for a record in the list. Can you please help me out. Below is the
error code.

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

Set rs = Me.Recordset.Clone
rs.FindFirst "[University/Hospital] = '" & Me![Combo15] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Thank You.

Reply to this Message

Klatuu - 31 Jul 2008 22:39 GMT

There are a number of problems with your code.
Try using this version:

Private Sub Combo15_AfterUpdate()
' Find the record that matches the control.

With Me.RecordsetClone
.FindFirst "[University/Hospital] = """ & Me![Combo15] & """"
If Not .NoMatch Then
Me.Bookmark = .Bookmark
End If
End With
End Sub

Signature

Dave Hargis, Microsoft Access MVP

> I have an access 2003 database that has a combo box on a form. It was working
> for the past two days, but today it is giving me the Runtime Error 3077 when
[quoted text clipped - 11 lines]
>
> Thank You.

Reply to this Message