Phương thức Create Tabledef Trong access vba

Option Compare Database

Sub TaoChiTietHD()

On Error GoTo loi

Dim db As DAO.Database

Set db = CurrentDb()

Dim tbl As DAO.TableDef

Dim index As DAO.index

Set tbl = db.CreateTableDef("ChiTietHD")

tbl.Fields.Append tbl.CreateField("MaHD", dbText, 6)

tbl.Fields.Append tbl.CreateField("MaHang", dbText, 10)

tbl.Fields.Append tbl.CreateField("SLB", dbSingle)

'Cho phép de trong du lieu

tbl.Fields("MaHD").AllowZeroLength = True

tbl.Fields("MaHang").AllowZeroLength = True

'tbl.Fields("SLB").AllowZeroLength = True

'Giá tri mac dinh neu nhu không có du lieu

tbl.Fields("MaHD").DefaultValue = "None"

'Tao mot index cho bang Tbl

Set index = tbl.CreateIndex("MaHD")

Set index = tbl.CreateIndex("MaHang")

'Tao chi muc cho 2 field mac dinh

index.Fields.Append index.CreateField("MaHD")

index.Fields.Append index.CreateField("MaHang")

'Và deu là khoá chính cua bang

index.Primary = True

'Cung nhu su duy nhat

index.Unique = True

tbl.Indexes.Append index

'Them bang vao csdl

db.TableDefs.Append tbl

MsgBox "Ban Da tao Table" + tbl.Name

loi:

If Err.Number = 3010 Then

MsgBox "Da ton tai bang co ten" + tbl.Name

End If

End Sub

Posted in: access