Đá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
  Hướng Dẫn Tư vấn import data(đuôi csv) vào file access nguồn subasatran 3 206 29-07-17, 02:20 PM
Bài mới nhất: duynamvnn1208
  [Hỏi] VBA Access: điều khiển lệnh Excel, Access khác vodainhan 10 490 19-07-17, 12:13 PM
Bài mới nhất: vodainhan
  [Hỏi] Nối dữ liệu từ nhiều file Access?? btnnhut 12 417 17-07-17, 08:44 AM
Bài mới nhất: tranthanhan1962
  [Hỏi] Truyền dữ liệu giữa 2 file Access ?? btnnhut 3 120 03-07-17, 01:14 PM
Bài mới nhất: tranthanhan1962
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 61 20,955 18-06-17, 08:49 AM
Bài mới nhất: lehongduc

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ơ