Delete/Modify Field Property 2

[Pampers]

Hi Everyone,
Question about a Field Property. I can create a Field Property (see code), but how can I modify or delete an existing property??

Dim tdf As TableDef
Dim curDatabase As Object
Dim fld As Object
Dim prp As DAO.Property

'Get a reference to the current database
Set curDatabase = CurrentDb

'Get a reference to a table named Customers
Set tdf = curDatabase.TableDefs("BOD01_Artikelgroepen")

'Create field
Set fld = tdf.CreateField("OpslagTransAruba9", dbDouble)
tdf.Fields.Append fld

'Properties Field
Set prp = fld.CreateProperty("Format", dbText, "Fixed")
fld.Properties.Append prp

Set prp = fld.CreateProperty("DecimalPlaces", dbByte, 4)
fld.Properties.Append prp


Set fld = Nothing
Set prp = Nothing

Pampers
Keeping it simple can be complicated

 

[PHV]

No F1 key on your keyboard ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Pampers]

Hi PHV,
Sure, pressed it about 50 times.

collection.Delete objectname

I will give it another try

Pampers
Keeping it simple can be complicated

 

[Remou]

As far as I recall, these properties are read-only in VBA, however, DDL may suit:

strSQL = "ALTER TABLE Table1 ALTER COLUMN Field1 DateTime"
CurrentDb.Execute strSQL

 

[Pampers]

Thx Remou,
It can be delete (after reading):

Dim tdf As TableDef
Dim curDatabase As Object
Dim fld As Object
Dim prp As DAO.Property

'Get a reference to the current database
Set curDatabase = CurrentDb

'Get a reference to a table named Customers
Set tdf = curDatabase.TableDefs("Test")
Set fld = tdf.Fields("OpslagTransAruba9")
fld.Properties.Delete "Format"

Looks like DDL gives your more option, like altering a property

Pampers
Keeping it simple can be complicated