Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Datenbank Problem
Autor: manfredolino
Datum: 03.01.04 14:45
Hallo, Ich bin zwar kein VBA-Topgenerator aber ich habe das mit '.FieldsAppend und .CreateField' im Griff. Hier ein Beispiel:   Set tabkunde = Verkauf_db.CreateTableDef(ActivName) With tabkunde .Fields.Append .CreateField("Kunde_Index", dbInteger, 5) .Fields.Append .CreateField("Kunde_Nr", dbInteger,10) .Fields.Append .CreateField("Kunde_Wohnung, dbstring,30) .Fields.Append .CreateField("Kunde_Datum", dbDate, 6) .Fields.Append .CreateField("Kunde_Debitor", dbText, 30) .Fields.Append .CreateField("Kunde_Strasse", dbText, 30) .Fields.Append .CreateField("Kunde_Ort", dbText, 30) .Fields.Append .CreateField("Kunde_PLZ", dbinteger, 5) End With Danach den Key setzen With tabkunde Set tabkunde_Index = .CreateIndex("Kunde_Index") With tabkunde_Index .Fields.Append .CreateField("Kunde_Nr", dbinteger,10) .Fields.Append .CreateField("Kunde_Wohnung", dbstring,30)) End With .Indexes.Append tabkunde_Index End With Verkauf_db.TableDefs.Append tab1 Verkauf_db.Close Reset Dann neu öffnen und du kannst darauf normal zugreifen. Gruss Manni Programmierer seit sehr langem aber VB - Neuling

Datenbank Problem	851	firemike	02.01.04 02:41
Re: Datenbank Problem	568	Dieter	02.01.04 09:49
Re: Datenbank Problem	461	firemike	02.01.04 15:39
Re: Datenbank Problem	516	manfredolino	03.01.04 14:45

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