Check if field name exists

Is it possible to add a boolean to contain the result if the field exists or not?

Hi, i created a script, but sometimes its keep running on a error on line 32 on diffrent places. I created a loop because there a more then 100 database files. I can't append them because with the XML import sometimes a field gets the type character and sometimes the type nummeric. I want to build a script to check if a field exists and if so then check is the type is right and if not change it. I thougth i had the solution but it's keep crashing.

Line 32 seems to reference:

Set field = table.GetField("ENDTOENDID")

So if your file doesn't have that field then you would get an error.  Is it possible that some of the files don't have this field?

Yes some files doesn't have that field. But with the code below it identifies that there is no field. The problem is that when it finds the field in a file, it also says the field is present in the next file while that is not correct. I can't find where the mistake in the code is. My guess is that there is a variable which is not reset to the correct value and holds the value from the previous search with a positive result (field is present). Do you have any idea?
 
 
 
 
Option Explicit
 
Dim Q1 As Integer
Dim i, j, field_count As Integer
Dim fieldNames() As String
Dim fieldNameOk As Boolean
Dim origFieldName As String
Dim FieldExists As Boolean
Dim FieldNumeric As Boolean
Dim Databasename As String
Dim Field0 As String
Dim Field1 As String
Dim Field2 As String
Dim Check As String
 
Sub Main
Dim db As Object
Dim table As Object
Dim field As Object
 
Field0 = "MNDTID"
Field2 = Field0 + "1"
Field1 = Field0
 
For Q1 = 131 To 134  
Client.CloseAll
Databasename = "A (" & Q1 & ").IMD"
'MsgBox "Databasename: " & Databasename
Call checkIfFieldNameExists(Field1, Databasename)
 
If FieldExists = True Then
MsgBox "Veld bestaat"
Set db = Client.OpenDatabase("A (" & Q1 & ").IMD")
Set table = db.TableDef
Set field = table.GetField(Field0)
FieldNumeric = field.IsNumeric
'MsgBox "Veld is nummeriek: " & FieldNumeric
Set field = Nothing
Set table = Nothing
Set db = Nothing
If FieldNumeric  = True Then
'MsgBox "aanpassen"
Call Aanpassen
End If
Else
MsgBox "Veld bestaat niet"
End If
 
'MsgBox Databasename & " done"
Set db = Nothing
Set table = Nothing
Set field = Nothing
Client.CloseAll
 
Next Q1
End Sub
 
 
Function checkIfFieldNameExists(fieldname As String, filename As String) As String
Dim db As Object
Dim table As Object
Dim field As Object
fieldname = UCase(fieldname)
origFieldName = fieldname
 
Set db = Client.OpenDatabase(Databasename)
Set table = db.TableDef
field_count = table.count
 
ReDim fieldNames(field_count)
 
For i = 1 To field_count
Set field = table.GetFieldAt(i)
fieldNames(i) = field.name
Next i
j = 1
 
Do
 
For i = 1 To field_count
If fieldname = fieldNames(i) Then
fieldname = origFieldName & j
j = j + 1
fieldNameOk = FALSE
Exit For
Else
fieldNameOk = TRUe
End If
Set field = Nothing
Set table = Nothing
Set db = Nothing'
Next i
Loop While fieldNameOk = FALSE
 
checkIfFieldNameExists = fieldname
Check = Right(fieldname, 1)
 
If Check = "1" Then
FieldExists = True
Else 
FieldExists = False
End If
Set db = Nothing
Set table = Nothing
Set field = Nothing
 
 
End Function
 
Function Aanpassen
Dim db As Object
Dim task As Object
Dim field As Object
 
Set db = Client.OpenDatabase(Databasename)
Set task = db.TableManagement
Set field = db.TableDef.NewField
field.Name = Field0
field.Description = ""
field.Type = WI_CHAR_FIELD
field.Equation = ""
field.Length = 16
task.ReplaceField Field0, field
task.PerformTask
Set task = Nothing
Set db = Nothing
Set field = Nothing
End Function