积统统怎么写 ACCESS查询-累积统计

1、键入命令areauser+空格+空格,选择闭合区域复合线,命令行显示面积统计值。2、键入命令areauser+空格+2+空格,选择复合线闭合区域内部任意处鼠标左键点击+空格+Y+空格,复合线区域显示面积统计值。

文章目录:

  1. ACCESS查询-累积统计

一、ACCESS查询-累积统计

由于你两个表中的数据余腔 不够完整 你应该 还有另外一个 厂区名称的表

通过厂区名称表 与 那两个月份的 产量表 来建立一个 查询……(厂区名称表竖启衫的ID 包含其他两个表的所有记录 这样的关系)1、2月份的产量分别重新命名 然后再增加一个 字段 表达式……

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

解题思路:做一个新表,它包含《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. 打开窗体,点击命今按钮,让电脑运行代码程序,然后关闭窗体,打开《统计》表,你需要的答案就在该表中。

以上是问答百科为你整理的1条关于积统的问题,希望对你有帮助!更多相关积统的内容请站内查找。

你可能想看:
标签: 积统
分享给朋友: