Office: (Office 2003) 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 3421 Konvertierungsfehler.
Denke das könnte vielleicht daran liegen, dass ich unterschiedliche Typen verwende oder dass unter den externen Dateien csv Dateien sind.
Vielleicht hat ja jemand eine Ahnung wie man mit den Dateien umgeht?
Habe Datenbanken dabei also mdb dann Excel xls und Csv.

Mein Code:

Private Sub Befehl229_Click()

Dim absPath As String
Dim filename As String
Dim getAbsPath As String

MsgBox ("Alle verknüpften Tabellen werden aktualisiert!")

Dim tdfs As DAO.TableDefs, actTable As DAO.TableDef
Dim nr As Integer
Dim connStr As String, newConnstr As String
Dim leftPos As Integer, rightPos As Integer
Dim strNewPath As String

Set tdfs = CurrentDb.TableDefs

For nr = 1 To tdfs.Count - 1
Set actTable = tdfs(nr)

If actTable.Name = "AV_IMPORT_F" Then
connStr = "\\...\AV_Daten\f.csv"
With actTable
.Connect = connStr
End With
End If

If actTable.Name = "AV_IMPORT_N" Then
connStr = "\\...\AV_Daten\n.csv"
actTable.Connect = connStr
End If

If actTable.Name = "AV_IMPORT_O" Then
connStr = "\\...\AV_Daten\o.csv"
actTable.Connect = connStr
End If

If actTable.Name = "AV_IMPORT_T" Then
connStr = "\\...\AV_Daten\t.csv"
actTable.Connect = connStr
End If

If actTable.Name = "IMPORT_AV_Fa" Then
connStr = "\...\FA.mdb"
actTable.Connect = connStr
End If

If actTable.Name = "IMPORT_AV_To" Then
connStr = "\\...\To.mdb"
actTable.Connect = connStr
End If

If actTable.Name = "KT" Then
connStr = "\\...\KT.xls\Tabelle1$"
actTable.Connect = connStr
End If

Next nr

For Each actTable In tdfs
CurrentDb.TableDefs(actTable).RefreshLink
Next actTable

MsgBox ("Alle verknüpften Tabellen wurden erfolgreich aktualisiert!")


End Sub

:)

 

Hallo
Kannst Du Dein Code so wie hier: http://ms-office-forum.net/forum/sho...?t=102899#usec
beschrieben.
Darstellen code abschnitt.

 

Hallo
einmal TableDefs und einmal TableDef
TableDefs dürfte richtiger sein *Smilie
anstelle von:
Dim tdfs As DAO.TableDefs, actTable As DAO.TableDef
etwa so:
Code:

Noch was
anstelle von den x IF's
Code:

könnte man auch ein Select Case machen etwa so
Code:

noch was vergessen Wilkommen im Forum *Smilie

 

So sieht es doch gleich viel besser aus und die Hilfesteller blicken auch besser/schneller durch. *wink.gif*

Code:

 

\@ Ruedi

Ich denke das ist schon richtig. mit TableDefs sprichst Du die Auflistung an und mit TableDef das einzelne Objekt.

@ MariusHH

Wenn Du schon die Auflistung ansprichst, wieso gehst Du bei der Schleife dann über einen Zähler?

So wäre es doch einfacher/sinniger:

Code:

Wobei das Deine eigentliche Frage auch nicht wirklich klärt. *wink.gif*

Gruß

Rainer

 

Moin,
bin mir ziemlich sicher, dass im Falle einer .mdb vor der Pfadangabe noch ein
Code:

stehen sollte.
Ob es für .csv und sonstige Formate da auch ähnliche Bezeichner gibt, müsstest du mal in der OH nachsehen.
maike

 

Hallo,

vielen Dank für die Antworten.
Habe das nun alles geändert aber bekomme jetzt andere Fehlermeldungen und ich glaube das liegt an meiner Access Version.
Entweder bekomme ich nen ISAM Fehler, habe aber keine Windows CD.
Das Problem tritt auf bei .RefreshLink. Kennt ihr eine andere Funktion, die Verknüpfungen aktualisiert? Ich nicht :/
Also das neu Verknüpfen klappt, aber nicht das Aktualisieren und das brauche ich.

 

\@ MariusHH

Nur mal ins Blaue:

Versuche mal jede Tabelle direkt zu refreshen nachdem Du den Connection-String neu gesetzt hast, anstatt am Ende der Prozedur alle Tabellen zu refreshen.

Möglicherweise könnte das helfen ... könnte mir vorstellen, dass ein Fehler kommt weil Du versuchst auch bei nicht verknüpften Tabellen den Link zu refreshen.

Aber wie gesagt, rein nur aus dem Bauch raus vermutet.

Gruß

Rainer