将参数传递给使用“新建”创建的访问表单

Question

我有一个名为“详细信息”的表单，它显示了所选记录的详细视图。该记录是从称为“搜索”的不同形式中选择的。因为我希望能够打开多个“详细信息”实例，每个实例都显示不同记录的详细信息，所以我使用了以下代码：

Public detailCollection As New Collection    

Function openDetail(patID As Integer, pName As String)
'Purpose:    Open an independent instance of form
Dim frm As Form
Debug.Print "ID: " & patID

'Open a new instance, show it, and set a caption.
Set frm = New Form_detail
frm.Visible = True
frm.Caption = pName


detailCollection.Add Item:=frm, Key:=CStr(frm.Hwnd)

Set frm = Nothing
End Function

PatID 是我希望在这个新的“详细信息”实例中显示的记录的主键。调试打印行打印出正确的 PatID，所以我可以使用它。如何将它传递给表单的这个新实例？

我尝试设置新表单的 OpenArgs，但我收到一条错误消息，指出 OpenArgs 是只读的。经过研究，OpenArgs 只能由 DoCmd 设置（这是行不通的，因为那时我没有得到表单的独立实例）。创建 Form 对象时，我找不到有关允许参数的文档。显然，微软不认为构造函数是一种方法，至少根据文档。我该如何处理？ （请不要告诉我将其设置为不可见的文本框或其他东西）谢谢大家，你们是网上为我回答这些问题的最佳人选。我爱你们！

多实例表单的源代码取自：http://allenbrowne.com/ser-35.html

Answer 1

在您的 Form_detail 中，创建一个自定义属性。

Private mItemId As Long

Property Let ItemID(value as Long)
    mItemId = value
    ' some code to re query Me
End Property

Property Get ItemId() As Long
    ItemId = mItemId
End Property

然后，在创建表单的代码中，您可以执行此操作。

Set frm = New Form_detail

frm.ItemId = patId

frm.Visible = True
frm.Caption = pName

这将允许您将 ID 传递给新表单实例，并确保在使其可见之前对其进行重新查询。如果您总是通过Newing 打开表单，则无需每次都加载所有结果。您让属性加载数据，而不是传统的Form_Load 事件。

之所以有效，是因为 Access Form 模块只不过是美化的类。希望这可以帮助。

Answer 2

您可以尝试应用过滤器：

frm.Filter = "[ID] = " & patID
frm.FilterOn = True

Detail表单的Record Source需要设置为ID所属的表。

更新 根据您的要求，这里是设置 RecordSource 的代码：

frm.RecordSource = "select * from TableName where [ID] = " & patID

这可能比使用过滤器更干净，因为用户可以移除过滤器（取决于表单的类型）。