MS Access - 打开一个表单，从先前的表单中获取字段值

VBA

使用MS Access打开一个表单并从先前的表单中获取字段值的方法

在MS Access中，可以通过使用VBA编程语言来打开一个表单，并从先前的表单中获取字段的值。下面是一个简单的案例代码，展示了如何实现这一功能。

首先，我们需要创建两个表单。一个表单用于输入字段值，另一个表单用于显示从先前表单中获取的字段值。

在第一个表单中，我们可以添加一些文本框或其他控件，用于输入字段值。假设我们有一个名为"InputForm"的表单，其中包含一个名为"NameInput"的文本框。用户可以在该文本框中输入姓名。

下一步，我们需要在第二个表单中显示从先前表单中获取的字段值。假设我们有一个名为"DisplayForm"的表单，其中包含一个名为"NameDisplay"的文本框。

接下来，我们可以在"DisplayForm"表单的VBA代码中使用以下代码来打开"InputForm"表单并获取字段值：

Private Sub OpenAndGetValue()
    DoCmd.OpenForm "InputForm" ' 打开InputForm表单
    Forms("DisplayForm").NameDisplay.Value = Forms("InputForm").NameInput.Value ' 获取NameInput的值并赋给NameDisplay
End Sub

以上代码中，我们使用了DoCmd.OpenForm方法来打开"InputForm"表单。然后，我们使用Forms对象来引用表单，并使用表单的控件名称来获取字段值。最后，我们将获取的值赋给"DisplayForm"表单中的"NameDisplay"文本框。

在执行上述代码后，"DisplayForm"表单将显示从"InputForm"表单中获取的字段值。

案例代码：

下面是一个完整的案例代码，展示了如何使用MS Access打开一个表单并从先前的表单中获取字段值：

在VBA模块中，我们可以添加以下代码：

Private Sub OpenAndGetValue()
    DoCmd.OpenForm "InputForm" ' 打开InputForm表单
    Forms("DisplayForm").NameDisplay.Value = Forms("InputForm").NameInput.Value ' 获取NameInput的值并赋给NameDisplay
End Sub

在"InputForm"表单中，我们可以添加一个名为"NameInput"的文本框。

在"DisplayForm"表单中，我们可以添加一个名为"NameDisplay"的文本框。

当我们在"InputForm"表单中输入姓名，并执行"OpenAndGetValue"函数时，"DisplayForm"表单将显示从"InputForm"表单中获取的字段值。

通过使用MS Access和VBA编程语言，我们可以轻松地打开一个表单并从先前的表单中获取字段的值。这种方法可以帮助我们在表单之间传递数据，并实现更复杂的功能。