[求助]如何用VBA得到一个表中符合相关条件的记录的值的总和

Threaten

请问,如何用VBA得到一个表中符合相关条件的记录的值的总和;

比如表1中字段F1,F2,F3,我要得到F1,和F2等于相关条件的F3的总数?

有没有办法呀?

谢谢

一点通

用查询可以实现

Threaten

我知道可以用查询,可是在VBA中怎么可以得到这个数的值呢?

方漠

传你的实例上来，别人才好帮你。

z13173693566

use Dsum()?

情比金坚

用dcount()函数就行

Threaten

比如我单位卖券,一共有五种券,卖掉有相应的奖金

奖金确认的条件有,1:必须确定是哪一种券,2:在某个日期之前卖掉,3:单价必须在某个金额之上,4:单笔交易的量(即券销售量)必须在某个数字之上,5:此卖券人必须是可以享受提取奖金的福利(即有些人卖券是没有奖金的),6:每个部门都有指标,此卖券人的累计销售量必须已经超过其所属部门的指标才能享有奖金.

以上前5点我都可以做到,在Selling_Form下的Input按钮的单击事件,可是第6点我却没有办法计算出此人卖此种类型券的累计销售量,如果能知道就可以和此人所属部门的指标进行比较,就能知道此人是否有奖金了~~~

各位大侠帮帮我吧,帮我看看.谢谢~~

Threaten

请各位大大帮帮忙吧!

方漠

先在查询视图中设计你所需要的查询,然后切换到SQL视图,将SQL语句COPY替换进VBA.

以下代码是求某一物料的来料总量,可任意选择料号,总量即显示在文本框里.

'Rstr="Your Query SQL"

   Rstr = "SELECT GRNReceiptLine.PN, Sum(GRNReceiptLine.PID) AS QtyOfSum FROM GRNReceiptLine " _
           & "GROUP BY GRNReceiptLine.PN  HAVING (((GRNReceiptLine.PN)='" & Me.Text3 & "' ));"

Set Rst = CurrentDb.OpenRecordset(Rstr)
Me.Text22 = Rst!QtyOfSum
Rst.Close

Threaten

请大侠看看,我按你说的做了,在Selling_Form下的Input增加了些代码可是却提示"参数不足,期待是2"

请问是怎么回事?

谢谢!