Md访问:用户定义的函数值没有显示在文本框中

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