MS-Access Set Default Value of Column Using VBA

[LalitPandey87]

Hi All,

Is it possible to modify an existing column and set its default property with a default value in MS Access using ALTER table query.

I have tried this:

ALTER TABLE [table1]
ALTER COLUMN [column1] number SET DEFAULT 0

ALTER TABLE [table1]
ALTER COLUMN [column1] number DEFAULT 0

ALTER TABLE [table1]
MODIFY COLUMN [column1] number DEFAULT 0

but nothing is working.


Please help me on this.


Thanks in advance.

[Admin]

Hi,


You could write this VBA in Access

   Set db = CurrentDb
   
   db.TableDefs("table1").Fields("column1").Properties("DefaultValue") = "0"

[LalitPandey87]

Thanks it's working :Cheers: