RecordCount 的结果不正确

lms008008

代码如下： 'update the tmpALRpt3_AftUpdData special field.
Sub frmAftUpdDatSpeFldVal(ByVal intTotAL As Integer, ByVal intNewAL As Integer)
    Dim dbsDB As Database, rsAftUpdRecord As Recordset
    Dim strNetCapAmt, strRevUnAmo, strCatUpAmt, strSql As String
    Dim intMob, intRows, intTotRow As Integer
    Set dbsDB = CurrentDb
  1）  Set rsAftUpdRecord = dbsDB.OpenRecordset("tmpALRpt3_AftUpdData", 1)
  ‘这时RecordCount的结果时正确的’
2）：Set rsAftUpdRecord = dbsDB.OpenRecordset（"select * from  tmpALRpt3_AftUpdData")
'当时这种情况时，得到的RecordCount 结果变成1了，是错误的。
    For intRows = 1 To rsAftUpdRecord.RecordCount
        'begin to update the specail field
        intMob = intRows
        If intMob <= intNewAL Then
            strNetCapAmt = rsAftUpdRecord.Fields("NetCapAmt")
            strNetCapAmt = forSepFldVal(CDbl(strNetCapAmt), 2, "Normal")
            'field2
            strRevUnAmo = rsAftUpdRecord.Fields("RevUnAmoAmt")
            strRevUnAmo = forSepFldVal(CDbl(strRevUnAmo), 2, "Normal")
            
            strCatUpAmt = rsAftUpdRecord.Fields("catchUpAmt")
            strCatUpAmt = forSepFldVal(CDbl(strCatUpAmt), 2, "CatUp")
            
            strSql = "update tmpALRpt3_AftUpdData Set NetCapAmt='" & strNetCapAmt & "',RevUnAmoAmt ='" & strRevUnAmo & "', " & _
                      " catchUpAmt='" & strCatUpAmt & "'  where RevMth=" & intMob & " "
        Else
            strNetCapAmt = rsAftUpdRecord.Fields("NetCapAmt")
            strNetCapAmt = forSepFldVal(CDbl(strNetCapAmt), 2, "Normal")
            
            strCatUpAmt = rsAftUpdRecord.Fields("catchUpAmt")
            strCatUpAmt = forSepFldVal(CDbl(strCatUpAmt), 2, "CatUp")
            strSql = "update tmpALRpt3_AftUpdData Set NetCapAmt='" & strNetCapAmt & "', " & _
                      " catchUpAmt='" & strCatUpAmt & "'  where RevMth=" & intMob & " "
        End If
        CurrentDb.Execute (strSql)
        rsAftUpdRecord.MoveNext
    Next
   
    Set rsAftUpdRecord = Nothing
    Set dbsDB = Nothing
   
End Sub


请问大神：
1）  Set rsAftUpdRecord = dbsDB.OpenRecordset("tmpALRpt3_AftUpdData", 1)
  ‘这时RecordCount的结果时正确的’
2）：Set rsAftUpdRecord = dbsDB.OpenRecordset（"select * from  tmpALRpt3_AftUpdData")
'当时这种情况时，得到的RecordCount 结果变成1了，是错误的。
这两种用法有哪些区别呢？ 用的是ACCESS 2007

lms008008

在同一个项目里面的其它方法，用Set rsAftUpdRecord = dbsDB.OpenRecordset（"select * from  tmpALRpt3_AftUpdData")
这样的方法，得到的结果又是错误的，不知道是怎样的原理，求大神帮我分析分析！

Henry D. Sy

试试
rsAftUpdRecord.movelast
rsAftUpdRecord.movefirst
msgbox rsAftUpdRecord.recordcount

lms008008

Henry D. Sy 发表于 2016-11-10 16:45
试试
rsAftUpdRecord.movelast
rsAftUpdRecord.movefirst

得到的结果是正确的，谢谢版主的答复。