Đánh giá chủ đề:
  • 4 Votes - 4 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tạo file Access mới và xuất dữ liệu ra đó
#1
Đoạn code sau cho phép bạn tạo 1 file MDB mới trong cùng 1 thư mục với chương trình



Mã:
Sub CreateDatabaseX(DBname as String)

       Dim wrkDefault As Workspace
       Dim Bomtemp As Database
       'Dim prpLoop As Property

       ' Get default Workspace.
       Set wrkDefault = DBEngine.Workspaces(0)

       ' Make sure there isn't already a file with the name of
       ' the new database.
       If Dir(CurrentProject.Path & "\" & "DBName") <> "" Then Kill CurrentProject.Path & "\"& DBName  

    ' Create a new encrypted database with the specified
       ' collating order.
       Set Bomtemp = wrkDefault.CreateDatabase(CurrentProject.Path & "\" & "DBname", dbLangGeneral, dbEncrypt)

       Bomtemp.Close

    End Sub
Đoạn Code sau cho phép bạn Export 1 table ra 1 file MDB khác cùng mục với chương trình

Mã:
Sub ExportTable(T As String, DBname)
    On Error GoTo err
    DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentProject.Path & "\" & "DBname", acTable, T, T
    Exit Sub
    err:
    If err.Number = 3024 Then

    CreateDatabaseX DBname
    ExportTable T
    End If
    End Sub


Ứng dụng: bạn có thể có nhu cầu mỗi tháng tạo 1 file chứa dữ liệu riêng 1 cách tự động!...
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , autokiss , hoanglonglangtu , thuc1605
#2
Noname cho mình hỏi đoạn code trên viết ở Module hay ở đâu vậy bạn? Mình cũng có phần mềm họ xuất dữ liệu ra file khác và file đấy tự động được đặt Password (123 chẳng hạn) luôn. Nhưng vì phần mềm đó nhiều thứ quá nên không tìm ra được họ viết ở đâu cả.
Chữ ký của autokiss Xin chào, mình là autokiss, Tham gia http://thuthuataccess.com/forum từ ngày 19-01 -12.
Reply
Những người đã cảm ơn
#3
Cuối cùng mình cũng tìm ra, chỉ là trước đây thiếu bài mẫu thôi. Thanks
Chữ ký của autokiss Xin chào, mình là autokiss, Tham gia http://thuthuataccess.com/forum từ ngày 19-01 -12.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Chèn âm thanh vào file Access tt1212 8 1,845 21-05-18, 04:10 PM
Bài mới nhất: le thai hoa
  Demo Import/Export Excel + Hàm Liệt tên ALL Access maidinhdan 64 6,492 14-05-18, 05:44 PM
Bài mới nhất: maidinhdan
  [Video]Tạo Thư mục chia sẽ file qua LAN và Internet maidinhdan 8 392 20-03-18, 11:37 PM
Bài mới nhất: maidinhdan
  [Hỏi] Nhiều phần mềm Access dùng chung CSDL ?? vkaccess 9 572 19-03-18, 09:40 PM
Bài mới nhất: vkaccess
  Export Table từ access sang 1 file word có sẵn! cong_agribankPT 53 24,523 07-12-17, 09:04 PM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line