Propiedad Field2.Size (DAO)

Se aplica a: Access 2013, Office 2013

Establece o devuelve un valor que indica el tamaño máximo, en bytes, de un objeto Field2.

Sintaxis

expresión . Tamaño

expression Variable que representa un objeto Field2.

Comentarios

Para un objeto que todavía no está anexado a la colección Fields, esta propiedad es de lectura y escritura.

Para aquellos campos (distintos de los campos tipo Memo) que contienen datos sobre caracteres, la propiedad Size indica el número máximo de caracteres que admite ese campo. Para los campos numéricos, la propiedad Size indica cuántos bytes de almacenamiento son necesarios.

El uso de la propiedad Size depende del objeto que contenga la colección Fields para el que está anexado el objeto Field2, como se muestra en la siguiente tabla.

Objeto anexado a	Uso
Índice	No compatible
QueryDef	Solo lectura
Recordset	Solo lectura
Relation	No se admite
TableDef	Solo lectura

Cuando se crea un objeto Field2 con un tipo de datos distinto de Texto, el valor de la propiedad Type determina automáticamente el valor de la propiedad Size y no es necesario establecer este valor. Sin embargo, para un objeto Field2 con el tipo de datos Texto, se puede establecer Size en cualquier entero hasta el tamaño máximo del texto (255 para las bases de datos del motor de base de datos de Microsoft Access). Si no se establece el tamaño, el campo será tan grande como lo permita la base de datos.

Para Long Binary y Memo de los objetos Field2, Size está establecido siempre en 0. Utilice la propiedad FieldSize del objeto Field2 para determinar el tamaño de los datos en un registro específico. El tamaño máximo de un campo Long Binary o Memo está limitado sólo por los recursos de su sistema o por el tamaño máximo permitido por la base de datos.

Ejemplo

En este ejemplo se muestra la propiedad Size mediante la enumeración de los nombres y tamaños de los objetos Field2 en la tabla Empleados.

    Sub SizeX() 
     
     Dim dbsNorthwind As Database 
     Dim tdfEmployees As TableDef 
     Dim fldNew As Field2 
     Dim fldLoop As Field2 
     
     Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
     Set tdfEmployees = dbsNorthwind.TableDefs!Employees 
     
     With tdfEmployees 
     
     ' Create and append a new Field object to the 
     ' Employees table. 
     Set fldNew = .CreateField("FaxPhone") 
     fldNew.Type = dbText 
     fldNew.Size = 20 
     .Fields.Append fldNew 
     
     Debug.Print "TableDef: " & .Name 
     Debug.Print " Field.Name - Field.Type - Field.Size" 
     
     ' Enumerate Fields collection; print field names, 
     ' types, and sizes. 
     For Each fldLoop In .Fields 
     Debug.Print " " & fldLoop.Name & " - " & _ 
     fldLoop.Type & " - " & fldLoop.Size 
     Next fldLoop 
     
     ' Delete new field because this is a demonstration. 
     .Fields.Delete fldNew.Name 
     
     End With 
     
     dbsNorthwind.Close 
     
    End Sub