• 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

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

  DoquangLam > 28-08-10, 11:30 PM

  Mình có một vấn đề như thế này nhé :
  Hiện tại mình đã viết xong một chương trình kế toán phục vụ cho công việc của mình. Có một điều mình muốn áp dụng cho nhiều doanh nghiệp, mỗi doanh nghiệp một file .mdb thấy không hay lắm. Bây giờ mình muốn : trong thư mục D:\KeToan có file ChuongTrinh.mdb (Là chương trình chính), mỗi một doanh nghiệp dữ liệu chứa riêng một file mdb khác ví dụ như Data01, Data02, Data03... (Chỉ có Table thôi). Mình muốn các bạn giúp mình thiết kế một form (trước khi giao diện của chương trình hiện lên) form này hiện lên danh sách các Data có trong thư mục cùng với ChuongTrinh.mdb để cho mình chọn Data… khi đó chương trình sẽ tự liên kết đến Data mà mình đã chọn. Mình trình bày như vậy các bạn có hiểu không ? Mình rất cần sự giúp đỡ. Cám ơn các bạn nhiều, mong được hồi âm !
  Tên : Đỗ Quang Lãm
  Email : dqlambli@yahoo.com.vn
  

• RE: Nho ho tro

  Noname > 29-08-10, 12:08 AM

  Để 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:

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

  DoquangLam > 29-08-10, 05:08 PM

  Noname ơi, Trong Table mình có hàng trăm table cũng phải liệt kê để liên kết hả. Có cách nào cho tự động copy Table từ chương trình gốc ra không.

  ---

  Noname ơn, trong Table mình có hàng trăm table thì cũng phải liệt kê hết hả, có cách nào cho tự copy từ mdb gốc ra thành data mới không (Chỉ copy table thôi. Rất cám ơn.

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

  Noname > 29-08-10, 05:20 PM

  hàng trăm thì có hề gì, Copy dòng lệnh rồi paster thôi mà!
  Thực ra cho scan toàn bộ các table trong hệ thống cũng được cũng được, nhưng nhiều khi nó nhầm với các table tạm của bạn, đồng thời nhầm các table của hệ thống nên file của bạn sẽ lỗi, sau này bạn sẽ không phát triển được chương trình.

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

  DoquangLam > 29-08-10, 05:29 PM

  Cám ơn noname nhiều để mình thực hành nhé. Có gì vướng mắc mong bạn giúp đỡ nhé

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

  Noname > 29-08-10, 05:31 PM

  Hoan nghênh bạn ghé thăm diễn đàn!

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

  haquocquan > 30-08-10, 03:44 AM

  (29-08-10, 05:08 PM)DoquangLam Đã viết: Noname ơi, Trong Table mình có hàng trăm table cũng phải liệt kê để liên kết hả. Có cách nào cho tự động copy Table từ chương trình gốc ra không.

  ---

  Chọn File thì bạn làm như Noname. Còn tự động liên kết các table thì bạn có thể làm như thế này xem sao:
  1. Tạo 1 table trong Chuongtrinh để chứa tên các table trong DATA mà bạn muốn liên kết. Có 2 cách: (chẳng hạn table đó có tên tblFileMDB
  - Cách 1: bạn gõ tên từng table vào,
  - Cách 2 tự động lấy từ file DATA. Nhưng như Noname nói: có thể nhầm với các Table của hệ thống; tuy nhiên vẫn có cách: bạn đặt tên table có một số ký tự giống nhau chẳng hạn tbl và khi lấy danh sách table thì xóa các table không có ký tự tbl đi
  2. Tiến hành link table: Thực hiện theo các bước sau:
  - Nếu table đó đã được link và cùng đường dẫn như txtPath không link nữa.
  - Nếu table đó đã được link nhưng khác đường dẫn với txtPath, xóa link và link lại.
  - Nếu tabl đó chưa được link, tiến hành link table.
  Bạn tham khảo mấy đoạn code dưới đây nhé (mình có một chương trình đang dùng, nhưng bạn thông cảm không post lên được vì đã có đủ dữ liệu và có thông tin không cung cấp được, nếu xóa đi tạo DEMO thì mất nhiều thời gian quá)
  * Tự động lấy table cần link từ file Data:
  

  Mã:

  Function TableLinkUpdate()
    Dim rsfilemdb As Recordset
    Dim dbdata As Database
    Dim datatbl As TableDef
    CurrentDb.Execute "Delete * from tblFileMDB"
    Set rsfilemdb = CurrentDb.OpenRecordset("tblFileMDB", dbOpenDynaset)
    Set dbdata = OpenDatabase(Getthumuc() & "\datasys\data.mdb")
    For Each datatbl In dbdata.TableDefs
        rsfilemdb.AddNew
        rsfilemdb!tableName = datatbl.Name
        rsfilemdb.Update
    Next datatbl
    Set dbdata = Nothing
    
        rsfilemdb.MoveLast
        rsfilemdb.MoveFirst
        Do Until rsfilemdb.EOF
            If InStr(1, rsfilemdb!tableName, "MSys") > 0 Then
                rsfilemdb.Delete
            End If
        rsfilemdb.MoveNext
        Loop
    
    Set rsfilemdb = Nothing
End Function

  * Link lại các table:
  

  Mã:

  Sub RefreshLinkTable()
    Dim rstbl As Recordset
    Set rstbl = CurrentDb.OpenRecordset("tblFileMDB", dbOpenDynaset)
    rstbl.MoveLast
    rstbl.MoveFirst
    Do Until rstbl.EOF
        ' KiÓm tra xem ®· cã link. NÕu kh«ng cã, tiÕn hµnh link.
           If KiemtratblCurrent(rstbl!tableName) = False Then
                DoCmd.TransferDatabase acLink, "Microsoft Access", Application.CurrentProject.Path & "\data.mdb", acTable, rstbl!tableName, rstbl!tableName
            Else
        ' KiÓm tra xem Link cã ®óng ®­êng dÉn. NÕu kh«ng ®óng, link l¹i
                If getLinked(rstbl!tableName) <> Application.CurrentProject.Path & "\data.mdb" Then
                    DoCmd.DeleteObject acTable, rstbl!tableName
                    DoCmd.TransferDatabase acLink, "Microsoft Access", Application.CurrentProject.Path & "\data.mdb", acTable, rstbl!tableName, rstbl!tableName
                End If
            End If
    rstbl.MoveNext
    Loop
    rstbl.Close
    Set rstbl = Nothing
End Sub

  * Code lấy đường dẫn của table đã được link:
  

  Mã:

  Function getLinked(tbl As String) As String
      getLinked = Mid(CurrentDb.TableDefs(tbl).Connect, 11)
End Function

  
  * Code để kiểm tra xem table có hay không
  

  Mã:

  Function KiemtratblCurrent(tblName As String) As Boolean
    Dim table As TableDef
    For Each table In CurrentDb.TableDefs
    If table.Name = tblName Then
        KiemtratblCurrent = True
        Exit Function
    End If
    Next table
    KiemtratblCurrent = False
End Function

  
  Chúc thành công
  
  Noname có xin đoạn code lấy tất cả tên các file *.mdb trong một folder đưa vào combobox nhé.

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

  DoquangLam > 30-08-10, 04:33 PM

  Trước hết mình xin cám ơn Noname đã giúp mình thực hiện được ước mơ. Tiện đây mình rất mong bạn giúp mình thêm 2 việc nữa nhé. Nếu được mình cám ơn bạn rất nhiều !
  
  - Một là : Mình muốn bạn sửa đoạn Code mà bạn đã giúp mình liên kết đến file Data01, Data02… (Có đặt mật khẩu). Mật khẩu mình đặt là : admin
  - Hai là : Trên màn hình nhập liệu của mình có các Command Button như Thêm, Sửa, Xoá, Kết thúc… Mình muốn bạn giúp mình viết Code để gắn các phím vào từng nút trên. Ví dụ như khi bấn F5 thì nút Thêm được thi hành, F6-Sửa, F7-Xoá ….
  
  Mình gửi kèm theo 3 file để các bạn giúp mình nhé.
  Cám ơn tất cả các anh, chị, em trên diễn đàn
  

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

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

  Mình chỉ có thể giúp bạn từng thủ thuật riêng lẻ, còn những thứ còn lại bạn phải tự mày mò thôi!
  Trong list các thủ thuật, những yêu cầu cảu bạn đều có cả rồi đấy!

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

  DoquangLam > 30-08-10, 04:42 PM

  Trước hết mình xin cám ơn Noname đã giúp mình thực hiện được ước mơ. Tiện đây mình rất mong bạn giúp mình thêm 2 việc nữa nhé. Nếu được mình cám ơn bạn rất nhiều !
  
  - Một là : Mình muốn bạn sửa đoạn Code mà bạn đã giúp mình liên kết đến file Data01, Data02… (Có đặt mật khẩu). Mật khẩu mình đặt là : admin
  - Hai là : Trên màn hình nhập liệu của mình có các Command Button như Thêm, Sửa, Xoá, Kết thúc… Mình muốn bạn giúp mình viết Code để gắn các phím vào từng nút trên. Ví dụ như khi bấn F5 thì nút Thêm được thi hành, F6-Sửa, F7-Xoá ….
  
  Mình gửi kèm theo 3 file để các bạn giúp mình nhé.
  Cám ơn tất cả các anh, chị, em trên diễn đàn
  
• Bài trước Bài tiếp