Access 语法错误(操作符丢失)在查询表达式 字段名 中 的解决办法
- 2017-08-27 15:52:00
- zstmtony 原创
- 301
帮客户做的一个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
联系人: | 王先生 |
---|---|
电话: | 13928102596 |
Email: | 18449932@qq.com |
QQ: | 18449932 |
微信: | 13928102596 |
微博: | officecn01 |