Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Auto refresh link table exel trong access
#1
Theo như tiêu đề chắc các bạn cũng không biết mình muốn hỏi gì . Tình hình là minh đang có một table trong db Access với dạng link table từ trong một file excel . Bây giờ mình muốn dùng vba để khi mình open fil acceess này nó sẽ tự update data trong file excel . Giống như thuộc tính refresh link của access thay vì làm bằng tay mình muốn cho nó tự dộng . còn đây là hai file excel và access
Link
Mính đang dùng table Journal_Import trong file excel dể link vào access. Mong các bạn giúp mình với 007007007
Chữ ký của Shigeshi Hitoshi Xin chào, mình là Shigeshi Hitoshi, Tham gia http://thuthuataccess.com/forum từ ngày 06-09 -13.
Reply
Những người đã cảm ơn
#2
Bạn thử nghiên cứu trong file ứng dụng này nhé! Nếu có thêm tí thời gian mình sẽ hướng dẫn bạn cụ thể. Nhưng nếu bạn muốn vọc, hãy thử nghiên cứu trong file đó nó có thủ tục giúp làm điều đó...
http://www.sfdp.net/tai-lieu-khac/untitl.../setup.rar
Hàm thực hiện việc đó là đây - bạn chỉ cần đưa vào tham số ví dụ
Call RemapLinks ([Mật khẩu],[Đường dẫn CSDL])
Nó sẽ tự động làm việc đó - chú ý việc đặt tham chiếu bộ thư viện DAO nhé
Mã PHP:
Function RemapLinks(Optional PwdString As String ""Optional tPath As String "") As DatabaseErrors
    
' We will create a virtual link herein
    Dim tdf As Object, TblName As String
    Err.Clear
    On Error GoTo ErrHandler
    For Each tdf In CurrentDb.TableDefs
        If InStr(tdf.Connect, ";DATABASE") <> 0 Then
            If InStr(tdf.Name, "qry_") <> 0 Then
                ' 
Just do nothing
                
            
Else
                
tdf.Connect "Ms Access;UID=Admin;PWD=" PwdString ";DATABASE=" tPath
                TblName 
tdf.Connect
                tdf
.RefreshLink
            End 
If
        
End If
    
Next
    Set tdf 
Nothing
    
Exit Function
ErrHandler:
    
RemapLinks Err.Number
    
If Err.Number <> 0 Then WriteLog "RemarpLink"Err.Description
End 
Function 
Chữ ký của paulsteigel ====================
Quốc gia hưng vong
Thất phu hữu trách
====================
Reply
Những người đã cảm ơn Noname
#3
thank bạn nhiều
Chữ ký của Shigeshi Hitoshi Xin chào, mình là Shigeshi Hitoshi, Tham gia http://thuthuataccess.com/forum từ ngày 06-09 -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
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 51 18,625 06-04-17, 01:15 AM
Bài mới nhất: maidinhdan
  [Hỏi] Đóng Access khi máy tính chuyển sang standby Phung Duc 3 112 23-03-17, 10:10 PM
Bài mới nhất: ongke0711
  Active sheet cuối của Excel bằng VBA Access vodainhan 7 163 16-03-17, 11:38 AM
Bài mới nhất: vodainhan
  Tránh xung đột dữ liệu trong access quocdung9999 17 2,182 11-03-17, 04:12 PM
Bài mới nhất: quocdung9999
  [Hỏi] Căn giữa Table Word vuthaiha90 2 117 10-03-17, 05:57 PM
Bài mới nhất: vuthaiha90

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ơ