if statement using "like" will not work

[boomer1974]

Good day all,

I am having a terrible time with the following code. I keep getting a "type mismatch error" If I use an "=" (without all the wildcard syntax) instead of "like" it works fine but I really need the "like statement" any help would be greatly appreciated. Here is the code.

Public Sub Warning_Done()
Dim myuser As Integer
Dim dbs As Database
Dim rst As Recordset

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * from tblWarning&quot
myuser = Forms!frmCalender!User
rst.MoveFirst

Do Until rst.EOF = True
If rst!UserID = myuser Then
MsgBox "table: " & rst!warningtype
MsgBox "forms: " & Forms!frmCalender!warning
If rst!warningtype.Value Like "chr(34)" * " & Forms!frmCalender!warning.value & chr(34)" * "" And rst!warningDone = False Then
Forms!frmCalender!warning.Visible = True
End If

End If
rst.MoveNext

Loop
End Sub

thanks,
Boomer

 

[SgtJarrow]

I believe it should read:

If rst!warningtype.Value Like "chr(34) * " & Forms!frmCalender!warning.value & " * chr(34)" And rst!warningDone = False Then


Or try

If rst!warningtype.Value Like """" & " * " & Forms!frmCalender!warning.value & " * " & """" And rst!warningDone = False Then

The second asterisk seemed to be in the wrong place and there was an extra double quote with each chr(34)

The second example uses four double quotes instead of the chr(34)...usually produces the same results for me. Only two things are infinite, the universe and human stupidity, and I'm not sure about the former. (Albert Einstein)

Robert L. Johnson III, MCP, Network+, A+
Access Developer/Programmer
robert.l.johnson.iii@citigroup.com

 

[boomer1974]

Thanks,

Worked perfectly!

Boomer