Đá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
  [Help] Xin code kiểm tra hai mật khẩu nhập có giống nhau kiepgiangho79 9 215 30-09-17, 02:17 PM
Bài mới nhất: kiepgiangho79
  Code VBA không chạy trong access 2016 tranthanhan1962 2 122 26-09-17, 09:38 PM
Bài mới nhất: tranthanhan1962
  Hiện thông báo khi tìm file hình babyrock2009 2 134 04-09-17, 11:06 AM
Bài mới nhất: lmthu
  Thiết lập mở file pdf từ form feeling 1 138 10-08-17, 04:57 AM
Bài mới nhất: cpucloi
  [Help] Code update dữ liệu từ subform vào table history(có ghi nhận ngày update) subasatran 5 369 10-07-17, 02:07 PM
Bài mới nhất: tranthanhan1962

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ơ