Office中国论坛/Access中国论坛

标题: 跨表传送数据的操作 [打印本页]

作者: Gerddy 时间: 2006-8-30 17:55
标题: 跨表传送数据的操作
窗体A是根据表A由向导来创建的，所以记录源也就是表A，

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

这个程序该怎么写？

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

作者: 一点通 时间: 2006-8-30 18:01
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
首先谢谢LZ，我用了这个程序，但运行该按钮的时候提示，数据参数不正确或与其他参数冲突，不知道是那里出了问题，

作者: hi-wzj 时间: 2006-8-30 21:22
或直接用追加或更新查询

作者: 一点通 时间: 2006-8-30 22:24

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

请上传示例

作者: Gerddy 时间: 2006-8-31 21:18
[attach]20100[/attach]
这是程序，望LZ帮忙！

作者: 一点通 时间: 2006-8-31 21:51
完全是大意及拼写错误引起的

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
成功！！强力感谢LZ的大力支持！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)