Tự động tạo CSDL Access bằng VBA

Bạn hãy tạo một CSDL mới, thiết kế một form và vẽ nút lệnh có tên cmdCreateMDB, rồi gõ đoạn mã 1 vào thủ tục xử lý tình huống OnClick của nút lệnh đó. Xong, bạn mở form, thử bấm nút lệnh cmdCreateMDB để kiểm tra kết quả.
Nội dung trích xuất từ tài liệu:
Tự động tạo CSDL Access bằng VBA Tự động tạo CSDL Access bằng VBABạn hãy tạo một CSDL mới, thiết kế một form và vẽnút lệnh có tên cmdCreateMDB, rồi gõ đoạn mã 1vào thủ tục xử lý tình huống OnClick của nút lệnh đó.Xong, bạn mở form, thử bấm nút lệnhcmdCreateMDB để kiểm tra kết quả.Đoạn 1Private Sub cmdCreateMDB_Click()Dim dbKeToan As Database Khai báo đối tượngDatabase mớiDim tdfChungTu As TableDef Khai báo đối tượngTable mớiDim sAppPath As StringsAppPath = Me.Application.CurrentProject.PathSet wrkDefault = DBEngine.Workspaces(0)If Not (Dir(sAppPath & \KeToan.mdb) ) ThenSet dbKeToan =wrkDefault.CreateDatabase(sAppPath &\KeToan.mdb, dbLangGeneral)ElseSet dbKeToan = OpenDatabase(sAppPath &\KeToan.mdb)End If Tạo đối tượng TableDef mớiSet tdfChungTu =dbKeToan.CreateTableDef(tbChungTu) Thêm các fieldtdfChungTu.Fields.AppendtdfChungTu.CreateField(Ngay_ChungTu, dbDate)tdfChungTu.Fields.AppendtdfChungTu.CreateField(So_ChungTu, dbLong)tdfChungTu.Fields.AppendtdfChungTu.CreateField(Dien_Giai, dbText, 30)tdfChungTu.Fields.AppendtdfChungTu.CreateField(Ho_Ten, dbText, 25)tdfChungTu.Fields.AppendtdfChungTu.CreateField(So_Tien, dbCurrency)tdfChungTu.Fields.AppendtdfChungTu.CreateField(Ghi_Chu, dbMemo) Các thuộc tính bổ sungtdfChungTu.Fields!So_ChungTu.Attributes =dbAutoIncrField Thêm table mới vào databasedbKeToan.TableDefs.Append tdfChungTu Đóng databasedbKeToan.CloseEnd Sub Theo e-CHIP