如何在加载过程中将文本值从具有控制源的文本字段复制到相同表单的另一个未绑定文本字段？

Question

这是我绑定到表字段的文本框。

txtField1

= 属性中的控制源代码可以正常显示该字段中的完整文本值：

=IIf(IsNull([txtID]),"",DLookUp("[Reason_1]","[Escalations]","[ID]=" & [txtID] & ""))

txt字段1

txtField2

这是我的第二个文本框，未绑定到表字段，但想在表单加载时从

txtField1

复制文本值。我想从 txtField1 复制文本值，因为当我尝试在提交按钮中使用插入查询时，由于撇号，txtField1 不会保存在表中。

txtField2

值（目前通过带撇号的手动输入）但是，在提交期间提交。

txtField2

我尝试在加载时使用下面的代码：

txtField2.value = txtField1.value

但是给了我

blank value for txtField2

。但如果我这样说：

Private Sub txtField2_Click()
    Me.txtField2.Value = Me.txtField21.Value
End Sub

单击

txtField2

时，它可以正常工作并复制。

但是如何使其在表单加载或打开期间工作。

非常感谢您的帮助。

Answer 1

使用 OnLoad 事件和

Nz

为

ID

返回一个有效但不存在的值，以防

txtID

为空：

Private Sub Form_Load()

    Me!txtField2.Value = DLookup("[Reason_1]", "[Escalations]", "[ID] = " & Nz([txtID], 0) & "")

End Sub

另外，请将控件重命名为有意义的名称。