[求助]如何把B窗体数据保存到A窗体？苦思不得其解

karlmarx

我在A窗体设置了一个修改命令按钮，点击修改按钮，弹出B窗体，B窗体的数据完全来自于A窗体，在B窗体设置了保存按钮，当把B窗体数据修改后，点击保存把数据保存到A窗体。

如何设置保存按钮的代码，使B窗体数据保存到A窗体？

我按照教程编写了代码，但运行有问题，百思不得其解，请高手指点迷津！！只要能保存数据，方法不限，多谢！！

教程子程序代码如下（设置在保存按钮单击事件中）

Private Sub Command38_Click()

Dim con As Object

Set con = Application.CurrentProject.Connection

Dim strsql As String

If MsgBox("确认修改好了吗？", vbInformation) = vbOK Then

strsql = "update 代理商基本信息 set [备注]＝me.[备注] where [代理商ID]＝me.代理商ID"

strsql = "update 代理商基本信息 set [姓名]＝me.姓名 ,[单位]＝me.[单位]"

strsql = strsql + ",[单位]＝me.[单位], [职务]＝me.[职务],[省份]＝me.[省份]"

strsql = strsql + ",[地区]＝me.[地区], [品种ID]＝me.[品种ID],[价格]＝me.[价格]"

strsql = strsql + ",[手机]＝me.[手机], [电话]＝me.[电话],[传真]＝me.[传真]"

strsql = strsql + ",[地址]＝me.[地址], [邮编]＝me.[邮编],[出库商业]＝me.[出库商业]"

strsql = strsql + ",[地址]＝me.[地址], [邮编]＝me.[邮编],[出库商业]＝me.[出库商业]"

strsql = strsql + ",[开票商业]＝me.[开票商业], [到站]＝<FONT face="Times New Roman">me.[</FO

sxgaobo

其实只是思路的问题，既然B窗体的数据完全来自于A窗体，为什么不在A窗体内修改数据？

karlmarx

主要是不想随意的变更表中的数据，所以A窗体的数据都设置为“锁定”，通过B窗体谨慎的变更数据。

请高手继续指教！

一点通

这其实是权限问题,没有权限的就锁定就行了,可用一个窗体来实现

sxgaobo

点A窗体上的修改命令按钮，

可以使用：Me.Form.AllowEdits = True，使窗体变为可编辑。

iamee

B窗体修改数据，A窗体刷新行不？

[此贴子已经被作者于2007-1-31 15:51:17编辑过]

一点通

可以的

karlmarx

sxgaobo

1. <SCRIPT language=javascript type=text/javascript>
   document.write (astro('1966-6-5'));
   </script>

复制代码

点A窗体上的修改命令按钮，

可以使用：Me.Form.AllowEdits = True，使窗体变为可编辑。



点击这个修改命令按钮后，还是无法修改A窗体的数据

还有什么办法吗？

karlmarx

一点通

B窗体修改数据，A窗体刷新行不？



B窗体的数据来源于A窗体，B窗体修改数据后，A窗体怎么刷新呢？

请指教！