Change default value in backend table

[EddyLLC]

I am trying to allow a user to change default values for a field in a backend table. The following code produces an error, can't append because the object already exists. Can what I want to do be done? Thanks for any help.

DBName = CurrentProject.Path & "\Datadb.mdb"
Set wrkDefault = DBEngine.Workspaces(0)
Set dbsUpdate = wrkDefault.OpenDatabase(DBName, True)
Set tdfUpdate = dbsUpdate.TableDefs("flkpTable1")
With tdfUpdate
Set tdfField = .Fields("DeclareT")
tdfField.Properties.Append tdfField.CreateProperty("Default Value", dbText, strDeclarant)

End With
Set wrkDefault = Nothing

 

[Golom]

If it already exists then

tdfField.Properties("Default Value").Value = strDeclarant

 

[EddyLLC]

Thanks for the reply. I replaced my append statement with your suggestion. The code now runs through without error but when I check the backend table the default value is not set. It's completely empty.