Lập trình Access và VBA

[hoailamAl (vu hoai lam)]

Mọi người dành về Access xin chỉ ra lỗi trong đoạn code dưới giúp mình , nó hiện ra cái bảng “Object doesn’t support this property or method”

Dim dbKeToan As Database
Dim tdfChungTu As TableDef
Dim sAppPath As String
sAppPath = Me.Application.CurrentProject.Path
Set wrkDefault = DBEngine.Workspaces(0)
If Not (Dir(sAppPath & "\Ketoan.mdb") <> "") Then
Set dbKeToan = wrkDefault.CreateDatabase(sAppPath & "\KeToan.mdb", dbLangGeneral)
Else
Set dbKeToan = OpenDatabase(sAppPath & "\Ketoan.mdb")
End If
Set tdfChungTu = dbKeToan.CreateTableDef("tbchungTu")
tdfChungTu.Fields.Append tdfChungTu.CreateField("Ngay_ChungTu", dbDate)
tdfChungTu.Fields.Append tdfChungTu.CreateField("so_ChungTu", dbLong)
tdfChungTu.Fields.Append tdfChungTu.CreateField("Dien_Giai", dbText, 30)
tdfChungTu.Fields.Append tdfChungTu.CreateField("Ho_Ten", dbText, 25)
tdfChungTu.Fields.Append tdfChungTu.CreateField("So_Tien", dbCurrency)
tdfChungTu.Fields.Append tdfChungTu.CreateField("Ghi_chu", dbMemo)
tdfChungTu.Fields!So_ChungTu.Attributes = dbAutoIncrFeild
dbKeToan.TableDefs.Append tdfChungTu
dbKeToan.Close

Đoạn code trên để tự động tạo file Access tên Kế Toán

[tienganh1247 (Khanhvm)]

…If Not (Dir(sAppPath & “\Ketoan.mdb”) <> “”) Then
Set dbKeToan = wrkDefault.CreateDatabse(sAppPath & “\KeToan.mdb”, dbLangGeneral)
Else…

Sai ở cái method CreateDatabse; Phải là CreateDatabase (thiếu chữ a)

[hoailamAl (vu hoai lam)]

Thank “qeqe1313”
Nhưng sau khi sửa lỗi đó , nó hiện ra thêm một lỗi khác mà mình không biết sửa thế nào .Xuất hiện cái bảng

[tienganh1247 (Khanhvm)]

Bạn cũng tạo một cái If else để check việc tồn tại của bảng đi.

[hoailamAl (vu hoai lam)]

Mình sửa được rồi cảm ơn bạn