Đá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
  [Thủ Thuật] Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access maidinhdan 23 6,228 24-04-18, 08:13 PM
Bài mới nhất: DooHoaangPhuuc
  Xuất dữ liệu từ Access ra Excel theo điều kiện Minh Tiên 7 321 24-04-18, 11:21 AM
Bài mới nhất: ongke0711
  [Hỏi] Ghép chuổi trong điều kiện hàm dcount mrsiro 4 184 08-04-18, 06:54 PM
Bài mới nhất: ongke0711
  Kẻ khung cell Excel với Access khai báo muộn Minh Tiên 2 97 02-04-18, 08:09 PM
Bài mới nhất: Minh Tiên
  [Hỏi] Hiển Thị Dữ Liệu Trong ListBox pherotao 1 179 12-01-18, 09:10 AM
Bài mới nhất: cpucloi

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line