Đánh giá chủ đề:
  • 5 Votes - 2.6 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tùy chọn liên kết đến file Data
#11
Vấn đề thứ nhất bạn xem và thảo luận ở đây:
http://thuthuataccess.co.cc/forum/showth...hp?tid=156

Vấn đề thứ 2 bạn xem ở đây:
http://thuthuataccess.blogspot.com/2009/...mmand.html
Hoặc thảo luận tại đây:
http://thuthuataccess.co.cc/forum/thread...st-91.html
Mình nghĩ bạn cố sẽ làm được thôi mà!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#12
Noname ơi, cố gắng tải file KTACC48 về nghiên cứu và giải quyết dùm mình đi. Kiến thức access mình còn mỏng lắm. Rất mong được sự quan tâm của bạn. Mình cám ơn bạn 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
#13
Có ai quan tâm giúp đỡ mình với. Mình đang rất cần. Cám ơn
Có ai quan tâm giúp đỡ mình với. Mình đang rất cần. 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
#14
Noname ơi, làm ơn giúp mình đi. Mình rất đang cần. Cám ơn bạn nhiều lắm.
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


Noname ơi, làm ơn xem lại dùm code có sai chỗ nào không nhé, mình liên kết đến file mdb có mật khẩu được nhưng khi thoát ra kiểm tra lại file được liên kết (Data01.mdb) lại mất mật khẩu luôn (Tức là nó không tự lấy lại mật khẩu cũ)


Private Sub cmdChon_Click()
'KÕt nèi d÷ liÖu d¹ng exclusive
Dim TempDb As Database
Dim P As String 'Password
P = "admin"
On Error Resume Next
Set TempDb = OpenDatabase(CurrentProject.path & "\" & "Data01.MDB", True, False, "MS Access;PWD=" & P)
'Xo¸ mËt khÈu ®i
TempDb.NewPassword P, ""
TempDb.Close

'TiÕn hµnh liªn kÕt d÷ liÖu
LinkTable "T-Bieu thue", txtPath
LinkTable "tblBCDKT", txtPath

'Cµi l¹i mËt khÈu cò
Set TempDb = OpenDatabase(CurrentProject.path & " \" & "Data01.MDB", True, False)
TempDb.NewPassword "", P
TempDb.Close
Set TempDb = Nothing
End Sub

Cám ơn bạn nhiều nhé.
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
#16
Bạn cho đạon code sau vào module nào đó và gọi khung event unload form

Mã:
Sub Relock()
Dim TempDb As Database
Dim P As String 'Password
P = "admin"
On Error Resume Next
Set TempDb = OpenDatabase(CurrentProject.path & "\" & "Data01.MDB")
'gán lại mật khẩu
TempDb.NewPassword "",P
TempDb.Close
End Sub
Trong event unload của form, bạn gọi:
Mã:
Private Sub Form_Unload(Cancel As Integer)
Relock()
End Sub
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#17
Vẫn không được rồi Noname ơi...
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
#18
Bạn tham khảo thủ thuật mình mới viết nhé.
http://thuthuataccess.co.cc/forum/thread-199.html
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#19
(29-08-10, 12:08 AM)Noname Đã viết: Để làm được như bạn, đầu tiên bạn phải làm được những việc sau:
1/ Liệt kê tên những table nào cần liên kết.
2/Lấy về đường dẫn file Data cũa bạn
3/ Gọi 1 đoạn code cho phép bạn xóa table đang link, và link lại tới file mới!

Bước 1: bạn tự viết ra giấy nhé
Bước 2:
Để chọn được file, bạn phải khai báo bộ thư viện của Office bằng cách vào cửa sổ VBA, Menu Tool--> references, chọn Microsoft Office 11.0 library. (chọn 10.0 với AccessXP).
[Hình: OfficeLib.JPG]

Tạo tạo 1 module và copy 2 đoạn code sau vào:

Code 1 dùng gọi hộp chọn file:
Mã PHP:
Function getFile(Tit As StringformatName As StringformatType As String)
Dim dlgOpen As FileDialog
Set dlgOpen 
Application.FileDialog(msoFileDialogOpen)
With dlgOpen
    
.Title Tit
    
.Filters.Clear
    
.Filters.Add formatNameformatType
    
.AllowMultiSelect False
    result 
= .Show
    
If (result <> 0Then
getFile 
Trim(dlgOpen.SelectedItems.Item(1))
End If
End With

End 
Function 




Code 2: Dùng Relink table lại
Mã PHP:
Sub LinkTable(As Stringpath As String)
' kiêÒm tra table, nêìu coì rôÌi thiÌ xoìa ði
On Error GoTo Err

DoCmd.DeleteObject acTable, T
Err:
'
link lai tablelink moi
DoCmd
.TransferDatabase acLink"Microsoft Access"pathacTableTT
End Sub 

Xong phần chuẩn bị code, giờ bạn tạo 1 Form, trên form vẽ 1 textbox tên là txtPath, 1 nút nhấn tên là cmdOpen, 1 nút nhấn tên là cmdreLink

Sự kiệnc click của cmdOpen nhập như sau:
Mã PHP:
Private Sub cmdOpen_Click()
txtPath.Value getFile("Select Data File""data file""*.mdb")
End Sub 

Sự kiện click của cmdOpen, nhập vào như sau:
Mã PHP:
Private Sub cmdreLink_Click()
LinkTable "tblKhachhang"txtPath
LinkTable 
"tblTiendien"txtPath
LinkTable 
"tblTienNuoc"txtPath
 
'Sửa tên các table tương ứng thành của bạn
msgbox " Đã nhập thành công dữ liệu  file " & txtpath
End Sub 
[Hình: chonfiledata.png]

Demo Download:

Bác ơi em làm như các bác hướng dẫn, khi mở file bên acc2003 thì ok, nhưng đưa qua máy chạy acc2007 thì báo lỗi ở phần "Set dlgOpen = Application.FileDialog(msoFileDialogOpen) " .Em không hiểu liệu có thiếu thư viện nào không? Bác giúp em tìm nguyên nhân với. Tks
Chữ ký của connguoi123 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
#20
mình cũng bị lỗi khi xài trên Access 2010 và 2013, 2007 và 2003 thì ok, mình nghĩ là không get được file data.mdb
Chữ ký của ndthanh29 Xin chào, mình là ndthanh29, Tham gia http://thuthuataccess.com/forum từ ngày 08-10 -12.
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
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 9 231 Hôm qua, 06:11 PM
Bài mới nhất: maidinhdan
  [Hỏi] Xuất giá trị từ các Text Box ra file TXT k3nzyyb 10 540 29-06-16, 03:47 PM
Bài mới nhất: quyvt1993
  [Thủ Thuật] Liên kết dữ liệu giữa subform và mainform tvn_hut 10 800 21-05-16, 11:08 PM
Bài mới nhất: tvn_hut
  [Hỏi] Edit, Delete Record đang chọn iatod 0 187 20-02-16, 03:38 PM
Bài mới nhất: iatod
Sad [Help] Không chọn được DAO 3.6 Object conmeocon 3 755 03-07-15, 02:31 PM
Bài mới nhất: paulsteigel

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ơ