Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Neue Datenbank erstellen, warum error
Autor: Prian0815
Datum: 14.05.04 13:01
Hier ein Code der die Existenz prüft: ' Tabellen-Existent prüfen Public Function dbTableExists( _ Db As Database, _ ByVal sName As String) As Boolean Dim oTabDef As TableDef ' Alle Tabellen durchlaufen... For Each oTabDef In Db.TableDefs If UCase$(oTabDef.Name) = UCase$(sName) Then dbTableExists = True Exit For End If Next End Function Die Funktion erwartet folgende zwei Paramater: Db: Database-Objekt einer geöffneten Datenbank sName: Tabellenname Beispiel für den Aufruf: ' Datenbank öffnen Dim Db As Database Set Db = DBEngine.OpenDatabase("MyDB.mdb") ' Existiert die Tabelle "Adressen"? If Not dbTableExists(Db, "Adressen") Then ' Nein... ... End If Gruß Armin P.S.: always look on thger bright side of Life!

Neue Datenbank erstellen, warum error	1.023	AnGe-Programmie...	12.05.04 16:07
Re: Neue Datenbank erstellen, warum error	634	arminius	12.05.04 22:53
Re: Neue Datenbank erstellen, warum error	633	TommyK	13.05.04 06:40
Re: Neue Datenbank erstellen, warum error	671	AnGe-Programmie...	14.05.04 09:10
Re: Neue Datenbank erstellen, warum error	676	Prian0815	14.05.04 13:01
Re: Neue Datenbank erstellen, warum error	749	TommyK	14.05.04 17:30
Re: Neue Datenbank erstellen, warum error	610	AnGe-Programmie...	15.05.04 14:48

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen