Office中国论坛/Access中国论坛

标题: ［求助］当表中的记录达到（或超过）32767条时，如何判断或增加记录？ [打印本页]

作者: itez 时间: 2008-4-24 12:12
标题: ［求助］当表中的记录达到（或超过）32767条时，如何判断或增加记录？
某表有记录32767条，在使用逐条记录查询时报错，请教应该如何编写语句来解决此问题（含增加记录功能），谢谢！

部分代码如下：

。。。
      If Rs.RecordCount > 0 Then
         Rs.MoveFirst
         For i = 1 To Rs.RecordCount
            If (Rs("Group_No") = Me![GroupNo] And Rs("PartNumber") = Me![PartNumber] And Rs("Date_N") = Me![DTPicker0] And Rs("Description") = Me![Description]) Then
                  MsgBox "数据已存在!", vbCritical, "已存在"
                  Exit Sub
            Else
                  Rs.MoveNext
            End If
         Next i '到达32767条时报错


      End If

STemp = "INSERT INTO tblQualified "
STemp = STemp & "( Group_No,PartNumber,Description,IntheN,FirstN,SynthesisN,"
STemp = STemp & "Date_N)"
STemp = STemp & "VALUES ('" & Me![GroupNo] & "',"
STemp = STemp & "'" & Me![PartNumber] & "',"
STemp = STemp & "'" & Me![Description] & "',"
STemp = STemp & "'" & Me![IntheN] & "',"
STemp = STemp & "'" & Me![FirstN] & "',"
STemp = STemp & "'" & Me![SynthesisN] & "',"
STemp = STemp & "'" & Me![DTPicker0] & "')"
DoCmd.SetWarnings False
DoCmd.RunSQL STemp
DoCmd.SetWarnings True
MsgBox "已保存完成！", vbOKOnly, "保存完成"
。。。

作者: kangking 时间: 2008-4-24 12:40
可能是你的变量i的数据类型定义为整型，重新将其定义为长整型试试。

作者: andymark 时间: 2008-4-24 12:45
把变量i 改为长整型或双精度

作者: itez 时间: 2008-4-24 16:58
原来如此！
谢谢kangking！
谢谢andymark！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)