求助！用代码将非绑定的子父窗体内的内容输入表对应的字段怎么写？

徐阿鹏

父窗体名为“父窗体”控件名为1
子窗体名称“子窗体”控件名称为2
表名“”表1对应的字段为1，2
如何写？
谢谢

徐阿鹏

找到引用了，在代码编辑框的工具里！
解决了
谢谢！

竹笛

在代码编辑状态下，单击“工具”引用DAO3.6

徐阿鹏

阿？怎么引用阿？我才学的vba
可以帮我改改吗？
谢谢

Roadbeg

你没有永久引用 dao 3.6

徐阿鹏

Dim rs As dao.Recordset
Set rs = CurrentDb.openrecordset("销售订单记录表")
rs.AddNew
rs(" 销售订单号 ") = 销售订单号
rs(" 接单人 ") = 接单人
rs.Update
rs.Close
Set rs = CurrentDb.openrecordset("销售订单明细表")
rs.AddNew
rs("销售订单号") = 销售订单明细表!销售订单号
rs("品名规格") = 销售订单明细表!品名规格
rs.Update
rs.Close
这样也不行阿！提示：编译错误，用户定义类型未定义！

唉！vba真难阿！
真的麻烦你了
谢谢！

Roadbeg

这是由 ado 与 dao 的差异造成的.
currentdb.openrecordset 返回 dao.recordset
所以,如果你准备用 currentdb 则必须
dim rs as dao.recordset

徐阿鹏

Dim rs As ADODB.Recordset
Set rs = CurrentDb.openrecordset("销售订单记录表")
rs.AddNew
rs(" 销售订单号 ") = 销售订单号
rs(" 接单人 ") = 接单人
rs.Update
rs.Close
Set rs = CurrentDb.openrecordset("销售订单明细表")
rs.AddNew
rs("销售订单号") = 销售订单明细表!销售订单号
rs("品名规格") = 销售订单明细表!品名规格
rs.Update
rs.Close

这个代码怎么不行的哪里出的问题？麻烦帮我看看！
谢谢

Roadbeg

附个例子.
该例子在窗体的 beforceupdate 事件中设置未绑定字段的值,以达到手动绑定的目的
这个例子也回答了网友关于计算控件的值如何回写入表中的问题.
文件下载

[此贴子已经被作者于2003-3-1 20:35:48编辑过]

徐阿鹏

阿？在按钮事件中调用sql语句可以吗？
可以写个代码来看看吗？谢谢！