如何将子表单链接到主表单上的组合框

发布于 2024-09-24 04:54:23 字数 355 浏览 8 评论 0原文

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

从理论上讲，我认为这意味着当我更改组合框中的值时，子表单应该显示该公司的订阅信息。但它不起作用 - 子表单始终显示 companySubscription 视图中的所有数据，无论组合框设置为什么。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

千年*琉璃梦 2024-10-01 04:54:23

找到了答案 - 来自另一个项目的一些代码有帮助：

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 对其进行修改（感谢此帖子！）

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

Found the answer- had some code from another project that helped:

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

And had to modify it for an ADP (thanks to this post!)

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

回复收藏 0 原文

~没有更多了~