Access 语法错误(操作符丢失)在查询表达式 字段名 中 的解决办法

2017-08-27 15:52:00
zstmtony
原创
673

帮客户做的一个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


    分享