• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Code VBA Link Table New location

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Code VBA Link Table New location
• Code VBA Link Table New location

• Code VBA Link Table New location

  ungthienhai > 12-09-22, 12:27 PM

  Chào các bác, 
  
  Em có file FE đã link table rồi nhưng khi copy qua máy khác cần link lại table, em dùng code này:
  

  Mã:

  Dim dbsSource As DAO.Database
    Dim tdf As DAO.TableDef
    Dim strSourceDb As String
   
    With Application.FileDialog(1)
        If .Show Then
            strSourceDb = .SelectedItems(1)
            Set dbsSource = OpenDatabase(strSourceDb)
            For Each tdf In dbsSource.TableDefs
                If Left(tdf.Name, 4) <> "MSys" Then
                    DoCmd.TransferDatabase acLink, "Microsoft Access", strSourceDb, acTable, _
                        tdf.Name, tdf.Name
                End If
            Next tdf
        Else
            MsgBox "No back end file selected", vbInformation, "Warning"
        End If
    End With

  
  Nhưng vẫn ko thể kết nối đến BE, các bác giúp e với nhé. Em làm Command Button.
• Bài trước Bài tiếp