再请教子窗体汇总问题

moses98

有一个销售单，有单号、金额等字段，然后有一个明细单，有单号、品种、金额等字段，通过单号连接到销售单。问题是：当明细单子窗体中的金额发生变化是，要重新计算此单的总金额并传回销售单的金额字段中，该如何做？
附件中有说明
  

styhs

设置一个命令控件
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

风啸啸

学习学习。

torinben

好东东,学习了

风啸啸

请问，主窗体上的记录如何与子窗体中的记录关联？？？

moses98

谢谢二楼的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