DAO 属性中的 Recordset2.Restartable ()

适用于:Access 2013、Office 2013

返回一个值,该值表示 Recordset 对象是否支持 Requery 方法,该方法重新执行 Recordset 对象所基于的查询。

语法

表达式 .可重启

表达式 一个代表 Recordset2 对象的 变量。

注解

表类型 Recordset 对象始终返回 False

在对 Recordset 对象使用 Requery 方法之前,检查 Restartable 属性。如果该对象的 Restartable 属性设置为 False,则对基础 QueryDef 对象使用 OpenRecordset 方法,以重新执行查询。

示例

以下示例使用不同的 Recordset 对象演示 Restartable 属性。

    Sub RestartableX()
    
       Dim dbsNorthwind As Database
       Dim rstTemp As Recordset2
    
       Set dbsNorthwind = OpenDatabase("Northwind.mdb")
    
       With dbsNorthwind
          ' Open a table-type Recordset and print its 
          ' Restartable property.
          Set rstTemp = .OpenRecordset("Employees", dbOpenTable)
          Debug.Print _
             "Table-type recordset from Employees table"
          Debug.Print "  Restartable = " & rstTemp.Restartable
          rstTemp.Close
    
          ' Open a Recordset from an SQL statement and print its 
          ' Restartable property.
          Set rstTemp = _
             .OpenRecordset("SELECT * FROM Employees")
          Debug.Print "Recordset based on SQL statement"
          Debug.Print "  Restartable = " & rstTemp.Restartable
          rstTemp.Close
    
          ' Open a Recordset from a saved QueryDef object and 
          ' print its Restartable property.
          Set rstTemp = .OpenRecordset("Current Product List")
          Debug.Print _
             "Recordset based on permanent QueryDef (" & _
             rstTemp.Name & ")"
          Debug.Print "  Restartable = " & rstTemp.Restartable
          rstTemp.Close
    
          .Close
       End With
    
    End Sub