🚀 go-pugleaf

Jacek Proszowski wrote in message <4XO72.943$r1.252186@news.tpnet.pl>...
>
>tom <tomnowy@arrakis.cs.put.poznan.pl> wrote in message
>>

[.....]
>>
>>Tomasz Witkowski
>>witek@arrakis.cs.put.poznan.pl
>>
>Czy tabela istnieje?
>1. Otworzyć tabelę
>
>Jeżeli wystąpi błąd to tabela nie istnieje (i dla scisłości baza może być
>zniszczona, brak uprawnień etc)
>
>Zdrowie
>Jacek
>


Mysle, ze ponizsze rozwiazanie jest skuteczniejsze.

--
tadeusz olszewski


' pierwszy parametr funkcji zawiera nazwę szukanego dokumentu
' drugi parametr zawiera nazwę kolekcji, w której jest szukany dokument
' "Modules", "Tables", "Forms", "Reports"


Public Function IsDocInDatabase(strSzukanaTabela As String, _
                                  strTyp As String) As Boolean
    Dim dbs As Database
    Dim crt As Container
    Dim docIndex As Document

    Set dbs = CurrentDb()
    Set crt = dbs.Containers(strTyp)

    IsDocInDatabase = False

    For Each docIndex In crt.documents

        If docIndex.Name = strSzukanaTabela Then
            IsDocInDatabase = True
            Exit For
        End If

    Next

End Function