如何在文本框中显示全局 [静态] 变量的内容？

Posted 2023-05-07

【中文标题】如何在文本框中显示全局 [静态] 变量的内容？

【英文标题】：How to display the contents of a global [static] variable in a textbox?

【发布时间】：2019-05-19 22:47:29

【问题描述】：

我正在设置一个显示计算字符串变量的表单。数据来自将其结果放入其他过程可访问的变量中的 subs。如何定义 textbox.controlsource 属性以显示中间结果并继续流程？

我在 Access 中研究了各种帮助文件，但找不到答案。

Main module
Option Compare Database
option Explicit

--------

Public strAnswer As String

--------


Public Sub GetQuestion([Several arguments defining question])

--------[Process arguments and come up with an answer string]


strAnswer = [computed string from above]


End Sub


public Sub ShowAnswer


Docmd.Openform "AnswerForm",acNormal,,,acFormReadOnly,acWindowNormal


End Sub

answerform 中的文本框控件为空白或#Name

如何定义文本框的控制源？

【问题讨论】：

如果只显示一个变量，也可以使用 OpenArgs，Docmd.Openform ..., OpenArgs:=strAnswer

【参考方案1】：

定义一个getter函数，并用它来显示变量。

定义getter：

Public Function GetAnswer() As String
    GetAnswer = strAnswer
End Function

然后，作为文本框的控制源，使用=GetAnswer()显示答案。

请注意，如果答案更改为后续问题的答案，您可能会考虑将此设置为面向对象（定义一个类并将Answer 设置为该类的属性）以避免出现奇怪的行为。您当前的设计仅适用于单个问答。