Goto Record

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Pierre - 16 Jan 2008 16:19 GMT

I'm going to use a code I found in a post dated 1/16/2008:Goto Record
Problem. Doing so I ran into a problem.
Once I entered the code in Text256_AfterUpdate I recived the following Run
Time error '13' Type mismatch.

'Here is the modified code I entered.
Private Sub Text256_AfterUpdate()
Dim rs As Object
Set rs - Me.Recordset.Clone
'NOTE: BELOW LINE is hightlighted in yellow when I debug
rs.FindFirst "[Sur Name] = " & Str(Nz(Me![Text256],0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.[Given Name].SetFocus
Me.Text256 = ""
End Sub

' Can anyone please provide some input as to what I could have done wronge.

Signature

Work is sometimes hard....but someone has to do it.

Reply to this Message

Jeanette Cunningham - 16 Jan 2008 20:41 GMT

Pierre,
this is how I usually do this type of thing
Check that the LastName field in your table is called Sur Name with a space
in it and not SurName

Private Sub Text256_AfterUpdate()
Dim rs As DAO.recordset
Set rs = Me.Recordset.Clone
If Not IsNull(Me.Text256) Then
rs.FindFirst "[Sur Name] = """ & Me.Text256 & """"
If Not rs.NoMatch Then
Me.Bookmark = rs.Bookmark
Me.[Given Name].SetFocus
Else
Msgbox "Not found"
End If
End If
set rs = nothing
End Sub

Jeanette Cunningham

> I'm going to use a code I found in a post dated 1/16/2008:Goto Record
> Problem. Doing so I ran into a problem.
[quoted text clipped - 14 lines]
> ' Can anyone please provide some input as to what I could have done
> wronge.

Reply to this Message