使用代码来识别当前打开的表单

Question

我正在创建一个包含许多表单的数据库，我经常需要一个“放大框”来打开记录上的字段，并允许用户在“备忘录”字段中输入长行文本。目前由于我有限的vba编程知识，我不得不为每个要放大的字段创建一个新的（和相同的）放大形式。我想知道是否有可能不必每次我想要创建一个新的表单，而只需要一个标准的“放大”形式，知道正在访问哪个表/字段。

Answer 1

我假设您有相同的表，只是想更改字段名称，如果表名和字段也发生了变化，我们可以使用下面的示例代码编写相同的逻辑。

打开表单时，您需要知道需要使用哪个字段。打开表单时，Microsoft Access VBA中有设施，我们可以通过OpenArgs。此OpenArgs可用作了解设置缩放形式的字段的方法。

'Code when the zoom button clicked
DoCmd.OpenForm "frmZoom", , , , , , "memoField1"

为每个所需按钮编写代码，以便您可以传递用于缩放形式的字段。

Zoom表单的open事件将包含以下代码

'Check which field we need to set for the memo field
Select Case Me.OpenArgs 
Case "memoField1"
    Me.tbMemoField1.ControlSource="memoField1"
Case "memoField2"
    Me.tbMemoField2.ControlSource="memoField2"
End Select

根据您的需要替换字段名称和控件名称。