Question

我有以下内容：

表格：sbfrm_lenderProducts

其中有一个字段：appraisalMethods

现场评估方法有一个组合框值列表，其答案为：'是;没有;取决于

我有以下代码（VBA模块）来打开表单（frm_appraisalTypes）当值为appraisalMethods =是

If Me.[appraisalMethods].Value = "YES" Then
   DoCmd.OpenForm "frm_appraisalTypes"
End If

工作正常。想知道我是否能够在代码中添加一些内容，将sbfrm_lenderProducts中的记录ID分配给开头表单frm_appraisalTypes。

为了澄清，sbfrm_lenderProducts有一个主键lenderProductsID，而frm_appraisalTypes（一个联结表）有外键lenderProductsID。打开表单时，我希望外键lenderProductsID与正在编辑的记录中的主键匹配。

Answer 1

您可以使用OpenArgs参数。在sbfrm_lenderProducts中：

If Me.[appraisalMethods].Value = "YES" Then
    DoCmd.OpenForm "frm_appraisalTypes", , , , , , Me.[ID]
End If

在frm_appraisalTypes中，ID值将在Me.OpenArgs

中提供