FieldSize

Method
Retrieves the size of a specified field.

Category
Fields

 

Syntax
Function FieldSize(ByVal hTable As Long, ByVal FieldNo As Long) As Short

hTable
The handle to the table.

FieldNo
The number of the field whose size is to be retrieved.

 

Example

'Case "FieldInfo"

'Lists the information about the fields in the customer-table

  tmpLong = CF1.NextField(hTable, 0)

  Do While tmpLong <> 0

  tmpBool = False

  tmpStr = Str$(CF1.FieldLen(hTable, tmpLong)) & ", "

  tmpVar = CF1.FieldName(hTable, tmpLong)

  If VarType(tmpVar) = vbString Then

  tmpStr = tmpStr & tmpVar & ", "

  tmpVar2 = CF1.FieldNo(hTable, tmpVar)

  If VarType(tmpVar2) = vbLong Then

  tmpStr = tmpStr & tmpVar2 & ", "

  tmpVar2 = CF1.FieldType(hTable, tmpLong)

  If VarType(tmpVar2) = vbInteger Then

  tmpStr = tmpStr & tmpVar2 & ", "

  tmpVar2 = CF1.FieldSize(hTable, tmpLong)

  If VarType(tmpVar2) = vbInteger Then

  tmpStr = tmpStr & tmpVar2 & ", "

  tmpVar2 = CF1.FieldClass(hTable, tmpLong)

  If VarType(tmpVar2) = vbInteger Then

  tmpStr = tmpStr & tmpVar2 & ", "

  tmpVar2 = CF1.FieldOptionStr(hTable, tmpLong)

  If VarType(tmpVar2) = vbString Then

  tmpStr = tmpStr & tmpVar2

  tmpLong = CF1.NextField(hTable, tmpLong)

  tmpBool = True

  End If

  End If

  End If

  End If

  End If

  End If

  If Not (tmpBool) Then

  Exit Do

  End If

  Loop

  If tmpBool Then

  tmpStr = "Fieldinfo from the last field: " & tmpStr

  logWr tmpStr

  Else

  logWr "Error in a return value"

  End If

 

  CF1.CloseTable hTable

 

Comments
FieldSize returns the size of the field specified in FieldNo in bytes. If no field exists with the number specified in FieldNo, the function will raise an exception.

For more information about the C/SIDE field types and their sizes, see the Application Designer’s Guide.

See also FieldLen.



© 2009 Microsoft Corporation. All rights reserved.