PDA

Vollständige Version anzeigen : eingebundene tabellen...


klemens
07.05.2001, 20:43
hallo,

ich suche eine VB funktion ala:

lösche_eingebunden_tabelle(tab)

dabei soll geprüft werden ob "tab" eine eingebundene tabelle ist, ansonsten nicht löschen. ( ich will doch nicht aus versehen meine daten schmeissen. )

eine ist_eingebundene_tabelle(tab)= boolian tät auch schon helfen...

grüsse
.klemens

WalterS
07.05.2001, 20:50
alle Tabellen sind im TableDefs Objekt vorhanden über .connect kann man feststellen ob es sich um verknüpfte Tabellen handelt

klemens
07.05.2001, 21:06
ok, jetzt hab ichs geschnallt:

die funktion die das kann:
Public Function is_linked(p_tabName As String) As Boolean

Dim db As DATABASE
Dim tf As TableDef
Dim v_connect As String
Dim ret As Boolean

Set db = CurrentDb
Set tf = db.TableDefs(p_tabName)

v_connect = tf.Connect

Debug.Print " connect von " & p_tabName & " = " & v_connect

If v_connect <> "" Then ret = True

db.Close
is_linked = ret

End Function


----
"delMe" = lokale tabelle
"kunden" = verknüpfte tabelle


print is_linked("delme")
connect von delme = ""
Falsch

print is_linked("kunden")
connect von kunden = ;DATABASE=c:\pfad\db.mdb
Wahr