Access 語法錯誤（操作符丟失）在查詢表達式 字段名 中 的解決辦法

幫客戶做的一個Access數(shù)據(jù)庫管理系統(tǒng)中，出現(xiàn)一個比較特別的錯誤

就是只要是數(shù)據(jù)表子窗體，使用內(nèi)置的篩選功能，就是在字段右邊的小箭頭打開的篩選功能，都會提示以下錯誤：

Access 語法錯誤（操作符丟失）在查詢表達式 字段名 中

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

經(jīng)過無數(shù)次的嘗試，終于找到原因

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

如果窗體綁定的數(shù)據(jù)源直接是表名： 如 tblTest， 則篩選正常

如果窗體綁定的數(shù)據(jù)源是查詢，或SQL語句，如Select  * from tblTest ,則出錯

我的第一想法是在查詢中將 字段名前后加 [],但發(fā)現(xiàn)沒有任何作用

解決辦法：

1.將字段名中的空格全部去掉，改成CompanyCode CompanyName 這樣即可 （但如果 查詢 窗體 代碼已經(jīng)做好了，再修改表，那工作量就太大了） 這種一般是軟件設計初期可以采用。

2.如果不改字段名，將窗體中控件的控件源 的Company Code , 改為 [Company Code]

   注意，在查詢或窗體數(shù)據(jù)源中改字段名 加  [ ] 沒有用

  這種比第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 '循環(huán)所有主體里的控件
If Not (TypeOf ctr Is Label) Then  '排除標簽控件 （只處理文本框 組合框 列表框 復選框 多選項等控件）
If Left(ctr.ControlSource, 1) <> "[" Then  '如果控件源是[開對，就代表已經(jīng)轉(zhuǎn)換過了，就不再重復轉(zhuǎn)換
ctr.ControlSource = "[" & ctr.ControlSource & "]" '沒有轉(zhuǎn)換的，就是字段名前后加上  [ ]
End If
End If
Next
DoCmd.Close acForm, frm.Name, acSaveYes  '保存窗體
End Sub