VBA传递变量

Question

我无法将form2中的值传递给form1。我希望能够在form2的text0中键入一个字符串。当我单击form1上的一个按钮时，它应该使用Form2.Text0填充Form1.Text0。我只是得到一条消息说无效。

这是代码

Private Sub Command4_Click()

Dim box1 As Object
Dim feedBox As Object

Set box1 = Forms!Form1!Text0
Set feedBox = Forms!Form2!Text0

MsgBox "Feedbox is " & feedBox.Value


box1 = feedBox.Value

MsgBox "Box1 is " & box1



End Sub

Answer 1

您只需要此代码。

Private Sub Command4_Click()
    Me.Text0 = Forms!Form2!Text0
End Sub

Command按钮将驻留在Form1上，因此上面的代码非常清楚地执行它需要做的事情。只需确保 Form2 已打开。无需创建任何对象。