me.recordset.requery 使用 Query 作为 RecordSource 时出现错误 3251 失败

Question

我发现 @mwolfe02 的 Mike Wolfe's 建议不要头疼或大惊小怪地做 in-place Form requires。凉爽的。看起来很简单，减少了所需的额外编码。除了...它不起作用。

每次，每种形式，无论如何，我都会收到错误 3251：“这种类型的对象不支持操作”。每次。不管Form是怎么绑定的，不管是通过me.recordsource = "something"，set me.recordset = somerecordset，还是在Form Properties中静态分配等等。

表单设置为Dynaset，直通（使用时）打开为dbOpenDynaset，等等。

我可以在这些中使用me.recordsetclone（事实上，这就是我现在正在做的获取rowid）。我究竟做错了什么？还是有什么问题？或者这只是在以 SQL Server 为源的情况下无法在实践中使用？

作为参考，我使用 O365 Office 64 位版本 16 和 SQL Server 作为后端，但有些表在本地加载为临时表。

[编辑] 在设置表单的记录源时，我是这样做的：

' (in the form open)
me.recordsource = SendSQLReturnData (SQLString) ' This works great, and I know the SQL functions. 
(later in an OnPress from button:
me.recordset.requery ' <= Does not work.

' (SendSQLReturnData)
Public Function SendSQLReturnData(ByRef SQLString As String, _
Optional ByRef ReturnTable As String = PassthroughQuery, _ 
Optional DeleteExist As Boolean = False, _
Optional NoChange As Boolean = False) As String
'Sets up a passthrough query, hands back the name of the string via query. 

    Dim qdf As DAO.QueryDef
    Dim rstReport As DAO.Recordset
    Dim dB As DAO.Database

    Set dB = CurrentDb

    If DoesQryExist(ReturnTable) = False Then
    'this handles the case where the table wasn't set up already either by accident or didn't need to be previously.
        Set qdf = dB.CreateQueryDef(ReturnTable)
    Else 'Assume the only other case for "Does it exist" is true, so don't bother checking
        If NoChange = False Then
            Set qdf = dB.QueryDefs(ReturnTable)
        Else
            GoTo Exit_Here
        End If
    End If

    With qdf
        .Connect = dB.TableDefs(BackEndKeyTbl).Connect
        .SQL = SQLString
        .ReturnsRecords = True
        .OpenRecordset , dbOpenDynaset
    End With
Exit_Here:
    SendSQLReturnData = ReturnTable
    qdf.Close ' Turning these on/off doesn't change result.
    Set qdf = Nothing
    Set dB = Nothing
 
End Function

Answer 1

当表单或报表记录源是直通查询时，这将不起作用。