MS-Access Set Default Value of Column Using VBA

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:

Code:

---

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

---

Code:

---

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

---

Code:

---

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

---

but nothing is working.


Please help me on this.


Thanks in advance.

Hi,


You could write this VBA in Access

Code:

---

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

---

Thanks it's working :Cheers: