can't save a record that contains '

[basilyos]

hello guys
i want to filter data this is my code

        Dim str1 As String
str1 = "[Movie_Name] LIKE '*" & Me.Movie_Name.Text & "*'"
Me![tbl_Movies_Names].Form.Filter = str1
Me![tbl_Movies_Names].Form.FilterOn = True

everything is ok but if movie_name contains ' for examples (Ender's Game) i get this error 3075
syntax error (missing operator) in query expression

i know that ' will broke the code so how can i use it

 

[Uncle Gizmo]

If you have ' in your string use " as delimiters.

 

[basilyos]

uncle Gizmo Sorry the error was from filtering not from saving i edited my question sorry again

any help??

 

[pbaldy]

This should help, specifically Chr(34):

http://www.baldyweb.com/BuildSQL.htm

 

[vbaInet]

This is only an alternative/fyi.

str1 = "[Movie_Name] LIKE '*" & Replace(Me.Movie_Name.Text, "'", "''") & "*'"

However, I would do it the way that Uncle G and pbaldy mentioned.

By the way, why are you using the Text property? Are you running this in the Change event?

 

[basilyos]

thank you so much vbaInet it woks
and yes i'm running this code in the change event

 

[vbaInet]

No problemo!

And the preferred method (as Uncle G and pbaldy suggested) is this:

str1 = "[Movie_Name] LIKE " & Chr(34) & "*" & Me.Movie_Name.Text & "*" & Chr(34)