子表单仅显示单条记录

Question

我有一个嵌入在表单（用户）中的子表单（用户子表单）。 我想要实现的是加载时，子表单应显示表中的所有用户以及主表单上的控件以充当过滤器。
即
如果从主窗体的组合框中选择用户 A，则子窗体中仅显示用户 A 的详细信息
如果从主窗体的组合框中清除选择（即 userA），则所有记录将在子窗体中再次弹出。

这听起来很简单，但对于初学者来说，当我加载表单时，子表单中仅显示 1 条记录，如果我在用户组合框中进行选择，则仅显示该用户的记录。 如果我能看到的只是一次记录一次，无论是否进行选择，它就违背了拥有子表单的目的。

我正在使用 Access '03。 有人能帮忙吗。 我这里有一个示例数据库，它已经成功实现了这一点，但我似乎找不到他们的设置与我的设置有何不同。

Answer 1

主窗体不应有记录源，也不应有链接标准。

过滤器控件的更新后事件应该更新子表单的过滤器（正如 CodeSlave 的代码所做的那样），您可以分配子表单的记录源（我倾向于后者，因为那样我就不必担心所有过滤器带来的问题）。

我过去曾多次这样做过，但通常不使用子表单。 我不喜欢数据表并使用连续表单，并将过滤控件放在表单的标题中。 然后，您可以避免引用子表单控件的困难（尽管这非常简单，因为您可以使用 With/End With 块，如 Praesagus 的帖子中所示）。

关键点是您希望主表单 UNBOUND，并且您希望放入条件的控件触发子表单的过滤。

Answer 2

我假设您已将子表单设置为“连续表单”或“数据表”。

当您的表单打开时，您的过滤器中是否还有内容？ 您可能希望在主窗体打开时显式清除它，然后刷新数据。

编辑
这是我之前做过的事情：

Private Sub cmdCannedFilter_Click()
On Error GoTo Err_Click    
Dim strFilter As String
    strFilter = "(1 = 1)"
    strFilter = strFilter & " " & _
            "and (((someTable.Active)=Yes) "   

    Me![List_SubForm].Form.FilterOn = False
    Me![List_SubForm].Form.Filter = strFilter
    Me![List_SubForm].Form.FilterOn = True

Exit_Click:
    Exit Sub

Err_Click:
    MsgBox Err.Description
    Resume Exit_Click
End Sub

在本例中，这是从主窗体上的按钮运行的，而 List_SubForm 是（显然）子窗体。 我认为对我来说关键是必须关闭过滤器然后再打开。 我不记得为什么。

(1 = 1) 是因为我在其他地方做了类似的事情，我在它们飞行时构建查询，这意味着我不必每次都决定是否需要插入 < code> 和 是否存在。

你也在做类似的事情吗？

Answer 3

听起来您这里有两个不同的记录集。 选择用户时会显示用户详细信息。 当未选择任何用户时，您希望查看所有用户。 如果是这种情况，请使用两个子表单并在它们之间切换 - 我们将它们称为 fAllUsers 和 fUserDetails。 我们将子窗体控件名称命名为 sfUser。 我假设用户表单上的主键和 fUserDetails 上的外键是 userID。 确保子表单没有任何与父表单链接的字段。
家长：

Private Sub Form_Current()
    Dim sForm as string
    Dim sFilter as string
    Dim lUserID as long
    lUserID =nz(me!userID,0)
    sForm="fUserDetails"
    sFilter="userID=" & lUserID
    if lUserID<>0 then 
        sForm="fAllUsers"
        sFilter=""
    end if
    with sfUser
        .sourceobject=sForm
        .filter=sFilter
        .filteron=true
    end with
End Sub

希望有帮助。

Answer 4

我有一个名为“TmprryQryFrLnkFldsCrtn0123456789”的随机（脏话）查询，我错误地删除了它，这给我带来了子表单上只显示一条记录的问题。 我只是碰巧将我拥有的备份数据库与我遇到问题的数据库进行了比较。

一旦我恢复查询，我的所有结果都会再次显示。