Microsoft Access - 记录表单加载

Question

我很好奇，当我在其中一个表单中加载记录并选择为所选记录添加报价时，我是否有可能选择添加报价（按钮），这会将我带到我的报价页面。然后我希望表单自动加载我之前在另一个表单中选择的记录。

客户表格：

报价单： 这是数据流： 选择的记录（“添加工作”）>单击“添加项目”按钮>“项目列表”加载>然后自动加载我之前在“添加工作”中选择的记录。

需要加载的字段是“项目 ID”和“客户名称”

Answer 1

使用DoCmd.OpenForm 方法的OpenArgs 参数

---

• 当您单击Add Quotes 按钮打开报价表单时，通过 openArgs 参数发送详细信息/链接 ID。
• 在报价表单加载事件中，您可以使用Me.OpenArgs获取传递的详细信息

参见下面的示例代码

---

点击添加报价按钮

Private Sub AddQuotes_Click()

    DoCmd.OpenForm "frmQuotes", OpenArgs:=me.ClientID

End Sub

报价单

Private Sub Form_Load()
    Dim varArgs

    varArgs = Me.OpenArgs

    'Fill the controls with recordset data
    If Not IsNull(varArgs) Then
        With CurrentDb.OpenRecordset("SELECT * FROM tblClients WHERE ClientID = " & varArgs, dbOpenForwardOnly )
                Me.ClientID = !ClientID
                Me.ClientName = !ClientName
                Me.ClientAddress = !ClientAddress
                Me.ClientPhone = !ClientPhone
                Me.ClientEmail = !ClientEmail
            .Close
        End With
    End If

End Sub