Đá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ỏi] Liên kết bảng biểu Excel sang Word thông qua Access vuthaiha90 18 594 24-02-17, 04:07 PM
Bài mới nhất: vuthaiha90
  Gửi tin nhắn SMS bằng Access lmthu 7 447 07-02-17, 09:02 AM
Bài mới nhất: cpucloi
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 43 17,661 18-12-16, 03:37 PM
Bài mới nhất: huuduy.duy
  Hướng Dẫn Enter xuống dòng trong textbox thanhquyt 2 136 18-12-16, 09:43 AM
Bài mới nhất: thanhquyt
  Lấy record từ tbl1 làm thành field trong tbl2. MinhnHang 5 199 13-12-16, 03:05 PM
Bài mới nhất: ongke0711

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ơ