• 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

• Code tạo file mdb mới

  DoquangLam > 28-12-10, 11:00 PM

  Các bạn trên diễn đàn thân mến !
  Mình có 1 vấn đề này nhờ các bạn hướng dẫn mình nhé, cám ơn trước rất nhiều :
  
  Giả sử mình có một số file mdb trong thư mục D:\KeToan\Data
  Nay mình muốn thiết kế 1 forms "F-DangKy", trên đó có 2 Text box (Chọn dữ liệu nguồn và Nhập tên file dữ liệu mới) và 1 nút "Tạo file mdb mới".
  Mình nhờ các bạn hướng dẫn viết code trong nút lệnh Tạo file mdb mới để copy file mdb có tên trong thư mục D:\KeToan\Data đã được hiển thị trên Text box Chon dữ liệu nguồn ra một file mdb mới cùng thư mục trên với cái tên mà mình đã nhập vào text box Nhập tên file dữ liệu mới.
  
  Mình xin up file của mình lên để các bạn chỉnh sửa dùm nhé. Một lần nữa xin cám ơn nhiếu.
  

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

  Noname > 28-12-10, 11:05 PM

  Bạn theo dõi bài này nè:
  http://thuthuataccess.com/forum/Thread-t...a-do%CC%81

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

  haquocquan > 28-12-10, 11:43 PM

  (28-12-10, 11:05 PM)Noname Đã viết: Bạn theo dõi bài này nè:
  http://thuthuataccess.co.com/forum/Threa...a-do%CC%81

  
  Ý của DOQUANGLAM khác à No.
  Theo mình, ý của DOQUANGLAM là thế này cơ:
  
  

  Mã:

  Dim File1 as string, File2 as string
File1 = me.textbox1
File2 = me.textbox2
Call FileCopy(Application.CurrentProject.Path & File1 & ".mdb", Application.CurrentProject.Path & File2 & ".mdb")

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

  DoquangLam > 29-12-10, 12:20 PM

  (28-12-10, 11:43 PM)haquocquan Đã viết:

  (28-12-10, 11:05 PM)Noname Đã viết: Bạn theo dõi bài này nè:
  http://thuthuataccess.com/forum/Thread-t...a-do%CC%81

  
  Ý của DOQUANGLAM khác à No.
  Theo mình, ý của DOQUANGLAM là thế này cơ:
  
  

  Mã:

  Dim File1 as string, File2 as string
File1 = me.textbox1
File2 = me.textbox2
Call FileCopy(Application.CurrentProject.Path & File1 & ".mdb", Application.CurrentProject.Path & File2 & ".mdb")

  
  
  
  Thay vì vào thư mục đó copy bình thường, nhưng ở đây mình muốn thực hiện từ forms cho nó pro ý mà, các bạn xem file đính kèm của mình và hướng dẫn cụ thể được không. Cám ơn các bạn rất nhiều.

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

  Cafe Via He > 29-12-10, 01:37 PM

  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ể

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

  haquocquan > 29-12-10, 02:59 PM

  (29-12-10, 12:20 PM)DoquangLam Đã viết: Thay vì vào thư mục đó copy bình thường, nhưng ở đây mình muốn thực hiện từ forms cho nó pro ý mà, các bạn xem file đính kèm của mình và hướng dẫn cụ thể được không. Cám ơn các bạn rất nhiều.

  
  Chính lệnh trên tôi viết cho bạn đó:
  Cụ thể nhé:
  F-DangKy: có 2 textbox: textbox1 (là tên của file cũ), textbox2(là tên của file mới)
  Có 1 nút lệnh cmdthayten
  Xử lý sự kiện OnClick của cmdthayten
  
  

  Mã:

  Private Sub cmdthayten_Click()
Dim File1 as string, File2 as string
File1 = me.textbox1
File2 = me.textbox2
Call FileCopy("D:\KETOAN\DATA\" & File1 & ".mdb", "D:\KETOAN\DATA\" & File2 & ".mdb")
End Sub

  
  Phần thư mục: "D:\KETOAN\DATA\", bạn tùy biến cho phù hợp
  Thế là OK.
  

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

  DoquangLam > 29-12-10, 10:01 PM

  Cám ơn bạn, mình sẽ thực hiện, kết quả sẽ hồi âm đến diễn đàn.

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

  DoquangLam > 29-12-10, 11:10 PM

  Bạn ơi, thực hiện nó báo lỗi ngay dòng màu đỏ :
  
  Private Sub Tao_Click()
  Dim File1 As String, File2 As String
  File1 = Me.txtPath
  File2 = Me.TenMoi
  Call FileCopy("D:\KETOAN\DATA\" & File1 & ".mdb", "D:\KETOAN\DATA\" & File2 & ".mdb")
  End Sub
  

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

  Noname > 29-12-10, 11:34 PM

  Thế bạn nhập gì vào: Me.txtPath và Me.TenMoi thế?

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

  DoquangLam > 30-12-10, 09:44 PM

  Mình nhập vào Me.txtPath là : D:\KeToan\Data\DN.mdb
  và Me.TenMoi là : D:\KeToan\Data\DN1.mdb
  
  Bạn xem dùm mình nhé. Cám ơn
• Bài trước Bài tiếp