Checkbox and filter text field

[hockeyfan21]

Hi,

I need to add an additional filter to my unbound form and can't seem to get the syntax right -

I have a text field in my form "[B Style]" that has either a "Y" or "N"

I want to add a checkbox on my main form where, if checkbox=True then [B Style]="Y"

Private Sub ckBStyle_Click()
Dim stFilter As String
Dim stDocName As String
stDocName = "Modify_OpenItems"
If Me.ckBStyle.Value = True Then
DoCmd.OpenForm stDocName, , , ("[B Style]" = "Y")
Else: DoCmd.OpenForm stDocName
End If
End Sub

stDocName is opening but is completely blank.

Incorrect syntax??

Thanks!

 

[MarkK]

Try . . .

DoCmd.OpenForm stDocName, , , "[B Style] = 'Y'"