Office: Tabellenverknüpfung aktualisieren

Helfe beim Thema Tabellenverknüpfung aktualisieren in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Guten Abend, ich habe meine Datenbank auf einem Stick gespeichert. Rechner XY weist dem Stick den Laufwerksbuchstaben E zu und Rechner YZ weist ihm... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von der Alte, 30. August 2015.

Seite 1 von 2

DER ALTE

der Alte

Tabellenverknüpfung aktualisieren

Guten Abend,

ich habe meine Datenbank auf einem Stick gespeichert. Rechner XY weist dem Stick den Laufwerksbuchstaben E zu und Rechner YZ weist ihm den Laufwerksbuchstaben F zu. Das bedeutet, dass die Tabellen neu verknüpft werden müssen. Das Gleiche, bei den Anfügeabfragen in eine externe Datenbank.
Wie kann ich das umgehen?

:)

der Alte, 30. August 2015

#1
MARSU65

Marsu65

Hallo Uli,

deiner Beschreibung nach, schließe ich, dass Front- und Backend auf dem Stick liegen.

Wenn es nur wenige Rechner sind, könntest du dem Stick einen festen Laufwerksbuchstaben zuweisen.
Siehe: http://www.windows7inside.de/windows...in-usb-geraet/

Wenn es viele oder ständig wechselnde Rechner sind, kannst du aus CourrentProject.Path den aktuellen Buchstaben extrahieren und dann die Tabellen aus dem Backend neu verbinden (Stichwort AutoLink).

Die Tabellen der externen DB (auf einem zentralen Server?), könnte man über den UNC-Pfad verknüpfen.

Sieh dir auch in der VBA-Hilfe die Connect-Eigenschaft des TableDef-Objektes an.

Marsu65, 1. September 2015

#2
DER ALTE

der Alte

Hallo Marsu65,

danke für die schnelle Antwort. *Smilie
Ich habe in einem Buch folgenden Code gefunden, den ich gern benutzen möchte.
Code:

Function Autoexec() As Variant
' wird vom autoexec-Makro aufgerufen

' Klasse zur Überprüfung der Verknüpfung
Dim objRefreshLink As New clsRefreshLink

' Kontrolle der Tabellenverknüpfung
' Wenn Link zu tblMitglieder fehlerhaft, dann alle Links aktualisieren
If objRefreshLink.RefreshLink("tblMitglieder") > 0 Then
' Name der verknüpften Db kann hier vorbelegt werden (mdb.Name)
objRefreshLinkMDDDirectory = objRefreshLink.SplitPath(mdb.Name)
objRefreskLink.RefreshAllLinks
End If

' Start-Formular aufrufen
DoCmd.OpenForm "frmStar"
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es kommt aber folgende Fehlermeldung:

Benutzerdefinierter Ty nicht definiert.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Zeile Dim objRefreshLink As New clsRefreshLink ist markiert.

Ich habe Microsoft Access 10.0 ObjectLibary und Microsoft ActiveX Data Objects 2.8 Libary. Muss ich noch irgendwelche Verweise einrichten?

der Alte, 1. September 2015

#3
EBS17

ebs17

Tabellenverknüpfung aktualisieren

Code:

Dim objRefreshLink As New clsRefreshLink
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun, Du müsstest die Klasse ebenfalls in Dein Projekt übernehmen, wenn Du sie schon verwenden möchtest, nicht nur den Aufrufcode.

ebs17, 1. September 2015

#4
DER ALTE

der Alte

Ist der Eintrag ok? Geht aber noch immer nicht.

der Alte, 1. September 2015

#5
DER ALTE

der Alte

Hier das Bild

der Alte, 1. September 2015

#6
EBS17

ebs17

clsRefreshLink ist sichtbar eine selbstgeschriebene Klasse, die Du ebenfalls dem Buch entnehmen musst. Sie hat mit ähnlich klingenden Methoden aus Access/VBA nichts zu tun.

ebs17, 1. September 2015

#7
DER ALTE

der Alte

Tabellenverknüpfung aktualisieren

Ich habe jetzt den kompletten Code in die Db geschrieben. Es kommen Fehlermeldungen.
1. Fehlermeldung: clsRefreshLink ist außerhalb einer Prozedur ungültig. Danach ausdokumentiert.
2. Fehlermeldung: Property Get RefreshErr() As clsError - Benutzerdefinierter Typ nicht definiert. Danach den Block ausdokumentiert.
3. Fehlermeldung: 424 - Objekt erforderlich

Das Thema gab es übrigens hier im Forum bereits. http://http://www.ms-office-forum.ne...?t-170798.html Ich werde dort aber nicht richtig schlau.

Code:

clsRefreshLink
Private Type typOpenFilename
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrfile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

' Windows API-Funktionen für Standarddialogfelder
Private Declare Function GetSaveFileName _
Lib "comdlg32.dll" _
Alias "GetSaveFileNameA" _
(pOpenfilename As typOpenFilename) As Long
Private Declare Function GetOpenFileName _
Lib "comdlg32.dll" _
Alias "GetOpenFileNameA" _
(pOpenfilename As typOpenFilename) As Long
Private Declare Function CommDlgExtendedError _
Lib "comdlg32.dll" () As Long

' Standarddialogkonstanten
Private Const conOFN_SHOWHELP = &H10
Private Const conOFN_SHAREWARN = 0
Private Const conOFN_SHARENOWARN = 1
Private Const conOFN_SHAREFALLTHROUGH = 2
Private Const conOFN_SHAREAWARE = &H4000
Private Const conOFN_READONLY = &H1
Private Const conOFN_PATHMUSTEXIST = &H800
Private Const conOFN_OVERWRITEPROMPT = &H2
Private Const conOFN_NOVALIDATE = &H100
Private Const conOFN_NOTESTFILECREATE = &H10000
Private Const conOFN_NOREADONLYRETURN = &H8000
Private Const conOFN_NONETWORKBUTTON = &H20000
Private Const conOFN_NOLONGNAMES = &H40000
Private Const conOFN_NODEREFERENCELINKS = &H100000
Private Const conOFN_NOCHANGEDIR = &H8
Private Const conOFN_LONGNAMES = &H200000
Private Const conOFN_HIDEREADONLY = &H4
Private Const conOFN_FILEMUSTEXIST = &H1000
Private Const conOFN_EXTENSIONDIFFERENT = &H400
Private Const conOFN_EXPLORER = &H80000
Private Const conOFN_ENABLETEMPLATEHANDLE = &H80
Private Const conOFN_ENABLETEMPLATE = &H40
Private Const conOFN_ENABLEHOOK = &H20
Private Const conOFN_CREATEPROMPT = &H2000
Private Const conOFN_ALLOWMULTISELECT = &H200

' Für Dialogfeldtitel
Private Const conConnectMsg = "Verbindung zu Datenbank aufbauen"

' Fehlerkonstante
Private Const conNoError = 0
Private Const conTableNotFound = 3265
Private Const conMDBNotFound = 3024

Private Sub Class_Initialize()
' Aktuelle Datenbank ermitteln
Set mdb = CurrentDb()
' Verzeichnis der aktuellen Datenbank ermitteln
mstrDirectory = SplitPath(mdb.Name)
End Sub

Property Let DataMDB(ByVal strDatabase As String)
Const conMDB = ".MDB"
' Daten-Datenbanknamen festlegen, ggf. durch MDB ergänzen
If UCase(Right(strDatabase, 4)) conMDB Then
strDatabase = strDatabase + conMDB
End If
mstrDatabase = strDatabase
End Property

Property Get DataMDB() As String
' Daten-Datenbankname zurückgeben
DataMDB = mstrDatabase
End Property

Property Let MDBDirectory(strDirectory As String)
' Daten-Datenbankverzeichnis setzen
mstrDirectory = strDirectory
End Property

Property Get MDBDirectory() As String
' Daten-Datenbankverzeichnis zurückgeben
MDBDirectory = mstrDirectory
End Property

Sub RefreshAllLinks()
' Alle Verknüpfungen aktualisieren
Dim tdef As TableDef

On Error GoTo err_RefreshAllLinks

For Each tdef In mdb.TableDefs
' Wenn es eine verknüpfte Tabelle ist
If tdef.Connect "" Then
' Verknüpfung aktualisieren
Select Case RefreshLink(tdef.Name)
Case conNoError:
' Refresh erfolgreich
Case conTableNotFound, conMDBNotFound:
' Aktualisierung nicht erfolgreich
If Not ConnectLink(tdef) Then
' Name/Verzeichnis der Daten-Datenbank abfragen
If Not ConnectDatabase(tdef) Then
' Im Fehlerfalle Programm anhalten
MsgBox "Verbindungsfehler bei '" & tdef.Name & "': " & _
"Programm wird beendet", vbExclamation
End
End If
End If
Case Else
MsgBox "Verbindungsfehler bei '" & tdef.Name & "': " & _
clsErr.Number & " - " & clsErr.Description, _
vbExclamation
End Select
End If
Next

exit_RefreshAllLinks:
Exit Sub

err_RefreshAllLinks:
MsgBox "Fehler: " & Err.Number & _
" - " & Err.Description, _
vbExclamation
Resume exit_RefreshAllLinks
End Sub

Function RefreshLink(ByVal strTableName As String) As Integer
' Verknüpfung für Tabelle aktualisieren
Const conDB = ";DATABASE="

Dim tdef As TableDef
Dim strTmp As String

On Error GoTo err_RefreshLink

Set tdef = mdb.TableDefs(strTableName)
With tdef
' Überprüfen der Verknüpfung
.RefreshLink
' Name und Verzeichnis der Daten-Datenbank speichern
Me.DataMDB = ExtractMDB(.Connect)
strTmp = SplitPath(.Connect)
Me.MDBDirectory = Right(strTmp, Len(strTmp) - Len(conDB))
End With
RefreshLink = 0

exit_RefreshLink:
Exit Function

err_RefreshLink:
clsErr.Add VBA.Err
RefreshLink = clsErr.Number
Resume exit_RefreshLink
End Function

Function ConnectLink(tdef As TableDef) As Boolean
Dim strConnect As String
Dim strDatabase As String

On Error GoTo err_ConnectLink

' Verknüpfung neu aufbauen
tdef.Connect = ";DATABASE=" & Me.MDBDirectory & Me.DataMDB
tdef.RefreshLink
ConnectLink = True

exit_ConnectLink:
Exit Function

err_ConnectLink:
ConnectLink = False
Resume exit_ConnectLink
End Function

Function ConnectDatabase(tdef As TableDef)
Dim strTmp As String

On Error GoTo err_ConnectDatabase

' Verzeichnis wechseln
ChDir Me.MDBDirectory
' Standarddialogfeld öffnen
strTmp = GetDatabase(conConnectMsg, Me.DataMDB)
' Name und Verzeichnis speichern
Me.DataMDB = ExtractMDB(strTmp)
Me.MDBDirectory = SplitPath(strTmp)
' Verknüpfung aufbauen
tdef.Connect = ";DATABASE=" & Me.MDBDirectory & Me.DataMDB
tdef.RefreshLink
ConnectDatabase = True

exit_ConnectDatabase:
Exit Function

err_ConnectDatabase:
ConnectDatabase = False
MsgBox "Verbindung nicht möglich"
Resume exit_ConnectDatabase
End Function

Public Function SplitPath(ByVal strPath As String) As String
Dim strTmp As String

strTmp = strPath
While InStr(strTmp, "\") > 0
strTmp = Right(strTmp, Len(strTmp) - InStr(strTmp, "\"))
Wend
SplitPath = Left(strPath, Len(strPath) - Len(strTmp))
End Function

Private Function GetDatabase(ByVal strTitle As String, _
ByVal strFileName As String) As String
Dim OpenFilename As typOpenFilename
Dim strMessage As String
Dim strFilter As String
Dim strFileTitle As String
Dim strDefExt As String
Dim strMsg As String
Dim strCurDir As String
Dim lngResult As Long
Dim strFile As String * 255

On Error GoTo err_GetDatabase

' für API-Funktionen Strings mit Chr(0) beenden
strFilter = "Access(*.mdb)" & Chr$(0) & "*.MDB" & Chr(0)
strCurDir = CurDir & Chr(0)
strTitle = strTitle & Chr(0)
' Puffer vorbelegen
strFile = Space(255)
strFile = strFileName & Chr(0)

With OpenFilename
.lStructSize = Len(OpenFilename)
.lpstrFilter = strFilter
.lpstrfile = strFile
.nMaxFile = Len(strFile)
.lpstrTitle = strTitle
.lpstrFileTitle = strTitle
.nMaxFileTitle = Len(strTitle)
.lpstrInitialDir = strCurDir
.nFilterIndex = 0
.flags = conOFN_HIDEREADONLY Or _
conOFN_FILEMUSTEXIST Or _
conOFN_PATHMUSTEXIST
End With

lngResult = GetSaveFileName(OpenFilename)
If lngResult = 0 Then
' Leere Zeichenfolge zurückgeben
GetDatabase = ""
Exit Function
Else
' Ergebniszeichenfolge zusammenstellen
' wegen String-Darstellung bei API-Funktionen
GetDatabase = Left(OpenFilename.lpstrfile, _
InStr(OpenFilename.lpstrfile, Chr(0)) - 1)
End If

exit_GetDatabase:
Exit Function

err_GetDatabase:
MsgBox "Fehler: " & Err.Number & _
" - " & Err.Description, _
vbExclamation
Resume exit_GetDatabase
End Function

Private Function ExtractMDB(ByVal strMDB As String) As String
' Ermittelt Datenbanknamen
Dim strDatabase As String

strDatabase = strMDB
Do
strDatabase = Right(strDatabase, Len(strDatabase) _
- InStr(strDatabase, "\"))
Loop Until InStr(strDatabase, "\") = 0
ExtractMDB = strDatabase
End Function

Property Get RefreshErr() As clsError
Set RefreshErr = clsErr
End Property

Function Autoexec() As Variant
' wird vom Autoexec-Makro aufgerufen

' Klasse zur Überprüfung der Verknüpfung
Dim objRefreshLink As New clsRefreshLink

' Wenn Link fehlerhaft, dann alle Links aktualisieren
If objRefreshLink.RefreshLink("tblCDtyp") > 0 Then
objRefreshLink.DataMDB = "CDProg_be.mdb"
objRefreshLink.MDBDirectory = objRefreshLink.SplitPath(afd.mdb)
objRefreshLink.RefreshAllLinks
End If

' Start-Formular aufrufen
DoCmd.OpenForm "frmStart"

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

der Alte, 1. September 2015

#8
EBS17

ebs17

Auf Zeilenkommentierungen würde ich gerne verzichten.

Ich habe in einem Buch folgenden Code gefunden, den ich gern benutzen möchte.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Empfehlung wäre da doch, die entsprechenden Passagen des Buches aufmerksam und vollständig zu lesen, ggf. wiederholt.
Ich würde schon unterstellen, dass das Beispiel im Buch funktionabel und vollständig ist, und lesbar sind Bücher i.A. auch.

ebs17, 2. September 2015

#9
DER ALTE

der Alte

Ich habe den Code entsprechend des Buches geändert. Es kommt die Fehlermeldung "Benutzerdefinierter Typ nicht definiert und er markiert
clsErr As New clsError

Code:

Option Compare Database
Option Explicit

'Objektdaten
'----------------------------
'Name der Daten-Datenbankdatei

Private mstrDatabase As String
'Verzeichnis der Daten-Datenbank
Private mstrDirectory As String
'Datenbankverweis
Private mDB As DAO.Database
'Fehlerklasse
Private clsErr As New clsError
'----------------------------

'Für Dialogfeldtitel
Private Const conConnectMsg = "Auswählen der datenbank für Tabelle"

'Präfix für Verbindungszeichenfolge zu Access-MDBs
Private Const conDB = ";Database="

'Fehlerkonstante
Private Const conNoError = 0
Private Const conTableNotFound = 3265
Private Const conMDBNotFound = 3024

Private Sub Class_Inizialize()
'aktuelle Datenbank ermitteln
Set mDB = CurrentDb()
'Verzeichnis der aktuelle Datenbank ermitteln
mstrDirectory = SplitPath(mDB.Name)
End Sub
Property Let DataMDB(ByVal strDatabase As String)
Const conMDB = ".MDB"
' Daten-Datenbanknamen festlegen, ggf. durch MDB ergänzen
If UCase(Right(strDatabase, 4)) conMDB Then
strDatabase = strDatabase + conMDB
End If
mstrDatabase = strDatabase
End Property

Property Get DataMDB() As String
' Daten-Datenbankname zurückgeben
DataMDB = mstrDatabase
End Property

Property Let MDBDirectory(strDirectory As String)
' Daten-Datenbankverzeichnis setzen
mstrDirectory = strDirectory
End Property

Property Get MDBDirectory() As String
' Daten-Datenbankverzeichnis zurückgeben
MDBDirectory = mstrDirectory
End Property

Sub RefreshAllLinks()
' Alle Verknüpfungen aktualisieren
Dim tdef As TableDef

On Error GoTo err_RefreshAllLinks

For Each tdef In mDB.TableDefs
' Wenn es eine verknüpfte Tabelle ist
If tdef.Connect "" Then
' Verknüpfung aktualisieren
Select Case RefreshLink(tdef.Name)
Case conNoError:
' Refresh erfolgreich
Case conTableNotFound, conMDBNotFound:
' Aktualisierung nicht erfolgreich
If Not ConnectLink(tdef) Then
' Name/Verzeichnis der Daten-Datenbank abfragen
If Not ConnectDatabase(tdef) Then
' Im Fehlerfalle Programm anhalten
MsgBox "Verbindungsfehler bei '" & tdef.Name & "': " & _
"Programm wird beendet", vbExclamation
End
End If
End If
Case Else
MsgBox "Verbindungsfehler bei '" & tdef.Name & "': " & _
clsErr.Number & " - " & clsErr.Description, _
vbExclamation
End Select
End If
Next

exit_RefreshAllLinks:
Exit Sub

err_RefreshAllLinks:
MsgBox "Fehler: " & Err.Number & _
" - " & Err.Description, _
vbExclamation
Resume exit_RefreshAllLinks
End Sub

'RefreshLink gibt Wert > 0 zurück, wenn die Verknüpfung
'zur angegebenen Tabelle nicht aktualisiert werden konnte
Function RefreshLink(ByVal strTableName As String) As Integer
'Verknüpfung für Tabelle aktualisieren
Dim tdef As TableDef
Dim strTmp As String
Dim i As Integer
Dim bPseydoindex As Boolean

On Error GoTo err_RefreshLink
Set tdef = mDB.TableDefs(strTableName)
With tdef
'Überprüfung auf Pseydoindex
'nur bei Nicht-Access-MDB-Verknüpfungen
If Left(tdef.Connect, Len(conDB)) conDB Then
For i = 0 To .Indexes.Count - 1
'Pseydo-Index vorhanden
If .Indexes(i).Name = "__uniqueindex" Then
bPseydoindex = True
strTmp = Replace(.Indexes(i).Fields, "+", "")
strTmp = Replace(strTmp, ";", ",")
Exit For
End If
Next
End If

'Überprüfung der Verbindung
.RefreshLink

If bPseydoindex Then
'PseydoIndex neu erzeugen
'da er beim RefreshLink gelöscht wird
'strTmp enthält Indexfelder
mDB.Execute "CREATE UNIQUE INDEX __uniqueindex ON " _
& tdef.Name & "(" & strTmp & ") WITH PRIMARY"
strTmp = ""
End If
'Name und Verzeichnis der Datenbank speichern
'Bei Nicht-Access-MDB-Datenbanken ist
'DataMDB MDBDirectory leer
Me.DataMDB = ExtractMDB(.Connect)
strTmp = SplitPath(.Connect)
If strTmp "" Then
Me.MDBDirectory = Right(strTmp, Len(strTmp) - Len(conDB))
End If
End With
RefreshLink = 0

exit_RefreshLink:
Exit Function

err_RefreshLink:
clsErr.Add VBA.Err
RefreshLink = clsErr.Number
Resume exit_RefreshLink

End Function

Function ConnectLink(tdef As TableDef) As Boolean
Dim strConnect As String
Dim strDatabase As String

On Error GoTo err_ConnectLink

' Verknüpfung neu aufbauen
tdef.Connect = ";DATABASE=" & Me.MDBDirectory & Me.DataMDB
tdef.RefreshLink
ConnectLink = True

exit_ConnectLink:
Exit Function

err_ConnectLink:
ConnectLink = False
Resume exit_ConnectLink
End Function

Function ConnectDatabase(tdef As TableDef)
Dim strTmp As String

On Error GoTo err_ConnectDatabase

' Verzeichnis wechseln
ChDir Me.MDBDirectory
' Standarddialogfeld öffnen
strTmp = GetDatabase(conConnectMsg, Me.DataMDB)
' Name und Verzeichnis speichern
Me.DataMDB = ExtractMDB(strTmp)
Me.MDBDirectory = SplitPath(strTmp)
' Verknüpfung aufbauen
tdef.Connect = ";DATABASE=" & Me.MDBDirectory & Me.DataMDB
tdef.RefreshLink
ConnectDatabase = True

exit_ConnectDatabase:
Exit Function

err_ConnectDatabase:
ConnectDatabase = False
MsgBox "Verbindung nicht möglich"
Resume exit_ConnectDatabase
End Function

Private Function SplitPath(ByVal strPath As String) As String
Dim strTmp As String

strTmp = strPath
Do While InStr(strTmp, "\") > 0
strTmp = Right(strTmp, Len(strTmp) - InStr(strTmp, "\"))
Loop
SplitPath = Left(strPath, Len(strPath) - Len(strTmp))
End Function

Private Function GetDatabase(ByVal strTitle As String, _
ByVal strFilename As String) As String
'Für FilaDialog muss Verweis auf
'Microsoft Office 10 Objekt Libary
'gesetz sein
Dim fd As FileDialog
Dim sel As Variant

Set fd = Aplication.FileDialog(msoFileDialogFilePicker)

With fd
'nur eine Datei kann selektiert werden
.AllowMultiSelect = False
'Aufschrift auf Schaltfläche
.ButtonName = "&Verknüpfen§"
'Festlegung der Darstellung der Dateien
.InitialView = msoFileDialogViewList
'Titel des Dialogfeldes
.Title = "Backend-Datenbank verknüpfen"
'Setzen von Filtern für bestimmt Dateitypen
'Zuerst wird die vorhanden Datei gelöscht
.Filters.Clear
'Hinzufügen eines Filters für alle Dateien
.Filters.Add "Alle Dateien", "*.*"
'Hinzufügen eines Filters für Datenbankdateien
.Filters.Add "Datenbanken", "*.mdb; *.mde", 1

'Wenn Dialogfeld nicht abgebrochen
If .show 0 Then
GetDatabase = .Selectitems(1)
End If
End With
Set fd = Nothing

End Function

Private Function ExtractMDB(ByVal strMDB As String) As String
' Ermittelt Datenbanknamen
Dim strDatabase As String

strDatabase = strMDB
Do
strDatabase = Right(strDatabase, Len(strDatabase) _
- InStr(strDatabase, "\"))
Loop Until InStr(strDatabase, "\") = 0
ExtractMDB = strDatabase
End Function

Property Get RefreshErr() As clsError
Set RefreshErr = clsErr

End Property
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

der Alte, 2. September 2015

#10
EBS17

ebs17

clsError ist da ganz sicher noch eine weitere Klasse, zusätzlich zu der bisherigen. Auch die müsste man übernehmen, wie auch evtl. weiteres "Zubehör".

ebs17, 2. September 2015

#11
AXELANDER

Axelander

Hallo Uli,

ich verwende dafür eine relativ einfache Lösung:
Code:

Public Function Tabellen_neu_verknuepfen(ByVal Datenbankpfad As String)
On Error GoTo Err_Handler
Dim db As DAO.Database
Dim Tabellenname As String
Dim tbl As DAO.TableDef

' Vorbelegungen
Set db = DBEngine(0)(0)

For Each tbl In db.TableDefs
' Verknüpfte Tabellen raussuchen
If tbl.SourceTableName "" Then
tbl.Connect = ";DATABASE=" & Datenbankpfad
tbl.RefreshLink
End If
Next tbl

Exit_Here:
Set tbl = Nothing
Set db = Nothing
Exit Function

Err_Handler:
MsgBox "Fehler " & Err.Number & ": " & Err.Description, vbCritical, "Fehler beim Verknüpfen der Tabellen "
Resume Exit_Here
Resume
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du musst dir nur noch eine Lösung ausdenken, woher die auf dem jeweiligen Computer den Pfad zur Datenbank her bekommst.

Gruß

Alex

Axelander, 2. September 2015

#12
DER ALTE

der Alte

Tabellenverknüpfung aktualisieren

Danke Alex für Deine Hilfe. Ich möchte den anderen Code gern anpassen, weil er die Verknüpfungen automatisch wiederherstellt.

Die Klasse clsError habe ich gefunden.
Beim Start über einen Button kommt die die Fehlermeldung "Objekt erforderlich". Im Code wird folgende Text markiert.
Code:

Private Sub Befehl43_Click()
Dim objRefreshLink As New clsRefreshLink
If objRefreshLink.RefreshLink("tblMitglieder") > 0 Then
objRefreshLink.DataMDB = "AfD.mdb"
objRefreshLink.MDBDirectory = objRefreshLink.SplitPath(mDB.Name)
objRefreshLink.RefreshAllLinks
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

der Alte, 2. September 2015

#13
NORBERTK

NorbertK

Hallo allerseits,

vielen Dank für dieses interessante Thema. Ich hatte zwar schon einmal eine ähnliche Funktion in meinem Frontend (die war aber leider nur in der Lage ein Backend neu zu verknüpfen - und ich nutze mehrere verschiedene Backends), aber angeregt durch den Hinweis auf Access AutoLink habe ich auf Databasejournal.com eine leicht anzupassende und gute Lösung gefunden...

Jetzt müsste ich nur noch eine Lösung für verknüpfte Bilder in Formularen und Berichten finden...

Vielleicht hat dazu jemand einen Tipp für mich?!

NorbertK, 3. September 2015

#14
WB_3001

wb_3001

Hallo Uli! Code:

objRefreshLink.MDBDirectory = objRefreshLink.SplitPath(mDB.Name)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nachdem das Objekt objRefreshLink im Stmt davor keinen Fehler warf ist eher anzunehmen,
daß das Objekt mDB nicht existiert.
Grundsätzlich könnten aber auch die Objekte SplitPath oder auch mDB.Name
nicht definiert sein.
mDB.Name: was soll das sein? Der Name einer DB?
Die aktuelle DB, in der der Code plaziert ist?
Dann wäre Application.CurrentProject.Name oder Application.CurrentProject.FullName geeigneter.

Wolfgang

wb_3001, 3. September 2015

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Tabellenverknüpfung aktualisieren

Die Seite wird geladen...

Tabellenverknüpfung aktualisieren - Similar Threads - Tabellenverknüpfung aktualisieren
Werte aus zweiter Datei beim Druck in Feld einer Tabelle einsetzen
in Microsoft Excel Hilfe
Werte aus zweiter Datei beim Druck in Feld einer Tabelle einsetzen: Hallo zusammen Ich habe, wie der Titel sagt, das Problem, dass ich eine Tabelle habe. Diese ist eine Vorlage und soll knapp 300-mal gedruckt werden. ABER: Beim Drucken soll, pro gedruckter...
WORD: Tabellenverknüpfung mit Datenaktualisierung
in Microsoft Word Hilfe
WORD: Tabellenverknüpfung mit Datenaktualisierung: Hallo zusammen, leider konnte mir die Suche nicht weiterhelfen, oder ich schaffe es nicht mein Anliegen richtig zu formulieren. Ich habe folgendes Problem. Eine Worddatei mit einer technischen...
Tabellenverknüpfungs-Manager ist ausgegraut
in Microsoft Access Hilfe
Tabellenverknüpfungs-Manager ist ausgegraut: Hallo an alle Experten. Ich habe eine Access-Datenbank mit einer verknüpften Datei von access 2007 nach access 2016 auf einen neuen Rechner kopiert. Nun möchte ich den Pfad der verknüpften...
Tabellenverknüpfungen aktualisieren per VBA
in Microsoft Access Hilfe
Tabellenverknüpfungen aktualisieren per VBA: Hallo, ich habe eine Programm geschrieben, um dem Tabellenverknüpfungsmanager aus dem Weg zu gehen. Ich hatte nun aber schon eine 3170 ISAM Fehlermeldung. Die habe ich nun nicht mehr dafür nun...
Tabellenverknüpfung zu Excel aktualisieren
in Microsoft Access Hilfe
Tabellenverknüpfung zu Excel aktualisieren: Hallo zusammen, ich habe eine Excel-Tabelle per Import nach Access verknüpft, also die Daten nicht importiert, sondern nur eine Verknüpfung hergestellt. Das hat auch gut funktioniert. Wenn ich...
Excel-TabellenVerknüpfung und Summe von Werten
in Microsoft Excel Hilfe
Excel-TabellenVerknüpfung und Summe von Werten: Hallo, ich habe mich soeben hier angemeldet ind er Hoffnung, dass mir jemand einen Tipp (oder noch besser die Lösung) geben kann. Zum Problem: Ich habe zwei Tabellenblätter. In Tabelle 1 sind...
Button in Tab. soll Zeilen in and. Tab. aus- oder einblenden
in Microsoft Excel Hilfe
Button in Tab. soll Zeilen in and. Tab. aus- oder einblenden: Hallo Ich hab da mal ein Problem das eine Kreative Lösung erfordert. Ich habe eine Excel-Mappe mit mehreren Tabellen. In der ersten "Tests" sind verschiedene Tests aufgelistet ca. 100, in...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden