Question

我创建了两个表单，名为Main和Individual。 Main有一个名为frmFID的表，以及一个名为frmEth的组合框。我想将frmID值发送到另一个以另一种形式出现的文本框。

Private Sub cmdLog_Click()
Dim abc As String
Dim xyz As String
abc = "Insert into Main(FID, Ethnicity) Values('" & Me.frmFID & "', '" & Me.frmEth & "')"
CurrentDb.Execute (abc)

xyz="Insert into Individual(FID) Values(' "& Me.frmFID & "')"
CurrentDb.Execute(xyz)

DoCmd.Close
DoCmd.OpenForm "Individual"
End Sub

Answer 1

您的代码格式化方式几乎无法读取。在任何情况下，您都可以使用OpenArgs DoCmd.OpenForm参数将数据发送到您要打开的表单。如果表单已经打开，您可以从以下任何地方访问它：

Forms([FormName]).[TextBoxName]="Value to Push"

如何在访问中将文本框的值从一个表单传递到另一个表单

1 个答案: