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

Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cafe Via He , haquocquan
#12
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 !
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
#13
(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)
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
#14
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
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
#15
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;")
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
#16
Hay nhỉ! Hỏi xong rồi mất tăm.
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
#17
(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 !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#18
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 !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#19
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
Chữ ký của ngochuong279 Xin chào, mình là ngochuong279, Tham gia http://thuthuataccess.com/forum từ ngày 11-11 -13.
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 455 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 144 22-07-16, 10:26 PM
Bài mới nhất: ongke0711
  [Lỗi] Lỗi code event! toancvp 18 1,040 07-07-16, 01:36 AM
Bài mới nhất: maidinhdan
  Mở file Excel từ access DoquangLam 5 2,338 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ơ