rs.recordcount - 1 报错

学习者　发表于：2015-12-27 14:43:03 　

请教下为什么提示“类型不匹配” ，在For i = 0 To rs.recordcount - 1上报错，

在用access 2003版32位系统时候正常运行，到了64位系统access 2007时候报错。

代码：

Set rs = New ADODB.Recordset
       strsql = "SELECT * FROM tb_books_tem"
       rs.Open strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
       Debug.Print strsql
       If Me.frm_zbooks_Input_cld.Form.Recordset.recordcount > 0 Then
          rs.MoveFirst
          For i = 0 To rs.recordcount - 1
              If rs!书本编号= Me.txtNumber Then
                 blnR = True
                 i = rs.recordcount + 1
              Else
                 rs.MoveNext
              End If
          Next i
      Else
          blnR = False

end if

Top

zhaoyoulong 发表于：2015-12-28 08:43:38

exit for
              Else
                 rs.MoveNext
              End If
          Next i
      Else
          blnR = False

end if

Top

smileyoufu 发表于：2016-01-06 00:06:44

在用access 2003版32位系统时候正常运行，到了64位系统access 2007时候报错

---------------请不要使用64位版本的Office，尤其是涉及VBA编程时，否则你会遇到许多无法解决的问题。

Top

smileyoufu 发表于：2016-01-06 00:07:02

在用access 2003版32位系统时候正常运行，到了64位系统access 2007时候报错

---------------请不要使用64位版本的Office，尤其是涉及VBA编程时，否则你会遇到许多无法解决的问题。

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

[5分]rs.recordcount - 1 报错