Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

TableDef
Autor: Belial
Datum: 05.01.02 07:46
Hi, ich hab da ein Problem. Ich bekomm es einfach nicht hin Tabellennamen einer Acces DatenBank auszugeben, auch mit diesem angeblich einfachen Beispiel nicht. Bei wem es geht der soll doch bitte schreiben wie er es genau machte. Danke Public Sub ZeigeAccessTab(ByVal dbFile As String) 'dbFile: vollständiger Dateiname inkl. ' Pfadangabe zur MDB-Datei Dim Db As Database Dim TabDef As TableDef Set Db = OpenDatabase(dbFile) With Db For Each TabDef In .TableDefs If UCase$(Left$(TabDef.Name, 4)) <> "MSYS" Then List1.AddItem TabDef.Name End If Next End With Db.Close Set Db = Nothing End Sub

TableDef	39	Belial	05.01.02 07:46
Re: TableDef	21	Belial	05.01.02 08:02
Re: TableDef	1.220	unbekannt	05.01.02 17:06
Re: TableDef	19	Belial	05.01.02 18:09
Re: TableDef	20	Belial	05.01.02 18:15
Re: TableDef	1.246	unbekannt	05.01.02 18:25
Re: TableDef	20	Belial	05.01.02 18:33
Re: TableDef	1.232	unbekannt	05.01.02 18:39
Re: TableDef	18	Belial	05.01.02 18:47
Re: TableDef	1.306	unbekannt	05.01.02 18:50

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