求助！！！access VBA代码提示操作符丢失

显示全部楼层 · 2021-1-27 05:48:42

代码如下：
PrivateSubCMD查询_Click()
DimstrWhereAsString
strWhere=""
IfNotIsNull(Me.编号)Then
strWhere=strWhere&"([编号]like'*"&Me.编号&"*')AND"
EndIf
IfNotIsNull(Me.所属乡镇)Then
strWhere=strWhere&"([所属乡镇]like'*"&Me.所属乡镇&"*')AND"
EndIf
IfNotIsNull(Me.经度)Then
strWhere=strWhere&"([经度]like'*"&Me.经度&"*')AND"
EndIf
IfNotIsNull(Me.设备种类)Then
strWhere=strWhere&"([设备种类]like'*"&Me.设备种类&"*')AND"
EndIf
IfNotIsNull(Me.建设时间)Then
strWhere=strWhere&"([建设时间]like'"&Me.建设时间&"')AND"
EndIf
IfNotIsNull(Me.纬度)Then
strWhere=strWhere&"([纬度]like'"&Me.纬度&"')AND"
EndIf
IfNotIsNull(Me.位置1)Then
strWhere=strWhere&"([位置1]like'"&Me.位置1&"')AND"
EndIf
IfNotIsNull(Me.位置2)Then
strWhere=strWhere&"([位置2]like'"&Me.位置2&"')AND"
EndIf
IfNotIsNull(Me.道路名称修改备注)Then
strWhere=strWhere&"([道路名称修改备注]like'"&Me.道路名称修改备注&"')AND"
EndIf
IfNotIsNull(Me.点位名称)Then
strWhere=strWhere&"([点位名称]like'"&Me.点位名称&"')AND"
EndIf
IfNotIsNull(Me.所属中队)Then
strWhere=strWhere&"([所属中队]like'"&Me.所属中队&"')AND"
EndIf
IfNotIsNull(Me.建设单位)Then
strWhere=strWhere&"([建设单位]like'"&Me.建设单位&"')AND"
EndIf
Debug.PrintstrWhere
Me.[总表子窗体].Form.Filter=strWhere
Me.[总表子窗体].Form.FilterOn=True
Exit_CMD查询_Click:
ExitSub
Err_CMD查询_Click:
MsgBoxErr.Description
ResumeExit_CMD查询_Click
EndSub
分 -->

千问 · 2021-1-27 05:48:42

你的条件最后多出一个AND关键字，要去掉
IfLen(strWhere)0Then
strWhere=Left(strWhere,Len(strWhere)-4)
EndIf

千问 · 2021-1-27 05:48:42

引用1楼Tiger_Zhao的回复:你的条件最后多出一个AND关键字，要去掉
IfLen(strWhere)0Then
strWhere=Left(strWhere,Len(strWhere)-4)
EndIf还是报一样的错

千问 · 2021-1-27 05:48:42

Debug.PrintstrWhere什么内容？
具体的错误信息？