chihienphuco > 02-12-10, 05:07 PM
haquocquan > 02-12-10, 05:37 PM
(02-12-10, 05:07 PM)chihienphuco Đã viết: Mình muốn tại file access01 đang sử dụng tạo 1 nút lệnh mở file access02.Bạn tham khảo ở đây để vận dụng vào bài của mình:
Tại file access02 tạo 1 nút lệnh khi click vào import tất cả Table dữ liệu từ file data.mdb "share dùng chung".
Mong anh Noname và các anh chị giúp đở bằng một thiết kế ví dụ đơn giản. Cám ơn!
chihienphuco > 02-12-10, 05:46 PM
thanhtruong > 13-11-15, 04:42 PM
(02-12-10, 05:37 PM)haquocquan Đã viết:(02-12-10, 05:07 PM)chihienphuco Đã viết: Mình muốn tại file access01 đang sử dụng tạo 1 nút lệnh mở file access02.Bạn tham khảo ở đây để vận dụng vào bài của mình:
Tại file access02 tạo 1 nút lệnh khi click vào import tất cả Table dữ liệu từ file data.mdb "share dùng chung".
Mong anh Noname và các anh chị giúp đở bằng một thiết kế ví dụ đơn giản. Cám ơn!
Link 1: http://thuthuataccess.com/forum/Thread-m...-csdl-khac
Link 2: http://thuthuataccess.com/forum/Thread-t...-cac-table
Noname > 14-11-15, 12:55 PM
kieu manh > 17-11-15, 09:47 AM
''Ham mo moi loai File
Public Sub OpenExplorerWindow(FilName As String)
Shell "explorer " & FilName, vbNormalFocus
End Sub
''Ham Kiem tra su ton tai Cua File
Public Function CheckPath(ByVal Path As String) As Boolean
With CreateObject("Scripting.FileSystemObject")
If .FileExists(Path) Then CheckPath = True
End With
End Function
''Chay test thu
Public Sub Test_OpenFile()
Dim FilePath As String
FilePath = Excel.ThisWorkbook.Path & "\Tools Register.exe" ''Thay doi ten File cho phu hop
If CheckPath(FilePath) Then
OpenExplorerWindow (FilePath)
Else
MsgBox (FilePath) & Space(1) & vbLf & vbLf & "File Not Found", 64, "Thông Báo"
End If
End Sub