01/10/2018, 09:06
Lập trình Access và VBA
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
Bài liên quan
…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)
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
Bạn cũng tạo một cái If else để check việc tồn tại của bảng đi.
Mình sửa được rồi cảm ơn bạn