-
06-24-2010, 07:35 AM #1
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Cho mình hỏi về Link table qua mạng Lan với
Mình có cái Function và Sub chôm của bạn Noname,sau khi chôm được về mình có sửa chút xíu để thực hiện link table như sau :
Function getFileData(Tit As String, formatName As String, formatType As String)
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
With dlgOpen
.Title = Tit
.Filters.Clear
.Filters.Add formatName, formatType
.AllowMultiSelect = False
result = .Show
If (result <> 0) Then
getFileData = Trim(dlgOpen.SelectedItems.Item(1))
End If
End With
End Function
Sub LinkTable(p As String)
On Error Resume Next
getlink = getFileData("CUSTOMER RELATION MANAGEMENT SYSTEM", "Select Data File", "*.accdb")
If getlink <> "" Then
Set tempDB = OpenDatabase(getlink, True, False, "MS Access;PWD=" & p)
tempDB.NewPassword p, ""
tempDB.Close
Set tempDB = OpenDatabase(getlink)
For Each td In tempDB.TableDefs
strTDef = td.Name
If Left(strTDef, 4) <> "MSys" Then
DoCmd.TransferDatabase acLink, "Microsoft Access", tempDB.Name, acTable, strTDef, strTDef, True
End If
Next
tempDB.Close
Set tempDB = OpenDatabase(getlink, True, False, "MS Access;PWD=" & p)
tempDB.NewPassword "", p
tempDB.Close
Set tempDB = Nothing
End If
End Sub
Sau đó mình tạo 1 command button chạy cái Sub trên, chạy ngon lành nếu file Back End trên cùng máy với Front End ,nhưng không có tác dụng khi link Back End qua mạng Lan.
Giúp mình lý giải vì sao với nhé .
Thanks !!!!!!View more random threads:
- dữ liệu ngày trả về quý
- Cho mình hỏi một số hàm Visual Basic dùng trong Access:
- Đăng ký người sử dụng
- Thư viện runtime cho access !
- Chuyên đề ứng dụng : Thiết kế chương trình Sổ Quỹ Tiền Mặt(Phần 3 - File đ1nh kèm)
- Nút OfficeLink bị disable
- Cho mình hỏi về Link table qua mạng Lan với
- Giải pháp nào cho compact CSDL lớn !
- Giải giúp mình bài tập này với
- Làm sao để sắp xếp cố định các trường xuống dòng trong 1 Textbox của Report
Kể với bác sĩ, anh M. cho biết bữa qua là sinh nhật của mình nên có đi ăn tối, rồi trở về nhà quan hệ tình dục với vợ. Trong quá trình quan hệ , vợ anh dùng miệng "tác động" nhiều vào vùng tinh hoàn....
Hy hữu. Anh chàng suýt mất tinh hoàn vì chơi bằng miệng với vợ