How to create an indexed field (Duplicates OK) using VBA

Question

I used the following code to check to see if a field exist and if it does not exist one created. How can I expand this to not only create the field but also create an index (Duplicates OK).
Regards, Jim
Sub AddFldSect4_4()
Call FieldExists("DisplayOrder", "Section4_4")
End Sub
Function FieldExists(ByVal fieldName As String, ByVal tableName As String) As Boolean
Const gcfHandleErrors As Boolean = True
If gcfHandleErrors Then On Error GoTo Error_Handler
Dim db As Database
Dim tbl As TableDef
Dim fld As Field
Dim strName As String
Set db = CurrentDb
Set tbl = db.TableDefs(tableName)
For Each fld In tbl.Fields
If fld.Name = fieldName Then
FieldExists = True
Exit For
End If
Next
If FieldExists = False Then
Call addColumn(tableName, fieldName)
End If
Error_Handler_Exit:
On Error Resume Next
Exit Function
Error_Handler:
MsgBox "The following error has occured." & vbCrLf & vbCrLf & _
"Error Number: " & err.Number & vbCrLf & _
"Error Source: Field Exist" & vbCrLf & _
"Error Description: " & err.Description, _
vbCritical, "An Error has Occured!"
Resume Error_Handler_Exit
End Function
Public Sub addColumn(tableName As String, fieldName As String)
Const gcfHandleErrors As Boolean = True
If gcfHandleErrors Then On Error GoTo Error_Handler
Dim strField As String
Dim curDatabase As Object
Dim tblTest As Object
Dim fldNew As Object
Set curDatabase = CurrentDb
Set tblTest = curDatabase.TableDefs(tableName)
strField = fieldName
Set fldNew = tblTest.CreateField(strField, dbInteger)
tblTest.Fields.Append fldNew
Error_Handler_Exit:
On Error Resume Next
Exit Sub
Error_Handler:
MsgBox "The following error has occured." & vbCrLf & vbCrLf & _
"Error Number: " & err.Number & vbCrLf & _
"Error Source: Add Col" & vbCrLf & _
"Error Description: " & err.Description, _
vbCritical, "An Error has Occured!"
Resume Error_Handler_Exit
End Sub
jim neal

Answer 1

I used the following code to check to see if a field exist and if it does not exist one created. How can I expand this to not only create the field but also create an index (Duplicates OK).
Hi Jim,
I give you a couple of examples that I use to create or delete indexes. They are "heavily parametrized", so they can be used for every table using any fields. Study your Help for further information on "Create Index", and others.
tmp_db.Execute "CREATE INDEX " & cur_veldnaam & " ON " & cur_item & "_tbl (" & cur_type & ")" & " WITH PRIMARY" tmp_db.Execute "CREATE UNIQUE INDEX " & cur_veldnaam & " ON " & cur_item & "_tbl (" & cur_velden & ")" '& " WITH PRIMARY" tmp_db.Execute "DROP INDEX " & cur_keynaam & " ON " & cur_item & "_tbl"
tmp_db stands for the BE-database; cur_item & "_tbl" represents the table name.
Imb.