Code Error

[Sandy]

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

 

[Rob Parker]

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

 

[Sandy]

Perfect Rob - Thank You
Sandy

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?

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