Hallo Experten,
habe eine FE bei der ich zu Testzwecken ggfls die BE ändern möchte (und dann wieder zurück); dazu verwende ich folgenden Code:
-------------------------------------------
Private Sub V_Click()
Dim td As DAO.TableDef
Dim strPath As String
strPath = "C:\tmp\DB\Vers_be.mdb" 'hier wird die Testdatei eingetragen
For Each td In CurrentDb.TableDefs
If (td.Attributes And dbAttachedTable) = dbAttachedTable Then
td.Connect = ";DATABASE=" & strPath
td.RefreshLink
End If
Next
End Sub
---------------------------------
Funktioniert soweit ganz gut (bei EINER BE, das reicht mit z.Zt.).
Jetzt habe ich noch eine Textdatei verknüpft und die Prozedur steigt bei " td.RefreshLink" mit der Fehlermeldung :"kann die Datei#txt nicht finden" aus.
Kann mir jemand einen Tipp geben wie man die Verknüpfungsänderung auf die .mdb beschränkt?
Danke, Gruß
Hallo,
überprüf die td.Connect-Eigenschaft, ob da am Anfang "Text" drinsteht und überspringe diese Verlinkung.
If (td.Attributes And dbAttachedTable) = dbAttachedTable and not Left(td.Connect, 4) = "TEXT" Then
Hallo,
Danke,
--------------------
and not Left(td.Connect, 4) = "TEXT"
---------------------
genau das war's
Gruß