Question

ACCESS查询-累积统计

有两个表《1月份产量》、《2月份产量》（如下图）。我想得到2个月的各个厂区的累积产量。

结果像下面这个样子：

请问：用什么方式的查询设计步骤，或者查询SQL怎么写？





Answer 1

解题思路：做一个新表，它包含《1月份产量》表的数字，用代码把《2月份产量》表的数字添加到新表中，这样两个表的数字都在《统计》表中了，电脑做统计就容易了。方法具体如下：

 1 复制《1月份产量》表，把复制出来的新表，改名为《统计》，并在《统计》表中把“产量”字段名称改为“1月份产量”，并添加"2月份“字段 和 ”累计产量"两个字段名称。见图片。

2. 用下面的代码 把《2月份产量》表的数字添加到《统计》表中。

    建一个窗体， 在窗体中添加一个命令按钮，在该命令按钮中添加下面代码，

 Dim Ss As String

  Dim Rs As ADODB.Recordset

  Set Rs = New ADODB.Recordset

  Ss = "select * from 统计 "

  Rs.Open Ss, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

  Rs.MoveFirst

   Dim Ss2 As String

   Dim J As Integer

   Dim Rs2 As ADODB.Recordset

   Set Rs2 = New ADODB.Recordset

   Ss2 = "select * from 2月份产量 "

   Rs2.Open Ss2, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

  For J = 1 To Rs2.RecordCount

       Rs.MoveFirst

   Do While Not Rs.EOF

         If Trim(Rs("厂区名称")) = Trim(Rs2("厂区名称")) Then

          Rs("2月份产量") = Rs2("产量")

          Rs("累计产量") = Rs("1月份产量") + Rs2("产量")

         GoTo 100

         End If

          Rs.MoveNext

    Loop

          Rs.AddNew

          Rs("厂区名称") = Rs2("厂区名称")

          Rs("2月份产量") = Rs2("产量")

          Rs("累计产量") = Rs("1月份产量") + Rs2("产量")

100

           Rs.Update

  Rs2.MoveNext

 Next J

  Rs.Close

  Rs2.Close

3. 打开窗体，点击命今按钮，让电脑运行代码程序，然后关闭窗体，打开《统计》表，你需要的答案就在该表中。

Answer 2

由于你两个表中的数据 不够完整 你应该 还有另外一个 厂区名称的表
通过厂区名称表 与 那两个月份的 产量表 来建立一个 查询……（厂区名称表的ID 包含其他两个表的所有记录 这样的关系）1、2月份的产量分别重新命名 然后再增加一个 字段 表达式……

累计产量:Nz([1月份产量])+Nz([2月份产量])

追问

之后的查询怎么写呢

追答

access 数据库 建议你使用 可视化的 查询设计来完成！非专业IT 人员 建议还是 尽量使用 可视化的设计界面，这样 可以用 比较形象的一点儿 的思维方式 来做你的设计，特别是初学者 不建议一开始就是用抽象的代码来做……

所以 你按着我说的 去操作 就应该能够体会到其他的应该怎么做了……