保存时把调整数据传递给另外一个表本月调整金额中，如何另外一个表的数据合计数进行更新！

凌云　发表于：2012-12-20 17:15:31 　

Dim rst As DAO.Recordset
Dim rst1 As ADODB.Recordset
Set rst1 = New ADODB.Recordset

STemp = "Select * From tblscsr"
        rst1.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        rst1.MoveFirst
        For i = 1 To rst1.RecordCount
            If rst1("srid") = Me![srid] Then
                rst1("bytz") = Me.tzje
                rst1("fyhj") = Nz(rst1("bytz")) + Nz(rst1("xtyf")) + Nz(rst1("czf")) + Nz(rst1("zxf")) + Nz(rst1("qtf")) ；我用这段代码怎么不能进行更新呢，错在哪里，请高人指点！
                rst1.Update
                Exit For
            Else
                rst1.MoveNext
            End If
        Next i

Set rst1 = Nothing

Top

cspa 发表于：2012-12-20 17:39:16

Dim rst As DAO.Recordset
Dim rst1 As ADODB.Recordset
Set rst1 = New ADODB.Recordset

STemp = "Select * From tblscsr"
        rst1.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        rst1.MoveFirst
        For i = 1 To rst1.RecordCount
            If rst1("srid") = Me![srid] Then
                rst1("bytz") = Me.tzje                              '从逻辑上看此处rst1("bytz")刚被赋值，但尚未 rst1.Update
                rst1("fyhj") = Nz(rst1("bytz")) + Nz(rst1("xtyf")) + Nz(rst1("czf")) + Nz(rst1("zxf")) + Nz(rst1("qtf"))         '这里引用了尚未Update的值？
                rst1.Update
                Exit For
            Else
                rst1.MoveNext
            End If
        Next i

Set rst1 = Nothing

Top

缪炜发表于：2012-12-20 20:02:04

你的红色部分都没有值，计算怎么会有结果。求合计的方法，请看http://www.accessoft.com/article-show.asp?id=6852或者http://www.accessoft.com/article-show.asp?id=5010

Top

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

Access交流中心

[5分]保存时把调整数据传递给另外一个表本月调整金额中，如何另外一个表的数据合计数进行更新！