If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Errors 2448 and 3075!
I have a search comand button and it works most of the time, excpet with one
name (so far) O'Shea. It comes up with the following error message: Run- time error '2448' You can't assign a value to this object. The debugger highlights this: Me.Filter = "[Surname] LIKE '*" & RetVal & "*'" However othertimes, it says this: Runt-time error '3075' Syntax error (missing operator) in query expression "[Surname] LIKE '*O'Shea*". Any ideas? Here's the whole section: Private Sub Command187_Click() Dim RetVal As String RetVal = InputBox("Enter Surname") If RetVal "" Then Me.Filter = "[Surname] LIKE '*" & RetVal & "*'" Me.FilterOn = True End If End Sub Many Thanks C |
#2
|
|||
|
|||
Errors 2448 and 3075!
hi,
On 19.04.2010 13:19, Confused87 wrote: I have a search comand button and it works most of the time, excpet with one name (so far) O'Shea. It comes up with the following error message: Run- time error '2448' You can't assign a value to this object. The debugger highlights this: Me.Filter = "[Surname] LIKE '*"& RetVal& "*'" This is hard to solve. Is it reproduce-able? However othertimes, it says this: Runt-time error '3075' Syntax error (missing operator) in query expression "[Surname] LIKE '*O'Shea*". This one should be obvious: You need to escape your strings. The resulting SQL string in you case is [Surname] LIKE '*O' followed by the non SQL command Shea*. Use Replace() to escape the single quotation mark. Any ideas? Here's the whole section: Rewrite it: Private Sub Command187_Click() On Local Error GoTo LocalError Dim RetVal As String RetVal = Trim(InputBox("Enter Surname")) If RetVal "" Then Me.Filter = "[Surname] LIKE '*" & Replace(RetVal, "'", "''") & "*'" Me.FilterOn = True End If Exit Sub LocalError: MsgBox "Error while filtering for '" & RetVal & "'." & VbCrLf & _ Err.Number & " " & Err.Description End Sub mfG -- stefan -- |
Thread Tools | |
Display Modes | |
|
|