Compartir a través de

Propiedad Field2.DataUpdatable (DAO)

  • Artículo

Se aplica a: Access 2013, Office 2013

Devuelve un valor que indica si se pueden actualizar los datos en el campo representado por un objeto Field2.

Sintaxis

expresión . DataUpdatable

expression Variable que representa un objeto Field2.

Comentarios

Utilice esta propiedad para determinar si puede cambiar el valor de la propiedad Value de un objeto Field2. Esta propiedad es siempre False en un objeto Field2 cuya propiedad Attributes es dbAutoIncrField.

Puede usar la propiedad DataUpdatable en objetos Field2 anexados a la colección Fields de los objetos QueryDef, Recordset y Relation, pero no a la colección Fields de los objetos Index o TableDef.

Ejemplo

En este ejemplo se muestra que la propiedad DataUpdatable usa el primer campo desde seis Recordsets distintos. Se requiere la función DataOutput para que pueda ejecutarse este procedimiento.

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