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

jiaqitang · 发表于 2014-6-3 23:22

本帖最后由 jiaqitang 于 2014-6-3 23:24 编辑

我有一个数据库,里边有一个表”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”那一栏.

能实现吗? 请高手指教?

Database1.zip (38.63 KB, 下载次数: 11)

jiaqitang · 发表于 2014-6-4 10:22

很复杂？没人懂吗？

styhs · 发表于 2014-6-4 14:45

无法理解用途。另，因涉及排序，但Days表没有自动ID字段，可能出现计算错误现象。

jiaqitang · 发表于 2014-6-4 20:19

styhs 发表于 2014-6-4 14:45
无法理解用途。另，因涉及排序，但Days表没有自动ID字段，可能出现计算错误现象。

谢谢高手，应该是对的。以前我们的系统是VB6.0 编写的，老板想把它改成EXCEL，或ACCESS 形式，所以。。。

jiaqitang · 发表于 2014-6-5 06:17

本帖最后由 jiaqitang 于 2014-6-5 06:37 编辑

Database1.zip (46.96 KB, 下载次数: 9)

我又加了一个文本框，在算出了多少行数后（这里是64行）把表DAYS中这个行（第64行）对应的SCORE赋给文本框，怎么弄呢？

ly · 发表于 2014-6-5 07:30

jiaqitang 发表于 2014-6-5 06:17
我又加了一个文本框，在算出了多少行数后（这里是64行）把表DAYS中这个行（第64行）对应的SCORE赋给文本 ...

Private Sub Command23_Click()
.....
      .Source = "SELECT Days,Scores FROM Days"
....
         If FSumNum > FNum Then
            ...
            FScores = .Fields("Scores")
            Exit Do
         End If
...
With Me
...
      .Text24 = Format(FScores, "0.00")
End With
  ...
End Sub

jiaqitang · 发表于 2014-6-5 07:45

本帖最后由 jiaqitang 于 2014-6-5 10:02 编辑

ly 发表于 2014-6-5 07:30
Private Sub Command23_Click()
.....
.Source = "SELECT Days,Scores FROM Days"

谢谢，运行OK，为啥FScores = .Fields("Scores")就是代表最后那一行呢(第64行), 第一行该怎么表示呢？
我又加了两个文本框，AVERAGE和CUTOFF， AVERAGE它是等于查询“DAYSSCORES”里TOTALDAY 那个数值除以所有这64行DAYS*SCORE 的总和：TOTALDAYS/SUM(DAYS*SCORES)

CUTOFF 等于文本框SUM里的值除以所有这64行DAYS*SCORE 的总和：SUM（）/SUM(DAYS*SCORES)

怎么办。。。。。

Database1.zip (77.14 KB, 下载次数: 9)

jiaqitang · 发表于 2014-6-5 10:05

好心高手呢？

ly · 发表于 2014-6-5 19:13

jiaqitang 发表于 2014-6-5 07:45
谢谢，运行OK，为啥FScores = .Fields("Scores")就是代表最后那一行呢(第64行), 第一行该怎么表示呢？
...

也不知道理解的是否正确，先上个附件说：

Database1.rar (48.32 KB, 下载次数: 11)

jiaqitang · 发表于 2014-6-5 20:03

谢谢，是正确的，但我还是不懂啥FScores = .Fields("Scores")就是代表最后那一行呢(第64行), 第一行该怎么表示呢

		自动登录	找回密码
密码			免费注册

[求助] 怎么在ACCESS 里用VBA 做计算呢?