• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Code tạo file mdb mới

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Code tạo file mdb mới
• Code tạo file mdb mới

• RE: Code tạo file mdb mới

  Noname > 30-12-10, 10:59 PM

  Ở trên bạn phát biểu:
  

  Mã:

  Call FileCopy("D:\KETOAN\DATA\" & File1 & ".mdb", "D:\KETOAN\DATA\" & File2 & ".mdb")

  
  
  Ở dưới bạn nhập
  Me.txtPath là : D:\KeToan\Data\DN.mdb
  và Me.TenMoi là : D:\KeToan\Data\DN1.mdb
  
  Như vậy dòng lệnh sẽ trở thành
  

  Mã:

  Call FileCopy("D:\KETOAN\DATA\" & D:\KeToan\Data\DN.mdb & ".mdb", "D:\KETOAN\DATA\" & D:\KeToan\Data\DN1.mdb & ".mdb")

  
  
  Tức là tương đương với:
  

  Mã:

  Call FileCopy("D:\KETOAN\DATA\D:\KeToan\Data\DN.mdb.mdb", "D:\KETOAN\DATA\ D:\KeToan\Data\DN1.mdb.mdb")

  
  Như vậy không báo lỗi mới lạ!
  
  

• RE: Code tạo file mdb mới

  DoquangLam > 01-01-11, 10:18 PM

  Cám ơn các bạn, mình đã làm được rồi.
  
  [font=Arial]Private Sub Tao_Click()
  Dim FileCu As String, FileMoi As String
  FileCu = Me.txtPath 'Khi khëi ®éng forms cã s½n dßng D:\KeToan\Data\DN1.mdb
  FileMoi = Me.TenMoi 'M×nh nhËp vµo « nµy lµ DN2
  Call FileCopy(FileCu, "D:\KETOAN\DATA\" & FileMoi & ".mdb")
  End Sub[font=[/font]Tahoma][/font]
  
  Tiện đây cho mình hỏi thêm : Từ một forms của file a.mdb, thực hiện code để xoá số liệu trên một số Tables của file b.mdb được không, nếu được thì code như thế nào. Cám ơn các bạn !

• RE: Code tạo file mdb mới

  haquocquan > 02-01-11, 10:27 AM

  (01-01-11, 10:18 PM)DoquangLam Đã viết: Tiện đây cho mình hỏi thêm : Từ một forms của file a.mdb, thực hiện code để xoá số liệu trên một số Tables của file b.mdb được không, nếu được thì code như thế nào. Cám ơn các bạn !

  
  Bạn dùng code này nhé:
  
  

  Mã:

  Dim db as database
Set db = opendatabase(FullPath)
db.execute "delete * from tableName"
Set db = nothing

  FullPath: "D:\KETOAN\DATA\b.mdb" (ví dụ như vậy)

• RE: Code tạo file mdb mới

  DoquangLam > 02-01-11, 11:19 PM

  Dim db as database
  Set db = opendatabase(FullPath)
  db.execute "delete * from tableName"
  Set db = nothing
  
  
  Mình đã thay đổi :
  Fullpath = D:\KeToan\Data\b.mdb
  tablename = T_Nghiepvu
  
  Nó báo lỗi ngay dòng : db.execute "delete * from tableName"
  
  Mong bạn hướng dẫn tiếp. Cám ơn

• RE: Code tạo file mdb mới

  haquocquan > 03-01-11, 02:46 AM

  Với CSDL và Table của bạn. Câu lệnh chuẩn nhé:
  

  Mã:

  Dim db as database
Set db = OpenDatabase("D:\KETOAN\Data\b.mdb")
db.Execute "delete * from T_Nghiepvu"

  Với điều kiện b.mdb của bạn không có pass.
  Còn nếu có pass:
  
  Set db = OpenDatabase("D:\KETOAN\Data\b.mdb", False, False, "MS Access;PWD= pass;")
  

• RE: Code tạo file mdb mới

  autokiss > 04-04-12, 10:28 AM

  Hay nhỉ! Hỏi xong rồi mất tăm.

• RE: Code tạo file mdb mới

  Minh Tiên > 24-10-13, 09:55 AM

  (29-12-10, 01:37 PM)Cafe Via He Đã viết: Mình chưa hiểu ý của bạn lắm. Có phải bạn muốn tạo file mdb mới là tên bạn đặt (giả sử là B.mdb) nhưng dữ liệu thì được copy từ tên file mdb (giả sử A.mdb)mà bạn đã chọn "Chọn dữ liệu nguồn"? Xem như là copy file A.mdb và đổi tên thành B.mdb?
  
  Đây là đoạn code tạo file mdb mới (blank database)
  
  

  Mã:

  Dim acApp As Access.Application
    
    Set acApp = New Access.Application
    acApp.Application.NewCurrentDatabase (txtPath & txtName)

  
  txtPath là dữ liệu nguồn bạn chọn.
  txtName là tên file bạn đặt.
  
  Chắc phải để bạn trả lời rõ hơn mới có hướng giải quyết cụ thể

  
  Tạo 1 database Blank không có pass thì code như "CaFeViaHe" hướng dẫn.
  Còn để tạo 1 database blank có đặt Pass thì code tạo như thế nào ?
  Xin bạn cùng các ACE chỉ giúp với !
  Cảm ơn nhiều !

• RE: Code tạo file mdb mới

  Minh Tiên > 24-10-13, 10:51 AM

  Mình đã đọc bài của Bác "NoName" trên diễn dàn và "Help của Bác Mai" và đã tạo được rồi.
  Sub code:
  [/code]
  Dim wrk As Workspace
  Set wrk = DBEngine.Workspaces(0)
  Dim dbTemp As Database
  Set dbTemp = wrk.CreateDatabase(CurrentProject.Path & "\" & "Thunghiem.accdb", dbLangGeneral & ";pwd=123")
  [/code]
  Thanks ACE nhiều !

• RE: Code tạo file mdb mới

  ngochuong279 > 11-11-13, 03:07 PM

  Cho minh hoi chút mình làm nút lệnh lập bút toán báo lỗi này là sao ta.
  Microsoft office Access can't find the field 'I' rferred to in your expression
  giup đỡ mình cái
• Bài trước Bài tiếp