Salu2, encantado
.
Primeramente estas obligado a crear la tabla y grabarla en la DB:
Seguidamente utilizas un Var Field para aceder al campo en el que queremos añadir la property, ese es el problema, no existe, como el de los números decimales si es Double.
dim AbreBase as database
dim Fld as Field
dim Prty as Property
abres DB
Set Fld = AbreBase.TableDefs(NombreTabla).Fields(NumeroCampo_O_NombreCampo)
Set Prty = Fld.CreateProperty("Description", dbText, "Texto a ponerle en la property Description, OBLIGA A QUE NO SEA NULL")
Fld.Properties.Append Prty
Set Prty = Nothing
'DECIMALES
Set Prty = Fld.CreateProperty("DecimalPlaces", dbByte, NUMERO DE DECIMALES. NO mas de 255)
Fld.Properties.Append Prty
Set Prty = Nothing
Set Fld = Nothing
Cierras DB
Si ves que me he explicado mal intentaré hacerlo mejor.
espero que te sirva.