Question

在访问ADP中的表单上有一个未绑定的组合框，显示公司列表（显示名称，id是绑定字段）。选择公司时，我想在该公司的子表单（数据源为companySubscription视图）中显示订阅信息。我设置链接主字段并将子窗体的子字段属性链接到companyId。基本上，我将其设置为this。

理论上，我认为这意味着当我更改组合框中的值时，子窗体应该显示该公司的订阅信息。它无法正常工作 - 无论组合框设置的是什么，子窗体始终显示companySubscription视图中的所有数据。

帮助！

Answer 1

找到答案 - 从另一个帮助的项目获得了一些代码：

Private Sub cmbSub_AfterUpdate()
    ' Find the record that matches the control.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[subID] = " & str(Nz(Me![cmbSub], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

并且必须为ADP修改它（感谢this帖子！）

Private Sub ChooseCo_AfterUpdate()
    ' Find the record that matches the control.
    Dim rs As ADODB.Recordset

    Set rs = Me.Recordset.Clone
    rs.Find "[companyId] = " & Str(Nz(Me![ChooseCo], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

将子窗体链接到主窗体上的组合框的问题

1 个答案: