为什么我这段代码老是提醒语法错误（已解决）

zhidao

'判断【书名】条件是否有输入的值
If Not IsNull(Me.书名) Then
        '有输入
        strWhere = strWhere & "([书名] like '*" & Me.书名 & "*') AND "
    End If
这段代码我是从刘小军的示例中复制到别的文件里在他的文件里就可以运行但是复制到新的文件里就显示语法错误，求指教。

Wanli_Li

你没发现他后边还有一段代码：

If Len(strWhere) > 0 Then
        strWhere = Left(strWhere, Len(strWhere) - 5)
End If


意思是如果语句结束了，就要消除后边跟随的5个字符，" AND "

zhidao

谢谢了。

tmtony

Wanli_Li  对代码好熟啊

Wanli_Li

tmtony 发表于 2014-9-18 21:13
Wanli_Li  对代码好熟啊

谢谢！您过奖了。