怎么在ACCESS 里用VBA 做计算呢?

阿祺　发表于：2014-06-03 23:26:28 　

我有一个数据库,里边有一个表”DAYS”(共三列,PIN,DAYS,SCORES,
表是按SCORES
从大到小排列).
我做了一个查询(DaysScores),
算出了DAYS的总和(5095666),
SCORES的最大值,还有BENCKMARK(DAYS
总和乘上0.35,
在这个表里它是1783483.1)

我想做的计算是从上到下累加DAYS 表里 DAYS 这一列,当总和数大于1783483.1
时,停止累加. 这时算出一共有多少的PIN
(就是多少个行数,在这个表里,加到第64行时,总值是1810594>1783483.1, 停止累加,
64个PIN,我想把这个64 的值输入到我创建的窗体中”COUNT”那一栏, 总和数1810594输入窗体中”SUM”那一栏.

能实现吗? 请高手指教?

Top

阿祺发表于：2014-06-03 23:28:13

点击下载此附件

这是附件

Top

阿祺发表于：2014-06-04 10:22:40

很复杂？没人懂吗？

Top

zch 发表于：2014-06-04 11:24:59

Dim rst As Recordset
Dim BENCKMARK As Double
Dim score As Double
score = 1783483.1
Set rst = CurrentDb.OpenRecordset(" select * from days order by SCORES")

Do While Not rst.EOF
If BENCKMARK > scroe Then Exit Do
BENCKMARK = BENCKMARK + rst!Day * 0.35
rst.MoveNext
Loop
Me.sum = BENCKMARK
没测试过，给你个参考

Top

阿祺发表于：2014-06-04 20:13:54

不对呀，高手。。。

score 就是BENCHMARK，就是1783483.1，它是所有DAYS总和的35%。再次累加DAYS，指要数值大于BENCHMARK，就停止，COUNT 行数。

Top

阿祺发表于：2014-06-05 10:11:13

很复杂？没人懂？

Top

zch 发表于：2014-06-05 10:36:26

我只是给你一个解决问题的思路，就是把表里的数据一行行的加，加到满足条件为止。具体是哪几个变量需要你自己去设。

Top

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

Access交流中心

怎么在ACCESS 里用VBA 做计算呢?