从

Question

我有一个表单（frm_main）

我在这个表单上有一个子表单（frm_weblogs_subform）

我正在尝试使用文本框搜索子表单。

我发现并且一直在玩的代码无效：

Private Sub find_weblog_button_Click()

Dim D As Database
Dim wlog As DAO.Recordset
Dim Criteria As String

Set D = CurrentDb
Set wlog = D.OpenRecordset("form_frm_weblogs_subform", dbOpenDynaset)

Criteria = "[weblog_number]='" & [weblogSearch] & "'"

wlog.FindFirst Criteria

wlog.Close

End Sub

似乎没有注册表格，一直说它无法找到。

任何人都可以帮我指出正确的方向吗？

Answer 1

应该是：

Dim wlog As DAO.Recordset
Dim Criteria As String

Set wlog = Me!<NameOfTheSubformCONTROL>.RecordsetClone
If wlog.RecordCount > 0 Then
    Criteria = "[weblog_number]='" & [weblogSearch] & "'"
    wlog.FindFirst Criteria
    If wlog.NoMatch = False
        ' Found.
    Else
        ' Not found.
    End If
End If
wlog.Close

将<NameOfTheSubformCONTROL>替换为，而不是子表单的名称。