title image


Smiley Bestimmte Tabellen löschen
Hallo!



Ich möchte drei Tabellen löschen - sofern sie exitieren. Bei meinem Code wird aber nur die erste der drei gelöscht. Ich habe sicher einen groben Progrmmierlogikfehler - ich sehe ihn aber trotz Brille nicht. Wie muß ich umbauen?



Vielen Dank und einen sonnigen Tag

wünscht Odysseus



Call fctLoeschTab("tbl1", "tbl2", "tbl3")



Public Function fctLoeschTab(strTbl1 As String, strTbl2 As String, strTbl3 As String)



Dim db As DAO.Database

Dim tdf As DAO.TableDef



Set db = CurrentDb()



For Each tdf In db.TableDefs

If tdf.NAME = strTbl1 Then

db.TableDefs.Delete strTbl1

db.TableDefs.Refresh

ElseIf tdf.NAME = strTbl2 Then

db.TableDefs.Delete strTbl2

db.TableDefs.Refresh

ElseIf tdf.NAME = strTbl3 Then

db.TableDefs.Delete strTbl3

db.TableDefs.Refresh

End If

Next tdf



Set db = Nothing



End Function

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: