请问将一窗体控件值写入向另一窗体另控件内

yisen

请问将一窗体控件值写入向另一窗体另控件内如何操作

打开药品出库表------在药品出库明细子窗体中的--------销售数量双击后会出现拆零销售计算器----当我在计算器录入数量及整合数量后--------会算出拆零除整合的值----------焦点到拆零除整合框---最后我想实现回车后后---------算出的值填入到"药品出库明细子窗体"的------销售数量内,请问如何做?

[ 本帖最后由 yisen 于 2009-1-8 17:00 编辑 ]

todaynew

是对原销售数量修改，还是新增一条记录？如果是对原记录的修改不知道下面的方法是否可行？

1、增加两个文本框控件，如图：




2、计算器上的处方编号双击事件中，加入更新查询：

Private Sub 处方编号_DblClick(Cancel As Integer)
Dim sql As String
sql = "UPDATE 药品出库明细表 SET 药品出库明细表.销售数量 = [Forms]![计算器]![拆零整合]  "
sql = " WHERE (((药品出库明细表.处方编号)=[Forms]![计算器]![处方编号]) AND ((药品出库明细表.药品编号)=[Forms]![计算器]![药品编号]));"
DoCmd.RunSQL sql
[Forms]![药品出库表]![药品出库明细表 子窗体].Form.Requery
End Sub

[ 本帖最后由 todaynew 于 2009-1-8 16:11 编辑 ]

yisen

这样可以了,但我不知道该怎么样写代码,可以关掉计算器窗口.

[ 本帖最后由 yisen 于 2009-1-9 10:45 编辑 ]

todaynew

呵呵，可以建一个宏用close关闭窗体，然后把该宏转换成VB代码。这样就知道怎么写关闭语句了。

用此方法可以摸索出许多常见代码的书写方式。

DoCmd.Close acForm, "计算器"

[ 本帖最后由 todaynew 于 2009-1-8 18:15 编辑 ]

雨后的天空

就是高手 一语道破天机

arrowscupid

看看[:33]