Office中国论坛/Access中国论坛

标题: 再请教子窗体汇总问题 [打印本页]

---

作者: moses98    时间: 2009-7-4 14:05
标题: 再请教子窗体汇总问题
有一个销售单，有单号、金额等字段，然后有一个明细单，有单号、品种、金额等字段，通过单号连接到销售单。问题是：当明细单子窗体中的金额发生变化是，要重新计算此单的总金额并传回销售单的金额字段中，该如何做？
附件中有说明
[attach]38762[/attach]  [attach]38762[/attach]

---

作者: styhs    时间: 2009-7-4 16:58
设置一个命令控件
Private Sub Command15_Click()
Dim djID As Long, Amount As Currency, sqlStr As String
'-----赋值变量
    If IsNull(Me.单号) Then Exit Sub
    djID = Me.单号
    Amount = Me.明细单小记
    sqlStr = "UPDATE 销售单 SET 金额 = " & Amount & " WHERE 单号 = " & djID
'-----执行更新语句
    CurrentDb.Execute sqlStr
    Me.Requery
End Sub

---

作者: 风啸啸    时间: 2009-7-4 22:03
学习学习。

---

作者: torinben    时间: 2009-7-4 22:09
好东东,学习了

---

作者: 风啸啸    时间: 2009-7-5 11:32
请问，主窗体上的记录如何与子窗体中的记录关联？？？

---

作者: moses98    时间: 2009-7-10 16:47


谢谢二楼的styhs ，可能是我的问题没说清楚，我需要的是金额变化后上面的总金额自动更新。增加命令控件我已经用过了，可是用户反映太不智能、太麻烦了。
我的命令控件比你的命令要简单一点，因为里面已经有一个计算控件了，直接引用它的值就可以了：
Private Sub Command15_Click()
On Error GoTo Err_Command15_Click

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
'---->只有这条是我写的语句，别的都是自动生成的，可以简化到只要这条语句就行  
    Me.金额 = [明细 子窗体].Form!金额小记

Exit_Command15_Click:
    Exit Sub
Err_Command15_Click:
    MsgBox Err.Description
    Resume Exit_Command15_Click
   
End Sub

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3