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

徐阿鹏 · 发表于 2003-3-2 03:24:00

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

徐阿鹏 · 发表于 2003-3-2 03:25:00

表名“表1”

Roadbeg · 发表于 2003-3-2 03:28:00

通常由于计算控件不能绑定,使用此方法.
在 From 的 BeforeUpdate 事件中,使用数据访问对象设置 me.recordsetclone!字段名.

徐阿鹏 · 发表于 2003-3-2 03:42:00

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

Roadbeg · 发表于 2003-3-2 04:36:00

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

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

徐阿鹏 · 发表于 2003-3-2 04:38:00

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 · 发表于 2003-3-2 04:42:00

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

徐阿鹏 · 发表于 2003-3-2 05:01:00

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 · 发表于 2003-3-2 06:39:00

你没有永久引用 dao 3.6

徐阿鹏 · 发表于 2003-3-2 06:53:00

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

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

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

群介绍
主题无相 (随机显示版	同地区群块其他地区)