获取运行时错误“3159”：提取 SQL 记录集时不是有效的书签

Question

我正在尝试使用基于 frmPackingSlipHeader.JOB 和 .REL 控件的记录填充 frmPanelUnitEntryHeader.txtJOB_NUMBER 和 .txtRELEASE_NUMBER。在frmPackingSlipHeader 上导航记录时，.JOB 和.REL 被提交到gtxtCurrentJobNumber 和gtxtCurrentJobRelease 全局变量。我遇到了rs.FindFirst 方法，但需要大约一分钟或更长时间才能返回有效记录；找到正确的记录并按预期显示。在用.FindFirst 抱怨搜索了漫长的等待之后，我遇到了OpenRecordset 方法并使用strSQL 提取记录，但在Me.Bookmark = rs.Bookmark 上收到运行时错误“3159”消息。 frmPanelUnitEntryHeader 不是子源。

Private Sub txtJOB_NUMBER_GotFocus()

    'Used to bring up existing jobs in SUB table
    Dim rs      As Object
    Dim strSQL  As String

'    Set rs = Me.RecordsetClone
    strSQL = "SELECT * FROM MAIN_SUB WHERE [JOB_NUMBER] = '" & gtxtCurrentJobNumber & "' And RELEASE_NUMBER = '" & gtxtCurrentJobRelease & "';"
    
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    With rs
        If .RecordCount = 0 Then
            DoCmd.GoToRecord , , acNewRec
        Else
            Me.Bookmark = .Bookmark
        End If
    End With

    Set rs = Nothing
            

'    With rs
'        .FindFirst "JOB_NUMBER='" & gtxtCurrentJobNumber & "' And RELEASE_NUMBER='" & gtxtCurrentJobRelease & "'"
'        If .NoMatch Then
'            DoCmd.GoToRecord , , acNewRec
'        Else
'            Me.Bookmark = .Bookmark
'        End If
'    End With
'
'    Set rs = Nothing

End Sub

注释的行放在一起。

我在搜索错误时注意到许多网站诉诸数据库损坏和修复，但我不认为这里是这种情况。 .FindFirst 有效，但速度很慢。为什么书签在这两种方法之间的工作方式似乎不同？这与我在txtJOB_NUMBER_GotFocus() 上执行此操作有关吗？ TIA。

Answer 1

如果您仔细阅读 Form.Bookmark 上的文档，它会说：

因为当打开表单时，Access 会为表单记录集中的每条记录创建一个唯一的书签，所以即使两个记录集基于相同的表、查询或 SQL 语句，一个表单的书签也不会在另一个记录集中起作用。

所以每个记录集都有不同的书签，你只能使用同一个记录集中的书签。

.RecordsetClone 是相同的记录集，但游标不同，这就是为什么 Me.Bookmark = rs.Bookmark 在 rs 是 Me.Recordset 的克隆时有效（如果不像 rs = CurrentDb.OpenRecordset(strSQL) 则失败）。

您可以尝试直接使用以下方法过滤记录集：

Private Sub txtJOB_NUMBER_GotFocus()
    With CurrentDb.CreateQueryDef(vbNullString) 'Temporary QueryDef to use parameters
        .SQL = "SELECT * FROM MAIN_SUB  WHERE [JOB_NUMBER] = [CurrentJobNumberParameter] And RELEASE_NUMBER = [CurrentJobReleaseParameter];"
        .Parameters("CurrentJobNumberParameter") = gtxtCurrentJobNumber
        .Parameters("CurrentJobReleaseParameter") = gtxtCurrentJobRelease
        With .OpenRecordset
            If .RecordCount = 0 Then
                Me.Recordset.NewRecord
            Else
                Set Me.Recordset = .Parent.Recordsets(.Name) ' equvalent to Set Me.Recordset = rs, but without the need of variables declaration
            End If
        End With
    End With
End Sub

此代码还展示了如何避免在 DAO 上使用参数进行注入。阅读Bobby Tables 及其Microsoft Access 部分！