Schnell mal alle verknüpfte Tabellen umstellen. Ganz einfach mit dem Modul...

Der Aufruf erfolgt über

Ausführung

 

Backend verknüpfen

View source
  1. Function fnc_tblVerknüpfungenErstellen(m_str_DBmitPfad As String)
  2.  
  3.  
  4. Dim int_i As Integer, int_y As Integer, m_str_tblName As String, _
  5. db As Database, db_Quell As Database
  6.  
  7. On Error GoTo ERR_Routine
  8.  
  9.  
  10. Set db = CurrentDb
  11. Set db_Quell = OpenDatabase(m_str_DBmitPfad)
  12.  
  13.  
  14. 'Aktuelle Tabellenverknüpfungen löschen
  15. int_i = db.TableDefs.Count
  16. For int_y = 0 To int_i - 1
  17. m_str_tblName = db.TableDefs(int_y).Name
  18. If Not m_str_tblName Like "o_*" And Not m_str_tblName Like "bfw-export*" And Not m_str_tblName Like "ms*" And db.TableDefs(int_y).Updatable = False Then
  19. DoCmd.DeleteObject acTable, m_str_tblName
  20. End If
  21. Next int_y
  22.  
  23.  
  24. 'Verknüpfungen zu Quell-db erstellen (außer den internen Tabellen)
  25. int_i = db_Quell.TableDefs.Count
  26.  
  27.  
  28. For int_y = 0 To int_i - 1
  29. m_str_tblName = db_Quell.TableDefs(int_y).Name
  30. If Not m_str_tblName Like "ms*" Then
  31. DoCmd.TransferDatabase acLink, "Microsoft Access", m_str_DBmitPfad, acTable, m_str_tblName, m_str_tblName
  32. End If
  33. Next int_y
  34.  
  35.  
  36. ENDE:
  37. Set db = Nothing
  38. Set db_Quell = Nothing
  39.  
  40.  
  41. Exit Function
  42. ERR_Routine:
  43. MsgBox "Fehler: " & Err.Number & vbCrLf & _
  44. "Beschreibung: " & vbCrLf & Err.Description, vbCritical, "Tabellen verknüpfen"
  45. Err.Clear
  46. Resume ENDE
  47. End Function