• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Tùy chọn liên kết đến file Data

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • Tùy chọn liên kết đến file Data
• Tùy chọn liên kết đến file Data

• RE: Tùy chọn liên kết đến file Data

  Noname > 30-08-10, 04:46 PM

  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à!

• RE: Tùy chọn liên kết đến file Data

  DoquangLam > 30-08-10, 09:13 PM

  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.

• RE: Tùy chọn liên kết đến file Data

  DoquangLam > 31-08-10, 10:55 PM

  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

• RE: Tùy chọn liên kết đến file Data

  DoquangLam > 05-09-10, 09:34 PM

  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.

• RE: Tùy chọn liên kết đến file Data

  DoquangLam > 08-09-10, 02:50 PM

  
  
  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é.
  

• RE: Tùy chọn liên kết đến file Data

  Noname > 08-09-10, 04:09 PM

  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

• RE: Tùy chọn liên kết đến file Data

  DoquangLam > 08-09-10, 11:06 PM

  Vẫn không được rồi Noname ơi...

• RE: Tùy chọn liên kết đến file Data

  Noname > 11-09-10, 05:42 PM

  Bạn tham khảo thủ thuật mình mới viết nhé.
  http://thuthuataccess.co.cc/forum/thread-199.html

• RE: Tùy chọn liên kết đến file Data

  connguoi123 > 10-03-14, 11:10 AM

  (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).
  
  
  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 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 


  
  
  
  
  Code 2: Dùng Relink table lại
  

  Mã PHP:

  Sub LinkTable(T As String, path 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", path, acTable, T, T
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 


  
  
  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

• RE: Tùy chọn liên kết đến file Data

  ndthanh29 > 08-08-15, 10:03 PM

  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
• Bài trước Bài tiếp