Các anh chị cho em hỏi,em muốn thêm cột trong acess thì làm thế nào ạ 
Em cảm ơn

Có 2 cách để thêm cột cho table:
1. Dùng TableDef.CreateField và TableDef.Fields.Append
2. Dùng câu lệnh SQL: ALTER TABLE ADD COLUMN

Dùng cách 2 thì gọn hơn.
- Ví dụ cách 2: Thêm cột [HoTen] dạng Text 50 ký tự vào table Table1, cột [NgaySinh] dạng DateTime

- Ví dụ cách 1:

(08-02-17, 11:27 PM)ongke0711 Đã viết: Có 2 cách để thêm cột cho table:
1. Dùng TableDef.CreateField và TableDef.Fields.Append
2. Dùng câu lệnh SQL: ALTER TABLE ADD COLUMN

Dùng cách 2 thì gọn hơn.
- Ví dụ cách 2: Thêm cột [HoTen] dạng Text 50 ký tự vào table Table1, cột [NgaySinh] dạng DateTime

Mã PHP:

CurrentDb.Execute "ALTER TABLE Table1 ADD COLUMN HoTen TEXT(50)", dbFailOnError

CurrentDb.Execute "ALTER TABLE Table1 ADD COLUMN NgaySinh DATETIME NULL", dbFailOnError 


- Ví dụ cách 1:

Mã PHP:

Dim db As DAO.Database
Dim tdf As TableDef, fld As DAO.Field
Set db = CurrentDb

db.TableDefs.Refresh
Set tdf = db.TableDefs(“Table1”)
Set fld = tdf.CreateField(“HoTen”, dbText, 50)
tdf.Fields.Append fld 


(08-02-17, 11:27 PM)ongke0711 Đã viết: Có 2 cách để thêm cột cho table:
1. Dùng TableDef.CreateField và TableDef.Fields.Append
2. Dùng câu lệnh SQL: ALTER TABLE ADD COLUMN

Dùng cách 2 thì gọn hơn.
- Ví dụ cách 2: Thêm cột [HoTen] dạng Text 50 ký tự vào table Table1, cột [NgaySinh] dạng DateTime

Mã PHP:

CurrentDb.Execute "ALTER TABLE Table1 ADD COLUMN HoTen TEXT(50)", dbFailOnError

CurrentDb.Execute "ALTER TABLE Table1 ADD COLUMN NgaySinh DATETIME NULL", dbFailOnError 


- Ví dụ cách 1:

Mã PHP:

Dim db As DAO.Database
Dim tdf As TableDef, fld As DAO.Field
Set db = CurrentDb

db.TableDefs.Refresh
Set tdf = db.TableDefs(“Table1”)
Set fld = tdf.CreateField(“HoTen”, dbText, 50)
tdf.Fields.Append fld 


Em cảm ơn ạ
Em vào SQL thêm được cột rồi nhưng khi sang acess chỉ thay đổi được form liên kết chứ không thay đổi được form nhập dữ liệu thì làm thế nào ạ,Bác có thể chỉ xem rõ hơn 1 chút được không ạ.