将值从一个表传递到另一个表

Question

我有2个表（表1和表2），两个表都包含字符串字段名“theName”。 我还有2个表单（表单1和表单2）表单1的记录源是表1，表单2的记录源是表2.我想在表单1上输入“theName”的值然后单击打开表单2的按钮一个新记录，然后将“theName”字段设置为在表单1上输入的值。例如，如果我在表单1的“theName”字段中输入值“John”，然后单击一个按钮，将打开表单2到a新记录然后将“theName”字段设置为“John”。我有一些代码可以启动，但它对我不起作用。

是否可以打开并创建新记录，然后自动设置字段值？

Dim theName As String
theName = Me.theName

DoCmd.openForm "form2", , , "theName=" & Me.theName

Answer 1

您可以在打开表单后立即为第二个表单中的控件赋值。

' open form2 in add mode
DoCmd.OpenForm "form2", DataMode:=acFormAdd
' assign value to text box named theName
Forms!form2!theName = Me.theName