Đánh giá chủ đề:
  • 8 Votes - 1.63 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tùy chọn liên kết lại các table từ file data có password
#31
Với code của bạn tôi vẫn chưa xoá được. nó báo lỗi ở dòng: DoCmd.DeleteObject acTable, r!ForeignName
Tôi gửi link file nhờ tiền bối coi dùm nhé:
http://www.mediafire.com/download/kdrvh4...uments.rar
Thanks!
Chữ ký của thiennamlong Xin chào, mình là thiennamlong, Tham gia http://thuthuataccess.com/forum từ ngày 22-06 -14.
Reply
Những người đã cảm ơn
#32
(11-05-15, 09:50 PM)thiennamlong Đã viết: Với code của bạn tôi vẫn chưa xoá được. nó báo lỗi ở dòng: DoCmd.DeleteObject acTable, r!ForeignName
Tôi gửi link file nhờ tiền bối coi dùm nhé:
http://www.mediafire.com/download/kdrvh4...uments.rar
Thanks!

Code chẳng lỗi gì cả. Bạn để file Data bạn không có dấu tiếng việt dùm.
file: số liệu cơ tính_2015: Viết không có đấu rồi hãy link table


Thân mến!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#33
(11-05-15, 11:32 PM)maidinhdan Đã viết:
Code chẳng lỗi gì cả. Bạn để file Data bạn không có dấu tiếng việt dùm.
file: số liệu cơ tính_2015: Viết không có đấu rồi hãy link table


Thân mến!
Bạn ơi nó không liên quan đến file có dấu đâu, bằng chứng là file tôi dang dùng vẫn chạy tốt mà. Cái file lỗi đó tôi muốn xoá các links tables đi tôi dùng code của bạn tạo nút ở mainform chạy nhưng không được.
Tôi gửi bạn file login mà nó vẫn link tốt với file dữ liệu để bạn xem giúp nhé:
http://www.mediafire.com/download/xzduby.../LOGIN.rar
Chữ ký của thiennamlong Xin chào, mình là thiennamlong, Tham gia http://thuthuataccess.com/forum từ ngày 22-06 -14.
Reply
Những người đã cảm ơn
#34
(12-05-15, 12:43 AM)thiennamlong Đã viết:
(11-05-15, 11:32 PM)maidinhdan Đã viết:
Code chẳng lỗi gì cả. Bạn để file Data bạn không có dấu tiếng việt dùm.
file: số liệu cơ tính_2015: Viết không có đấu rồi hãy link table


Thân mến!
Bạn ơi nó không liên quan đến file có dấu đâu, bằng chứng là file tôi dang dùng vẫn chạy tốt mà. Cái file lỗi đó tôi muốn xoá các links tables đi tôi dùng code của bạn tạo nút ở mainform chạy nhưng không được.
Tôi gửi bạn file login mà nó vẫn link tốt với file dữ liệu để bạn xem giúp nhé:
http://www.mediafire.com/download/xzduby.../LOGIN.rar

Ok, mình biết link table của bạn tốt, nhưng tôi tin chắc rằng bạn đã không sửa file back end của bạn thành không dấu nên bạn post thêm bài này.

Code trên tôi đã test trên hệ điều hành Xp, Win 8. Code chạy rất tốt nếu file Backend không có dấu tiếng việt.

Vì thế, Mình xin phép ngừng hỗ trợ bạn từ giây phút này, vì bạn không tôn trọng những gì mình đã hướng dẫn.

Thân ái chào bạn.
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#35
Cảm ơn bạn đã rất nhiệt tình hỗ trợ tôi cũng như những thành viên khác.
Xin lỗi đã làm phiền lòng bạn.
Đúng là file của bạn không có lỗi, tôi đã không test kỹ. Lỗi là tại tôi, tôi cần xóa những links rác tạo ra trong file nhưng đã không diễn đạt đúng ý mình.
Code bạn hỗ trợ dù sao cũng hữu ích cho tôi. Mặc dù nó xóa các links liên kết nhưng không xóa được các links liên kết đã bị đổi tên (links rác). Những tables có liên hệ relationships cũng không xóa được.
Chúc bạn sữc khỏe, mong được sự hỗ trợ tiếp của bạn. Cảm ơn bạn lần nữa.
Chữ ký của thiennamlong Xin chào, mình là thiennamlong, Tham gia http://thuthuataccess.com/forum từ ngày 22-06 -14.
Reply
Những người đã cảm ơn
#36
Cám ơn anh chị đã chia sẻ code hay, nhưng em làm hoài mà không được.
em có down code hướng dẫn sau đó import form và modul vào access 2010 nhưng nó báo lỗi và không chạy được. mặc dù trên access 2003 thì chạy thấy bình thường.
Anh giúp em với nhé.
Chữ ký của Nguycongtu Xin chào, mình là Nguycongtu, Tham gia http://thuthuataccess.com/forum từ ngày 15-06 -15.
Reply
Những người đã cảm ơn
#37
(16-06-15, 09:50 PM)Nguycongtu Đã viết: Cám ơn anh chị đã chia sẻ code hay, nhưng em làm hoài mà không được.
em có down code hướng dẫn sau đó import form và modul vào access 2010 nhưng nó báo lỗi và không chạy được. mặc dù trên access 2003 thì chạy thấy bình thường.
Anh giúp em với nhé.

Gửi file lên đây để mọi người xem nó báo lỗi như thế nào!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#38
nguiờchào mọi người mình có file access không mở được pass, mọi người chỉ hộ mình cách mở đc không
Chữ ký của minhhoacatv minhhoacatv,gia nhập Thủ Thuật Access từ 21-01 -16.
Reply
Những người đã cảm ơn
#39
(11-09-10, 05:34 PM)Noname Đã viết:
http://i39.photobucket.com/albums/e193/d...iceLib.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;">http://i39.photobucket.com/albums/e193/d...iceLib.jpg" />
Tips này hướng dẫn chúng ta cập nhật lại link cho table khi chuyển file data có password sang một vị trí khác, hoặc chúng ta có nhiều file data giống nhau password và cấu trúc, chỉ khác nhau nội dung.
Chúng ta không cần phải khai báo lại password mà chỉ nhập password ở lần  link lần đầu tiên (khi thiết kế)
(relink table from Database Access with password)
Writen by: Noname
Writen Site: http://thuthuataccess.com/forum
Please do not removed my info if using or share this code


Để sử dụng được code này, bạn vui lòng khai báo thư viện Office.

- Đầu tiên, bạn tạo 1 form mới, trên form,
+vẽ 1 textbox đặt tên là txtPath. dùng để nhập đường dẫn file data.
+ vẽ 1 nút nhấn, với caption là ... dùng để chọn file data, và ghi kết quả.
Vẽ 1 nút nhấn với caption là refresh link để thực thi hành động cập nhật lại đường dẫn table
[Hình: chonfiledata.png]

Trong ví dụ đính kèm dưới đây, bạn có 2 file đính kèm là data3 và data4 với password đều là 123456.
Đầu tiên, bạn link table theo cách link thông thường, nó sẽ hỏi password của bạn, bạn nhập password bình thường, chọn các table để liên kết. Và kể từ đây bạn không cần phải nhập password thêm lần nào nữa.

Bạn tạo 1 module mới và copy các đoạn code sau vào:

Đoạn code này cho phép ta gọi hàm getfile để tìm tới file data
Mã:
Function getFile(Tit As String, formatName As String, formatType As String)
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
With dlgOpen
   .Title = Tit
   .Filters.Clear
   .Filters.Add formatName, formatType
   .AllowMultiSelect = False
   result = .Show
   If (result <> 0) Then
getFile = Trim(dlgOpen.SelectedItems.Item(1))
End If
End With
End Function

Đoạn code này lấy về password lưu trong hệ thống:
Mã:
' lâìy vêÌ password cuÒa lâÌn connect trýõìc
Function getconnect(T As String) As String
Dim con As String
con = DLookup("[Connect]", "MSysObjects", "[name]='" & T & "'")
getconnect = con
End Function
Đoạn code này link table với đường dẫn và password có sẵn
Mã:
'Liên kêìt table
Sub LinkTable(T As String, path As String, connectString As String)
Dim tblLink As TableDef
Dim DBlink As Database
Set DBlink = OpenDatabase(path, False, False, connectString)
On Error GoTo Err
DoCmd.DeleteObject acTable, T
Err:
DoCmd.TransferDatabase acLink, "Microsoft Access", path, acTable, T, T
'DBlink.Close
Set DBlink = Nothing
End Sub

Đoạn code này kiểm tra các table nào là liên kết, nếu nó là liên kết thì sẽ tiến hành liên kết theo đường dẫn mới
Mã:
Sub refreshLinkTable(path As String)
'Writen by:Noname
'Writen site: http://thuthuataccess.com/
'Please do not remove my info if using or share this modules
Dim r As Recordset
Dim s As String
s = "SELECT ForeignName FROM MSysObjects WHERE ForeignName Is Not Null"
Set r = CurrentDb().OpenRecordset(s)
If r.RecordCount > 0 Then
r.MoveLast
For i = 0 To r.RecordCount - 1
   LinkTable r(0), path, getconnect(r(0))
   r.MovePrevious
Next i
End If
r.Close
Set r = Nothing
End Sub

Giờ trong hành động nhấn chuột của nút Open, ta nhập code sau vào:
Mã:
Private Sub cmdOpen_Click()
txtPath.Value = getFile("Select Data File", "data file", "*.mdb")
End Sub

Hành động nút refresh link ta nhập code sau vào:

Mã:
Private Sub cmdreLink_Click()
refreshLinkTable Me.txtPath
MsgBox "link table thanh cong"
End Sub

Xong rồi đấy!
Chúc thành công.
Cho xin lại link đi ad ơi, cảm ơn!
Chữ ký của mrtoanbin mrtoanbin,gia nhập Thủ Thuật Access từ 09-09 -16.
Reply
Những người đã cảm ơn
#40
(12-11-17, 08:53 AM)mrtoanbin Đã viết: Cho xin lại link đi ad ơi, cảm ơn!

Link tại bài 1, đọc cho kỷ vào.
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
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
  [Thủ Thuật] Demo_Compact & Repaire nhiều file Back End maidinhdan 18 4,683 07-07-17, 07:35 PM
Bài mới nhất: ongke0711
  [Thủ Thuật] Table variables - Lưu các biến hệ thống vào bảng ongke0711 0 503 01-07-17, 04:35 AM
Bài mới nhất: ongke0711
  [Help] Hỏi về cách lưu dư liệu từ bảng vba vào file excell theo mong muốn HoangManh 5 811 19-05-17, 04:27 PM
Bài mới nhất: ongke0711
  nén file Access bằng VBA Noname 17 8,844 30-03-17, 05:51 PM
Bài mới nhất: maidinhdan
  Lỗi khi Chuyển từ File mdb thành mde Noname 10 7,846 06-02-17, 10:07 AM
Bài mới nhất: NGUYENTHANHPHUONG

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line