How to add Indexed property "Yes (No Duplicates)" to field in backend table - VBA

[neelsfer]

I use this code to add "number fields" to a table in backend database
What i don't have in this code, is to set the Indexed property to "Yes (No Duplicates)"
Any suggestions on how to accomplish that?
Please assist

Dim Marker As Integer
Dim Rtn As Integer
Dim s As String
Dim dbBackend As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim prp As DAO.Property
Dim strTableName As String
Dim strFieldName As String
Dim strFieldCaption As String
Dim strFieldNameToCheck As String
 
On Error GoTo Err_Section
Marker = 1
strTableName = "ConsumableSTForms"
MsgBox "Click OK to add some different fields to the table '" & strTableName & "'.", , "Back End Updater"
'* The full path of the back-end database can be set here
gstrBackEndDBName = "C:\pisprg\PisDataV2.accdb"
'* Open the back-end database
If Trim("" & gstrBackEndDBName) = "" Or Dir(gstrBackEndDBName, vbHidden + vbSystem) = "" Then
    Beep
    MsgBox "The back end database '" & gstrBackEndDBName & "' does not exist."
    MsgBox "Try running the first option in the demo. That will set the variable that holds the back-end database name."
    GoTo Exit_Section
End If
Set dbBackend = OpenDatabase(gstrBackEndDBName, True, False)
'* Check for existence of new field, and only continue if password entered
'***************************************************************************
strFieldNameToCheck = "NPItemID"
'* get tabledef
For Each tdf In CurrentDb.TableDefs
    If tdf.Name = strTableName Then
        Exit For
    End If
Next tdf
If tdf.Name <> strTableName Then
    MsgBox "Table '" & strTableName & "' not found. Exiting"
    GoTo Exit_Section
End If
For Each fld In tdf.Fields
    If fld.Name = strFieldNameToCheck Then
        Exit For
    End If
Next fld
If fld Is Nothing Then
    '* OK to proceed
Else
    If fld.Name = strFieldNameToCheck Then
        '* Found it - might not want to run again
        If InputBox( _
            "The new update has been done before.Do not continue. if there is a problem then add the password to continue anyway (the password is '1234').", _
            "Back End Updater", "") = "1234" Then
        Else
            MsgBox "Password invalid. Exiting."
            GoTo Exit_Section
        End If
    Else
        '* OK to proceed
    End If
End If
 
'* Get tabledef
For Each tdf In dbBackend.TableDefs
    If tdf.Name = strTableName Then
        Exit For
    End If
Next tdf
If tdf.Name <> strTableName Then
    MsgBox "Table '" & strTableName & "' not found. Exiting"
    GoTo Exit_Section
End If
 
Marker = 2
'***************************************************
strFieldName = "NPItemID"
On Error Resume Next
tdf.Fields.Delete strFieldName                                              '* Delete it if it already exists
Err.clear
On Error GoTo Err_Section
Set fld = tdf.CreateField(strFieldName, dbDouble)                             '* Create long integer field and set default value
With fld
   '.DefaultValue = ""
    .DefaultValue = "0"
    .Required = False
 
End With
tdf.Fields.Append fld
Set prp = fld.CreateProperty("Caption", dbText, "NPItemID")
fld.Properties.Append prp
Set prp = fld.CreateProperty("Description", dbText, "NPItemID.")
fld.Properties.Append prp
CurrentDb().Execute "Update " & strTableName & " set " & strFieldName & " = true;", dbSeeChanges + dbFailOnError
 
If Not xg_CreateIndex(tdf, strFieldName, False, False, True) Then Beep: GoTo Exit_Section   '* Create index for foreign key field
 
MsgBox "Fields added successfully."
 
Exit_Section:
    On Error Resume Next
    On Error GoTo 0
    Exit Sub
Err_Section:
    Select Case Err
    Case Else
        Beep
        MsgBox "Error (" & Marker & "), object " & Err.Source & ": " & Err.Number & " - " & Err.Description
    End Select
    Err.clear
    Resume Exit_Section
 

[neelsfer]

If i change line 94 to

If Not xg_CreateIndex(tdf, strFieldName, False, False, True) Then Beep: GoTo Exit_Section   '* Create index for foreign key field

then i get "Yes(Duplicates OK)"

I can't get "Yes(No duplicates)

[neelsfer]

i got it right by changing line 94 to

If Not xg_CreateIndex(tdf, strFieldName, False, True, True) Then Beep: GoTo Exit_Section   '* Create index for foreign key field

But the table may not have any data in it

[NeoPa]

I'm sure you'd find it can make a lot more sense if you were to use Named parameters Neels. Not just for us, but for you too.