Question

我有一个＆＃34; Mainform＆＃34;在Microsoft Access中自动计算我的＆＃34;子表单＆＃34;的总和。现在我的麻烦就是这个，在我的＆＃34; Subform＆＃34;在Amount_Lent，Date和Name上有一个Yes / No复选框。我想获得当前＆＃34; Subform＆＃34;中Amount_Lent的总和。当我的复选框的值是＆＃34;是＆＃34;。

是否可以使用VBA使用DSUM功能？

Answer 1

使用自定义功能会更好：

Public Function AmountLentSum() As Currency

    Dim rs        As DAO.Recordset
    Dim AmountSum As Currency

    Set rs = Me!NameOfSubformControl.Form.RecordsetClone
    While Not rs.EOF
        If rs!YourCheckBox.Value = True Then
            AmountSum = AmountSum + Nz(rs!Amount_Lent.Value, 0)
        End If
        rs.MoveNext
    Wend
    rs.Close
    Set rs = Nothing

    AmountLentSum = AmountSum

End If

然后用作ControlSource：= AmountLenSum（）

获取当前子表单的总和

1 个答案: