Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: TableDef
Autor: Belial
Datum: 05.01.02 18:15
also hier ist mal mein Code vom MenüPunkt Datenbank öffnen: Private Sub mnuOpen_Click() CommonDialog1.Filter = "*.mdb Access-Datenbank | *.mdb" CommonDialog1.ShowOpen Dateiname = CommonDialog1.FileName Dim Db As Database Dim TabDef As TableDef Set Db = OpenDatabase(Dateiname) With Db For Each TabDef In .TableDefs If UCase$(Left$(TabDef.Name, 4)) <> "MSYS" Then List1.AddItem TabDef.Name End If Next End With Dim fld As Field For Each fld In Db.TableDefs("test").Fields ' test ist der TabellenName die mehrere SpaltenÜberschriften enthält die ich zugern ausgeben möchte. MsgBox fld.Name Next 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.221	unbekannt	05.01.02 17:06
Re: TableDef	19	Belial	05.01.02 18:09
Re: TableDef	21	Belial	05.01.02 18:15
Re: TableDef	1.246	unbekannt	05.01.02 18:25
Re: TableDef	21	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