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
|
|||
|
|||
Syntax Error
Hi all, can anyone spot the syntax error in the code below, its driving me
mad !! Thanks Private Sub FilterUIN_Click() If Me![FilterUINText].Value = "" Then Me.SERDatasheet.Form.FilterOn = False Else Me.SERDatasheet.Form.Filter = "boiler uin like'*" & Me![FilterUINText].Value & "*' or Desc like '*" & Me![FilterUINText].Value & "*'" Me.SERDatasheet.Form.FilterOn = True End If End Sub |
#2
|
|||
|
|||
Syntax Error
There's a space in your field name. Change to
"[boiler uin] like'*" -- Doug Steele, Microsoft Access MVP http://www.AccessMVP.com/DJSteele (no e-mails, please!) "blake7" wrote in message ... Hi all, can anyone spot the syntax error in the code below, its driving me mad !! Thanks Private Sub FilterUIN_Click() If Me![FilterUINText].Value = "" Then Me.SERDatasheet.Form.FilterOn = False Else Me.SERDatasheet.Form.Filter = "boiler uin like'*" & Me![FilterUINText].Value & "*' or Desc like '*" & Me![FilterUINText].Value & "*'" Me.SERDatasheet.Form.FilterOn = True End If End Sub |
#3
|
|||
|
|||
Syntax Error
Blake7 -
I suspect "boiler uin" is the name of a field since it is before 'like'. If so, it needs square brackets due to the space in the fieldname. Try this: Private Sub FilterUIN_Click() If Me![FilterUINText].Value = "" Then Me.SERDatasheet.Form.FilterOn = False Else Me.SERDatasheet.Form.Filter = "[boiler uin] like'*" & Me![FilterUINText].Value & "*' or Desc like '*" & Me![FilterUINText].Value & "*'" Me.SERDatasheet.Form.FilterOn = True End If -- Daryl S "blake7" wrote: Hi all, can anyone spot the syntax error in the code below, its driving me mad !! Thanks Private Sub FilterUIN_Click() If Me![FilterUINText].Value = "" Then Me.SERDatasheet.Form.FilterOn = False Else Me.SERDatasheet.Form.Filter = "boiler uin like'*" & Me![FilterUINText].Value & "*' or Desc like '*" & Me![FilterUINText].Value & "*'" Me.SERDatasheet.Form.FilterOn = True End If End Sub |
#4
|
|||
|
|||
Syntax Error
Thanks Guys, should have spotted that, brain freeze!!
Regards "Douglas J. Steele" wrote: There's a space in your field name. Change to "[boiler uin] like'*" -- Doug Steele, Microsoft Access MVP http://www.AccessMVP.com/DJSteele (no e-mails, please!) "blake7" wrote in message ... Hi all, can anyone spot the syntax error in the code below, its driving me mad !! Thanks Private Sub FilterUIN_Click() If Me![FilterUINText].Value = "" Then Me.SERDatasheet.Form.FilterOn = False Else Me.SERDatasheet.Form.Filter = "boiler uin like'*" & Me![FilterUINText].Value & "*' or Desc like '*" & Me![FilterUINText].Value & "*'" Me.SERDatasheet.Form.FilterOn = True End If End Sub . |
#5
|
|||
|
|||
Syntax Error
Also missing space between Like and quote marks
Private Sub FilterUIN_Click() If Me![FilterUINText].Value = "" Then Me.SERDatasheet.Form.FilterOn = False Else Me.SERDatasheet.Form.Filter = "[boiler uin] like '*" & Me![FilterUINText].Value & "*' or Desc like '*" & Me![FilterUINText].Value & "*'" Me.SERDatasheet.Form.FilterOn = True End If John Spencer Access MVP 2002-2005, 2007-2010 The Hilltop Institute University of Maryland Baltimore County Daryl S wrote: Blake7 - I suspect "boiler uin" is the name of a field since it is before 'like'. If so, it needs square brackets due to the space in the fieldname. Try this: Private Sub FilterUIN_Click() If Me![FilterUINText].Value = "" Then Me.SERDatasheet.Form.FilterOn = False Else Me.SERDatasheet.Form.Filter = "[boiler uin] like'*" & Me![FilterUINText].Value & "*' or Desc like '*" & Me![FilterUINText].Value & "*'" Me.SERDatasheet.Form.FilterOn = True End If |
Thread Tools | |
Display Modes | |
|
|