|
我在编写access程序时,遇到如下问题:
Dim con As Object
Dim rs As New ADODB.Recordset
Set con = Application.CurrentProject.Connection
strSQL = "select * from 水电记录表 where 水电记录表.抄表日期 = " & "'" & Forms!增加年月!请输入年月 & "'"
rs.Open strSQL, con, adOpenKeyset, adLockBatchOptimistic
程序执行到最后有下划线的这句话报错,信息为:“标准表达式中数据类型不匹配”
水电记录表中的“抄表日期”为日期型字段,窗体中“Forms!增加年月!请输入年月”也是日期型,strSQL = "select * from 水电记录表 where 水电记录表.抄表日期 = '2005年09月' "
我认为是条件语句where的问题,可是不知道怎样改写才能让程序通过,请前辈给予指点,谢谢啦!
|
|