tailieunhanh - 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ả. | 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 Set wrkDefault 0 If Not Dir sAppPath Then Set dbKeToan wrkDefault. CreateDatabase sAppPath dbLangGeneral Else Set dbKeToan OpenDatabase sAppPath End If Tạo đối tượng TableDef mới Set tdfChungTu tbChungTu Thêm các field Ngay_ChungTu dbDate So_ChungTu dbLong Dien_Giai dbText 30 Ho_Ten dbText 25 So_T ien dbCurrency Ghi_Chu dbMemo Các thuộc tính bổ sung dbAutoIncrField Thêm table mới vào database tdfChungTu Đóng database End Sub Theo .

TỪ KHÓA LIÊN QUAN