新打开窗体上文本框如何自动赋值?

Bio_hebei　发表于：2009-06-06 23:17:06 　

复制

模式对话框窗体1 上面有一个文本框text1

一个按钮combx

模式对话框窗体2 上面有一个文本框text2

现在点击窗体1上的按钮combx

弹出窗体2 (不关闭窗体1)

    Private Sub combx_Click()
      DoCmd.OpenForm "窗体2", , , , , acDialog
    End Sub

问题:

如何能自动让text2=text1 ?

Top

赵文斌发表于：2009-06-07 00:00:47

Private Sub combx_Click()
DoCmd.OpenForm "窗体2", , , , , acDialog

forms!窗体2!text2=text1
End Sub

Top

Bio_hebei 发表于：2009-06-07 01:50:59

按楼上试了下:

一,窗体仍然可以弹出

二,但并没有实现文本框赋值(还是空的)

三,关闭窗体2时,显示找不到窗体2

是不是中间哪些连接符号有问题啊?

Top

沈军发表于：2009-06-07 08:47:50

'原例

Private Sub combx_Click()
DoCmd.OpenForm "窗体2", , , , , acDialog

forms!窗体2!text2=text1
End Sub

你目前打开的窗体方式是独占模式，当独占模式窗体打开的时候其它后续命令全都被挂起，无法执行下去的，只有当窗体2关闭或推动焦点的时候才可继续执行下一句代码。

因此，建议你将窗体2 更改成为弹出式窗体，或者是将 acDialog 更改成为 acHidden

下面示例看或行否？

Private Sub combx_Click()
DoCmd.OpenForm "窗体2", , , , , acHidden

forms!窗体2!text2=text1

form_窗体2.Visible=True

或者是

DoCmd.OpenForm "窗体2"

End Sub

Top

access爱好者发表于：2009-06-07 08:51:19

应该是这样：

Private Sub combx_Click()

DoCmd.OpenForm "窗体2"

Forms!窗体2!text2 = Text1

End Sub

Top

沈军发表于：2009-06-07 09:10:42

在窗体1中的按钮单击事件

Private Sub combx_Click()
DoCmd.OpenForm "窗体2"

forms!窗体2!text2=text1

End Sub

还有一种是

Private Sub combx_Click()

DoCmd.OpenForm "窗体2", , , , , , Me.text1

End Sub

在窗体2的打开事件中加入代码

Private Sub Form_Open(Cancel As Integer)
Me.Text0 = Me.OpenArgs
End Sub

Top

Bio_hebei 发表于：2009-06-07 11:53:39

清晨11点一起来,看到这么多热心的兄弟帮我, 谢谢谢!!!

一个一个全都照做,验证了一遍

zdm2003 版主给我的答案已经很美了

sjwookroom 我的老排长最后给的两个答案都是对的,祝你早日升官发财!!!!

谢谢!

Top

Bio_hebei 发表于：2009-06-07 11:57:22

正重申明

刚才发生严重错误

更正如下

sjworkroom (原错为sjwookroom)

深表歉意!!!

Top

总记录：7篇页次：1/1 9 1 :

Access交流中心

[5分]新打开窗体上文本框如何自动赋值?