Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Feld einer Tabelle hinzufügen
Autor: BerndF
Datum: 13.07.03 17:02
Hallo habe den nachstehenden Code für das Anfügen eines Feldes in eine bestehende Datenbank geschrieben. Beim Aufruf kommt immer Fehler 13 - Typen unverträglich in der Zeile Set Fld = ........ Kann mir jemande helfen ? Was ist falsch ? Dim db As Database Dim TD As TableDef Dim Fld As Field Dim TblName As String Dim name As String name = defSystemPath & "DR1\DR1Daten.MDB" Set db = OpenDatabase(name, True, False) TblName = "DR1DATEI" & jahr(1) Set TD = db.TableDefs(TblName) 'andere Auslagen Set Fld = TD.CreateField("andereAuslagen", dbDouble, 8) 'hinzufügen TD.Fields.Append Fld db.Close Set db = Nothing

Feld einer Tabelle hinzufügen	169	BerndF	13.07.03 17:02
Re: Feld einer Tabelle hinzufügen	409	Dieter	13.07.03 18:07
Re: Feld einer Tabelle hinzufügen	123	BerndF	13.07.03 19:24

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