Đá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
  Demo Import/Export Excel + Hàm Liệt tên ALL Access maidinhdan 59 4,984 11-02-18, 03:17 PM
Bài mới nhất: maidinhdan
  [Hỏi] Nhiều phần mềm Access dùng chung CSDL ?? vkaccess 4 205 09-02-18, 10:10 AM
Bài mới nhất: hoanbhxhls
  Export Table từ access sang 1 file word có sẵn! cong_agribankPT 53 22,587 07-12-17, 09:04 PM
Bài mới nhất: maidinhdan
  Hỏi có cách nào chuyển Access Windowse sang Mac OS trungminh 6 450 17-10-17, 11:39 PM
Bài mới nhất: ongke0711
  [Help] Protect nhiều file Words theo đường dẫn động jeck09nt 31 4,209 24-09-17, 02:42 PM
Bài mới nhất: jeck09nt

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ơ