Code Error

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Sandy - 27 May 2007 00:29 GMT

The following is apparently a known problem in access 2003 - an apostrophe
in the combo box item causes an error - how is it corrected?

Sandy

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

Set rs = Me.Recordset.Clone
rs.FindFirst "[Title] = '" & Me![Combo32] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Reply to this Message

Rob Parker - 27 May 2007 00:51 GMT

You can use a pair of double-quote characters as your string delimiter:
rs.FindFirst "[Title] = """ & Me![Combo32] & """"

Expanded for clarity, that is:
rs.FindFirst "[Title] = " " " & Me![Combo32] & " " " "

HTH,

Rob

> The following is apparently a known problem in access 2003 - an apostrophe
> in the combo box item causes an error - how is it corrected?
[quoted text clipped - 9 lines]
> If Not rs.EOF Then Me.Bookmark = rs.Bookmark
> End Sub

Reply to this Message

Sandy - 30 May 2007 12:06 GMT

Perfect Rob - Thank You
Sandy

> You can use a pair of double-quote characters as your string delimiter:
> rs.FindFirst "[Title] = """ & Me![Combo32] & """"
[quoted text clipped - 19 lines]
>> If Not rs.EOF Then Me.Bookmark = rs.Bookmark
>> End Sub

Reply to this Message