子窗体求和

张杨

我只是想这么做，不知道行不行。我试了多种方法都达不到理想效果。我再说一下想法，就是在ACCESS窗体中建了一个子窗体，在菜单栏不有一个[按内容筛选窗体]吗？我想对任何筛选过的当前窗体（列1)的数据进行求和。

张杨

谢谢3楼解答，不是我想要的。简单来说就是在窗体中怎样对筛选过的窗体一列进行自动求和

hjb016

您可以用DSum函数,对单价进行求和的
比如
求和.value=nz(DSUM("单价","表名/查询","条件"))

张杨

value=nz(DSUM("单价","表名/查询",me.子窗体.form.Filter)),这个方法好像不行，下面是例子，我现在就想对按照信息对查询后[数量]一列数据求和自动显示在汇总文本框中，请问该怎么办？谢

hjb016

Dim strSQL As String
   
    If IsNull(Me.文本18) And IsNull(Me.文本21) Then
        MsgBox "请输入要查询的产品编号或产品名称！"
    Else
        strSQL = "select * from CK_入库明细表 where ([产品编号] like '*" & Me.文本21 & "*') and ([产品名称] like '*" & Me.文本18 & "*');"
        Me.ZY.Form.RecordSource = strSQL
        Text7.Value = Nz(DSum("数量", "CK_入库明细表", Me.ZY.Form.Filter))
    End If

hjb016

这样,你点击查找的时候,就自动求和了.

张杨

谢谢，哇这样的，可以。

hjb016

问题解决了,结贴!

张杨

谢谢HIBO16的回复，刚我没仔细看，好像还不行。你那汇总的是整个数据源[数量]一列总和，我要的是查询到哪就汇总到哪？所以还得请教哇？

hjb016

改成这样就可以了.
Text7.Value = Nz(DSum("数量", "CK_入库明细表", "([产品编号] like '*" & Me.文本21 & "*') and ([产品名称] like '*" & Me.文本18 & "*')"))