跨表传送数据的操作

Gerddy · 发表于 2006-8-30 17:55:00

窗体A是根据表A由向导来创建的，所以记录源也就是表A，

但是我现在想在窗体A中增加一个按钮command1 ,command1的作用是将表A中的 TEXT1，TEXT2的内容传送到表B中的两项1和2，

这个程序该怎么写？

我尝试过用 ME！[1] =ME！[TEXT1]，但系统提示找不到1，好象只能从记录源的哪个表，怎么样让数据传到表2呢？

一点通 · 发表于 2006-8-30 18:01:00

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "表B", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew

rs("字段1") = Me.Text1

rs("字段2") = Me.Text2

rs.Update

Gerddy · 发表于 2006-8-30 18:57:00

首先谢谢LZ，我用了这个程序，但运行该按钮的时候提示，数据参数不正确或与其他参数冲突，不知道是那里出了问题，

hi-wzj · 发表于 2006-8-30 21:22:00

或直接用追加或更新查询

一点通 · 发表于 2006-8-30 22:24:00

以下是引用Gerddy在2006-8-30 10:57:00的发言：
首先谢谢LZ，我用了这个程序，但运行该按钮的时候提示，数据参数不正确或与其他参数冲突，不知道是那里出了问题，

请上传示例

Gerddy · 发表于 2006-8-31 21:18:00

这是程序，望LZ帮忙！

一点通 · 发表于 2006-8-31 21:51:00

完全是大意及拼写错误引起的

Me![数量－结存] = Me![Text81]

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "结存记录", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("结存") = Me.Text81
rs("日期") = Me.Text92
rs.Update
' DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Refresh

Gerddy · 发表于 2006-9-1 00:09:00

成功！！强力感谢LZ的大力支持！

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

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

主题相关群

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

[其它] 跨表传送数据的操作

本帖子中包含更多资源

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