FieldName

Method
Retrieves the name of a specified field.

Category
Fields

 

Syntax
Function FieldName(ByVal hTable As Long, ByVal FieldNo As Long) As String

hTable
The handle to the table.

FieldNo
The number of the field whose name will 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
FieldName returns the name of the field identified by FieldNo. This function cannot be used to change the name of the field. Field names are assigned in C/SIDE.

If FieldNo does not exist, the function will raise an exception.

For more information about fields, see the Application Designer’s Guide.



© 2009 Microsoft Corporation. All rights reserved.