访问VBA - 从函数内更改TextBox值(ByRef)

Question

我正在尝试编写一个子类,它将获得两个参数 - 表单中的文本框和文本.我的意图是该函数会将文本附加到任何文本框中.

Sub AppendTextBox([any textbox in my form], text As String)

[code that appends the text parameter to the textbox]

End Sub

请注意,我不是要尝试将文本附加到特定文本框,而是创建一个可以接收表单中任何文本框并将其附加任何文本的函数.

谢谢你的帮助.

Answer 1

我找到了答案,它比我简单得多:尽管它是:

Private Sub AAA(A)

A.Value = "Desired text"

End Sub

或者如果你想追加:

Private Sub AAA(A)

A.Value = A.Value & vbnewline & "Desired text"

End Sub