Tùy chọn
Auto refresh link table exel trong access
- Auto refresh link table exel trong access
-
Auto refresh link table exel trong access
Shigeshi Hitoshi > 23-09-13, 03:16 PM
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
-
RE: Auto refresh link table exel trong access
paulsteigel > 23-09-13, 11:44 PM
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 -
RE: Auto refresh link table exel trong access
Shigeshi Hitoshi > 25-09-13, 04:17 PM
thank bạn nhiều