Runtime error '3077': , single & double quote

[Dewan Choudhury via AccessMonster.com]

Thanks for the code that helps when it happens to have a single quote on the string, but I am encountering different scenario.

I have sometimes single quote and somtimes double quote string,

The following code works fine if there's a single quote but I need help if I have double quotes also, which means a string on a 2nd seperate instance may have "" quotes.


Private Sub Combo84_AfterUpdate()
Dim rs As Object
Dim strIx

strIx = Me![Combo84]
Set rs = Me.Recordset.Clone
rs.FindFirst "[Issue] = " & Chr$(34) & strIx & Chr$(34)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Please help!!!
Best regards,
Dewan

 

[Ken Snell [MVP]]

Use the Replace function to double up the " characters:

rs.FindFirst "[Issue] = " & Chr$(34) & Replace(strIx, Chr(34), Chr(34) &
Chr(34), 1, -1, vbTextCompare) & Chr$(34)
--

Ken Snell
<MS ACCESS MVP>

Thanks for the code that helps when it happens to have a single quote on

the string, but I am encountering different scenario.

I have sometimes single quote and somtimes double quote string,

The following code works fine if there's a single quote but I need help if

I have double quotes also, which means a string on a 2nd seperate instance
may have "" quotes.

Private Sub Combo84_AfterUpdate()
Dim rs As Object
Dim strIx

strIx = Me![Combo84]
Set rs = Me.Recordset.Clone
rs.FindFirst "[Issue] = " & Chr$(34) & strIx & Chr$(34)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Please help!!!
Best regards,
Dewan