如何在窗体关闭的同时将结果赋予另一个窗体

马山杨梅　发表于：2008-11-20 21:22:06 　

窗体上有一个【当天金额】的文本框，用来记录当天发生金额的累计。

如果操作员凭口算能算出今天的累计金额，就直接在此文本框里记录。

如果今天的累计金额口算较难，就打开一个辅助窗体，输入每笔金额，在此窗体中计算出一个合计金额。（相当于一个计算器）。

我想请教怎样把这个计算出的结果赋值给【当天金额】的文本框。谢谢！

附上简例如下：

残荷听雨发表于：2008-11-20 21:52:47

马山杨梅发表于：2008-11-21 09:35:07

谢谢您！

可我还是期望能在关闭辅助窗体的动作中，一次性完成把计算出来的合计值写入【当天金额】文本框中，不需要另外按按钮。另外，在转入其它记录时把这个变量值马上丢弃，免得误写入下一条记录中。

还有我的简例中忘了辅助窗体每个输入框的默认值应该为0。

请各位老师再帮我想想办法，谢谢！

残荷听雨发表于：2008-11-21 11:43:03

曹光耀发表于：2008-11-21 12:42:01

请查看修改

马山杨梅发表于：2008-11-21 17:28:18

徐军勇老师的方案很好，可我碰到了现实的问题，我实际使用的输入窗体上内容已经很挤了，况且实际上用于计算的文本框需要10个，放不下这么多的框框。还有每次计算时不一定都用得着。我最好还是希望另外弹出窗口来用于计算，这样可以不打乱我原先的窗口布局。

符鸿敏发表于：2008-11-21 18:32:09

这个或许可以满足楼主的要求：

残荷听雨发表于：2008-11-21 19:21:25

问题已经解决

残荷听雨发表于：2008-11-21 19:26:36

Private Sub 当天金额_DblClick(Cancel As Integer)
If zhi <> 1 Then Me.当天金额 = zhi
End Sub

将上面事件改为： DoCmd.OpenForm "计算窗体"，打开窗体就更方便了。如果你习惯原来的打开计算器的方法，请将上面的代码删除。附件中忘记删除了（在无定时器窗体前的手工更新时使用，现在就不用了）。

马山杨梅发表于：2008-11-21 21:29:22

非常感谢二位老师的热情相助！我很感动。特别是徐军勇老师今天一次次为我做实例，使我学到很多知识，在此对您表示深深的敬意。

我在符鸿敏老师示例里的辅助窗体中的每个文本框默认值属性都设为0后，就是我想要的效果。（即不管输入了某几个文本框，只要关闭这个辅助窗体，就能把这些文本框的合计赋值给【当天金额】，一步到位。）

再次谢谢二位老师！

总记录：9篇页次：1/1 9 1 :

Access交流中心