积统统怎么写 ACCESS查询-累积统计
1、键入命令areauser+空格+空格,选择闭合区域复合线,命令行显示面积统计值。2、键入命令areauser+空格+2+空格,选择复合线闭合区域内部任意处鼠标左键点击+空格+Y+空格,复合线区域显示面积统计值。
文章目录:
一、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条关于积统的问题,希望对你有帮助!更多相关积统的内容请站内查找。