Md Access：文本框中未显示用户定义的函数值

Question

在我的表单中，我有一个文本框TextBox1，我已将文本框的控件源设置为用户定义的函数=UserTracking()。 UserTracking函数在名为User_Defined_Functions的模块中定义。功能如下

Function UserTracking() As String
Dim test As String
test = "TEST"
End Function

现在我希望这个TEST应该出现在表单视图的文本框中，但它没有显示。它也没有给出任何错误。我怎样才能做到这一点？提前致谢。

Answer 1

您需要在函数中将值设置为UserTracking。

Function UserTracking() As String
Dim test As String
test = "TEST"
UserTracking = test
End Function