Đá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
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
  [Thủ Thuật] Tìm số thứ tự bị thiếu trong dãy toanle 8 205 07-12-16, 02:25 PM
Bài mới nhất: toanle
  Tránh xung đột dữ liệu trong access quocdung9999 16 1,694 23-11-16, 11:13 AM
Bài mới nhất: quocdung9999
  [Hỏi] Kết nối nhiều lần hay kết nối 1 lần trong ADO ưu điểm hơn Minh Tiên 1 124 10-11-16, 10:41 AM
Bài mới nhất: maidinhdan
  Summary bằng VBA trong MS Access. MinhnHang 6 320 08-11-16, 08:36 AM
Bài mới nhất: MinhnHang

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ơ