如何select一个子窗体在弹出主窗体中记录和显示
How to select a subform record and display in a popup mainform
当您 select ID 字段时,子表单记录必须显示在主表单中,就像当您 select 子表单记录时,您必须能够在弹出的主表单中编辑该特定记录。这是一个项目,我一直在努力让它工作
我的弹出主窗体是库存明细,主窗体是 ID
我的子表单名称是 Customerssubform,外键是 ID
我能够打开表格,但它转到了一条新记录,它必须根据您的 selection
转到特定记录
我的代码
Private Sub ID_DblClick(Cancel As Integer)
DoCmd.OpenForm FormName:="Inventory Details", OpenArgs:=Me.ID
Dim rst As DAO.Recordset
If Len(Me.OpenArgs & "") > 0 Then
Set rst = Me.RecordsetClone
With rst
.FindFirst "ID = " & Me.OpenArgs
If Not .EOF Then Me.Bookmark = .Bookmark
End With
End If
End Sub
这段代码:
Dim rst As DAO.Recordset
If Len(Me.OpenArgs & "") > 0 Then
Set rst = Me.RecordsetClone
With rst
.FindFirst "ID = " & Me.OpenArgs
If Not .EOF Then Me.Bookmark = .Bookmark
End With
End If
应该都在Inventory Details
形式的Form_Open
事件中。更改它以使其工作。
当您 select ID 字段时,子表单记录必须显示在主表单中,就像当您 select 子表单记录时,您必须能够在弹出的主表单中编辑该特定记录。这是一个项目,我一直在努力让它工作
我的弹出主窗体是库存明细,主窗体是 ID 我的子表单名称是 Customerssubform,外键是 ID
我能够打开表格,但它转到了一条新记录,它必须根据您的 selection
转到特定记录我的代码
Private Sub ID_DblClick(Cancel As Integer)
DoCmd.OpenForm FormName:="Inventory Details", OpenArgs:=Me.ID
Dim rst As DAO.Recordset
If Len(Me.OpenArgs & "") > 0 Then
Set rst = Me.RecordsetClone
With rst
.FindFirst "ID = " & Me.OpenArgs
If Not .EOF Then Me.Bookmark = .Bookmark
End With
End If
End Sub
这段代码:
Dim rst As DAO.Recordset
If Len(Me.OpenArgs & "") > 0 Then
Set rst = Me.RecordsetClone
With rst
.FindFirst "ID = " & Me.OpenArgs
If Not .EOF Then Me.Bookmark = .Bookmark
End With
End If
应该都在Inventory Details
形式的Form_Open
事件中。更改它以使其工作。