Propriedade Recordset.Restartable (DAO)

Aplica-se ao: Access 2013, Office 2013

Retorna um valor que indica se um objeto Recordset oferece suporte ao método Requery, que reexecuta a consulta na qual está baseado o objeto Recordset.

Sintaxe

expressão . Reinicializável

expressão Uma variável que representa um objeto do Recordset.

Comentários

Os objetos Recordset do tipo tabela sempre retornam False.

Verifique a propriedade Restartable antes de usar o método Requery em um objeto Recordset. Se a propriedade Restartable do objeto estiver definida como False, use o método OpenRecordset no objeto QueryDef base para reexecutar a consulta.

Exemplo

Este exemplo demonstra a propriedade Restartable com objetos Recordset diferentes.

    Sub RestartableX() 
     
     Dim dbsNorthwind As Database 
     Dim rstTemp As Recordset 
     
     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