帮客户做的一个Access数据库管理系统中，出现一个比较特别的错误

就是只要是数据表子窗体，使用内置的筛选功能，就是在字段右边的小箭头打开的筛选功能，都会提示以下错误：

Access 语法错误（操作符丢失）在查询表达式 字段名 中

Access Form - Syntax error (missing operator) in query expression

经过无数次的尝试，终于找到原因

是因为字段名中包含有空格，而且空格后面的名称Code Name Number等都是Access的保留字

如果窗体绑定的数据源直接是表名： 如 tblTest， 则筛选正常

如果窗体绑定的数据源是查询，或SQL语句，如Select  * from tblTest ,则出错

我的第一想法是在查询中将 字段名前后加 [],但发现没有任何作用

解决办法：

1.将字段名中的空格全部去掉，改成CompanyCode CompanyName 这样即可 （但如果 查询 窗体 代码已经做好了，再修改表，那工作量就太大了） 这种一般是软件设计初期可以采用。

2.如果不改字段名，将窗体中控件的控件源 的Company Code , 改为 [Company Code]

   注意，在查询或窗体数据源中改字段名 加  [ ] 没有用

  这种比第1种改动要小一点。   不过如果窗体比较多，窗体控件也比较多的话，这种方法也是比较累的   

因为涉及的窗体太多，实在不想手工逐个来修改，所以做了一个小工具，用代码来批量替换

'将窗体中所有控件的控件源名称加上[ ],以解决字段名中包含空格带来的问题 Private Sub Command0_Click() Dim frm As Form Dim ctr As Control Dim strFormName As String strFormName = "frmFXEXT_Sub" '要替换控件源的窗体名称 DoCmd.OpenForm strFormName, acDesign, , , , acHidden '打开窗体到设计视图,且隐藏打开 Set frm = Forms(strFormName) For Each ctr In frm.Section(acDetail).Controls '循环所有主体里的控件 If Not (TypeOf ctr Is Label) Then  '排除标签控件 （只处理文本框 组合框 列表框 复选框 多选项等控件） If Left(ctr.ControlSource, 1) "[" Then  '如果控件源是[开对，就代表已经转换过了，就不再重复转换 ctr.ControlSource = "[" & ctr.ControlSource & "]" '没有转换的，就是字段名前后加上  [ ] End If End If Next DoCmd.Close acForm, frm.Name, acSaveYes  '保存窗体 End Sub