设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1314|回复: 6
打印 上一主题 下一主题

[窗体] 再请教子窗体汇总问题

[复制链接]
跳转到指定楼层
1#
发表于 2009-7-4 14:05:27 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
有一个销售单,有单号、金额等字段,然后有一个明细单,有单号、品种、金额等字段,通过单号连接到销售单。问题是:当明细单子窗体中的金额发生变化是,要重新计算此单的总金额并传回销售单的金额字段中,该如何做?
附件中有说明
  

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
6#
 楼主| 发表于 2009-7-10 16:47:00 | 只看该作者
本帖最后由 moses98 于 2009-7-10 16:56 编辑

谢谢二楼的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
5#
发表于 2009-7-5 11:32:12 | 只看该作者
请问,主窗体上的记录如何与子窗体中的记录关联???
4#
发表于 2009-7-4 22:09:01 | 只看该作者
好东东,学习了
3#
发表于 2009-7-4 22:03:19 | 只看该作者
学习学习。
2#
发表于 2009-7-4 16:58:38 | 只看该作者
设置一个命令控件
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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-18 15:27 , Processed in 0.096396 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表