sql = "select * from [外出] where DateDiff('d',wcdate,date())=0 and wcname='" & replace(Trim(rs("name").value), "'", "''") & "'"

------解决方案--------------------
sql="select * from 外出 where wcdate=date() and wcname="&rs("name")

------解决方案--------------------
探讨


引用:

把sql显示出来 拷贝到Access中执行看看
VBScript code

sql = "select * from [外出] where DateDiff('d',wcdate,date())=0 and wcname='" & replace(Trim(rs("name").value), "'", "''") &a……


------解决方案--------------------
既然是部分人才报错 那就说明sql本身是没有问题的 特殊字符?

------解决方案--------------------
wcdate和date()类型不匹配