Office中国论坛/Access中国论坛

标题: 求助:如何将窗体标签里的数据或表里的数据写入另一个窗体? [打印本页]

作者: 109091372    时间: 2008-1-10 23:28
标题: 求助:如何将窗体标签里的数据或表里的数据写入另一个窗体?
[attach]27808[/attach]各位高手,今天编写一个软件发现一个问题,就是一个窗体里的标签里的数值不能写入另一个窗体的对话框,后来我把值放到表了,可是表
里的数据也写入不了另一个窗体的对话框中,麻烦高手帮我看下我的代码是否有问题? 谢谢!

我这样做的目的: 我的软件里有很多文本框需要输入, 一个一个输很麻烦,而且有些值是经常用的,所以我打算把这些值给存储在一个地方
然后他们写入的时候可以选择性的写入一组数据,按一个按钮就写入很多个数据,可以方便用户使用。

我的代码如下:
Private Sub 写入1_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO 窗体1 ( A,B,C,D,E ) SELECT [Forms]![表1]![A],[B],[C],[D],[E];"
DoCmd.RunSQL "INSERT INTO 窗体1 ( A,B,C,D,E ) SELECT [Forms]!窗体1 ( Label0,Label1,Label2,Label3,Label4);"
DoCmd.SetWarnings True
End Sub
Private Sub 写入2_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO 窗体1 ( A,B,C,D,E ) SELECT [Forms]![表1]![A],[B],[C],[D],[E];"
DoCmd.RunSQL "INSERT INTO 窗体1 ( A,B,C,D,E ) SELECT [Forms]!窗体1 ( Label5,Label6,Label7,Label8,Label9);"
DoCmd.SetWarnings True
End Sub
谢谢大家!!  我的库上传如下
作者: 109091372    时间: 2008-1-11 15:20
代码具体应该怎么改能帮我改一下吗?   我把caption代进去还是不能用啊

哪位高手帮忙解答一下啊
作者: 109091372    时间: 2008-1-11 18:39
我顶.............
作者: 109091372    时间: 2008-1-11 18:40
我再顶,,,,,,,,,,,,,,,,,,,
作者: 109091372    时间: 2008-1-12 19:07
谢谢!  昨天看了另外一个方法  从表里 把数据调出来  问题解决
作者: poly    时间: 2008-1-12 19:36


早该用这种方法




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3