请问access中如何编写几个字段求和的代码

a06226276

我的access表中有1月，2月，3月……12个月份的字段，里面填写的是销量数据。，此外还有一个名为合计的字段。现在希望在窗体中，单击“合计”文本框后，在合计文本框里自动显示1到12个月的销售数量之和，请问VBA代码该如何写，谢谢

a06226276

Henry D. Sy 发表于 2012-6-8 15:06

您的这个意思我明白，我现在想实现的是，编写一段代码，使我单击“合计”文本框后，就能自动生成1到12月份数据之和，想请问一下这样该怎么实现，代码具体应该如何来写

pq318

学习做好表很重要，不然后期开发有的烦

a06226276

pq318 发表于 2012-6-8 15:17
学习做好表很重要，不然后期开发有的烦

谢谢您的经验之谈。我现在想实现的是，编写一段代码，使我单击“合计”文本框后，就能自动生成1到12月份数据之和，想请问一下这样该怎么实现，代码具体应该如何来写

Henry D. Sy

有现成的不用，为何要用代码？

a06226276

Henry D. Sy 发表于 2012-6-8 15:30
有现成的不用，为何要用代码？

因为我用的是umv开发平台，一个界面有child、child_Add、child_edit三个窗体构成。在Add窗体中只能靠代码实现

Henry D. Sy

a06226276 发表于 2012-6-8 15:36
因为我用的是umv开发平台，一个界面有child、child_Add、child_edit三个窗体构成。在Add窗体中只能靠代码 ...

1. Private Sub 合计_Click()
   
2.     Dim dblTotal As Double
   
3.     Dim rs As DAO.Recordset
   
4.     Set rs = CurrentDb.OpenRecordset("select 合计 from tblDlsxyjd where xyid=" & Me.xyID)
   
5.     dblTotal = rs.Fields("合计")
   
6.     Me.合计 = dblTotal
   
7.     rs.Close
   
8.     Set rs = Nothing
   
9. End Sub
   
10. 
    

复制代码

a06226276

Henry D. Sy 发表于 2012-6-8 15:53

太感谢了

a06226276

Henry D. Sy 发表于 2012-6-8 15:53

为何粘贴代码后输入运行，显示：无效使用Null

a06226276

Henry D. Sy 发表于 2012-6-8 15:53

问题出在这一句： dblTotal = rs.Fields("合计")