在Frm1点击一个按钮打开Frm2,Frm2中有一个文本框,设置文本框的值以后点确定关闭Frm2。
这时候我应该怎么把Frm2文本框的值传给Frm1呢?小弟初学VBA,问题较弱,还请给位大虾指点,3Q

解决方案 »

  1.   

    在frm2的unload事件里,把frm2的文本框的值写到一个全局的公共变量里。
      

  2.   

    private sub frm2_unload()
        frm1.text=frm2.text
    end sub
      

  3.   

    大侠  这个unload方法 会在frm2关闭的时候自动调用吗 ?
      

  4.   


    大侠  这个unload方法 会在frm2关闭的时候自动调用吗 ?
      

  5.   


    好好把基础打好吧!建议你看看MSDN关于Unload的文章!标准模块:public cText as string'类型自定
    Frm2窗体模块:private sub frm2_unload() 
            cText=text1.text '这样在Frm1中可直接使用cText值
    end sub 
      

  6.   

    Public text1 As StringPrivate Sub frm2_unload()
    frm1.tex1 = frm2.text1
    MsgBox "frm2"
    End Sub我是这样用的呀 可是在关闭frm2的时候,根本没有调用unload方法?困惑~~~~
      

  7.   

    试试这样行不行:标准模块:
    public cText as string'类型自定
    Frm2窗体模块: 
    Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
            Dim information As Integer
            information = MsgBox(PlayScreen.Caption & "关闭Frm2窗口!" & Chr(13) & Chr(10) & "---程序设计:ChenJL1031---", vbOKOnly + vbCritical + vbSystemModal, "应用程序")
            cText=text1.text '这样在Frm1中可直接使用cText值
             Cancel = 0
    End Sub