BE ändern

[Walter P.]

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ß

[DF6GL]

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

[Walter P.]

Hallo,

Danke,
--------------------
and  not Left(td.Connect, 4) = "TEXT"
---------------------
genau das war's

Gruß