wichtig tabellenexistenz

[Commander_COM]

hallo, mal ne ganz schnelle frage, sehr dringend,

wie kann ich prüfen, unter vba, mit ner if anweisung z.b. ob die Tabelle "temp

existiert?? hab grad ne denkblockade

confused: :confused: :confused:

THX!!:

[Reinhold]

Originally posted by Commander_COM

wie kann ich prüfen, unter vba, mit ner if anweisung z.b. ob die Tabelle "temp

existiert??

Sub TabelleExistiertTesten()

Dim Tabelle As String

Tabelle = InputBox("Welche Tabelle denn?")

If TabelleExistiert(Tabelle) Then

MsgBox "Ja"

Else

MsgBox "Nein"

End If

End Sub

Function TabelleExistiert(Tabellenname As String) As Boolean

Dim i As Variant

TabelleExistiert = False

For Each i In CurrentDb.TableDefs

If i.Name = Tabellenname Then

TabelleExistiert = True

Exit Function

End If

Next i

End Function

[Commander_COM]

Besten Dank, geht super!