Đánh giá chủ đề:
  • 5 Votes - 3 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Code tạo file mdb mới
#1
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.


File đính kèm
.zip   db1.zip (Kích cỡ: 48.69 KB / Tải về: 38)
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
Bạn theo dõi bài này nè:
http://thuthuataccess.com/forum/Thread-t...a-do%CC%81
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 , Cafe Via He
#3
(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")
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , Cafe Via He
#4
(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.
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#5
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ể
Chữ ký của Cafe Via He Ở nhờ nhà mẹ mình big green
ღღღღღTài sản của Cafe Via He (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , Noname
#6
(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.
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , Cafe Via He
#7
Cám ơn bạn, mình sẽ thực hiện, kết quả sẽ hồi âm đến diễn đàn.
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#8
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


File đính kèm
.zip   db1.zip (Kích cỡ: 46.93 KB / Tải về: 31)
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#9
Thế bạn nhập gì vào: Me.txtPath và Me.TenMoi thế?
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#10
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
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
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 file văn bản word vào access danhxetnghiem 10 438 11-10-16, 03:42 PM
Bài mới nhất: danhxetnghiem
  [Help] Hiện các nội dung các file văn bản và hình ảnh trên Form thdanh 2 142 22-07-16, 10:26 PM
Bài mới nhất: ongke0711
  [Lỗi] Lỗi code event! toancvp 18 1,034 07-07-16, 01:36 AM
Bài mới nhất: maidinhdan
  Mở file Excel từ access DoquangLam 5 2,333 08-06-16, 11:28 PM
Bài mới nhất: maidinhdan
  [Hỏi] Gõ dấu tiếng Việt trong code cannguyen 2 134 25-05-16, 02:41 PM
Bài mới nhất: cpucloi

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ơ