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

Chia sẻ: Nguyễn Phương Linh Phương | Ngày: | Loại File: PDF | Số trang:3

Thêm vào BST

Báo xấu

116
lượt xem 17
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

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ả.

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Tự động tạo CSDL Access bằng VBA

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ả. Đoạn 1 Private Sub cmdCreateMDB_Click() Dim dbKeToan As Database' Khai báo đối tượng Database mới Dim tdfChungTu As TableDef' Khai báo đối tượng Table mới 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 ' Tạo đối tượng TableDef mới Set tdfChungTu = dbKeToan.CreateTableDef("tbChungTu") ' Thêm các field 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) ' Các thuộc tính bổ sung tdfChungTu.Fields!So_ChungTu.Attributes = dbAutoIncrField ' Thêm table mới vào database dbKeToan.TableDefs.Append tdfChungTu ' Đóng database dbKeToan.Close End Sub Theo e-CHIP