DataUpdatable Property Example

This example demonstrates the DataUpdatable property using the first field from six different Recordsets. The DataOutput function is required for this procedure to run.

Sub DataUpdatableX()

    Dim dbsNorthwind As Database
    Dim rstNorthwind As Recordset

    Set dbsNorthwind = OpenDatabase("Northwind.mdb")

    With dbsNorthwind
        ' Open and print report about a table-type Recordset.
        Set rstNorthwind = .OpenRecordset("Employees")
        DataOutput rstNorthwind

        ' Open and print report about a dynaset-type Recordset.
        Set rstNorthwind = .OpenRecordset("Employees", _
            dbOpenDynaset)
        DataOutput rstNorthwind

        ' Open and print report about a snapshot-type Recordset.
        Set rstNorthwind = .OpenRecordset("Employees", _
            dbOpenSnapshot)
        DataOutput rstNorthwind

        ' Open and print report about a forward-only-type Recordset.
        Set rstNorthwind = .OpenRecordset("Employees", _
            dbOpenForwardOnly)
        DataOutput rstNorthwind

        ' Open and print report about a Recordset based on 
        ' a select query.
        Set rstNorthwind = _
            .OpenRecordset("Current Product List")
        DataOutput rstNorthwind

        ' Open and print report about a Recordset based on a 
        ' select query that calculates totals.
        Set rstNorthwind = .OpenRecordset("Order Subtotals")
        DataOutput rstNorthwind

        .Close
    End With

End Sub

Function DataOutput(rstTemp As Recordset)

    With rstTemp
        Debug.Print "Recordset: " & .Name & ", ";
        Select Case .Type
            Case dbOpenTable
                Debug.Print "dbOpenTable"
            Case dbOpenDynaset
                Debug.Print "dbOpenDynaset"
            Case dbOpenSnapshot
                Debug.Print "dbOpenSnapshot"
            Case dbOpenForwardOnly
                Debug.Print "dbOpenForwardOnly"
        End Select
        Debug.Print "  Field: " & .Fields(0).Name & ", " & _
            "DataUpdatable = " & .Fields(0).DataUpdatable
        Debug.Print
        .Close
    End With

End Function