Skip to main content

Does a column exists in the table?

If you want to create a new column in a table just look if it is not still existing...

The fastest way to do that that i know is as followed:

'If you want to create a new column in a table just look if it is not still existing...

sTableName = Dir(Client.Workingdirectory + "tableName.IMD")
Set db = Client.OpenDatabase(sTableName)
Set table = db.TableDef
iFieldCnt = table.count

iCheckColumnExists = 0
For iLoopCounter = 1 To iFieldCnt
Set field = Nothing
Set field = table.GetFieldAt(iLoopCounter)
If field.name = "Name of the maybe new Column" Then
iCheckColumnExists = 1
Exit For
End If
Next iLoopCounter

If CheckColumnExists = 0 Then

'know you can create the new field in the table

End If

cheers,
cb