Fehler bei Feld einfügen

[thorstens1304]

Hallo,

nach einem gestigen Umzug meines Datenbankrechners wirft mir nun das unten abgebildete Script den Fehler: "Unzulässige Verwendung des Schüsselwortes New".

Code [Auswählen] Erweitern

Public Function Test()
Dim db As Database
Dim t As TableDef
Dim f As Field

Set db = CurrentDb
Set t = db.TableDefs("tbl_Datapacks")

'Feld hinzufügen
Set f = New Field
With f
  .Name = "Index"
  .Type = dbLong
  .Attributes = dbAutoIncrField
End With
t.Fields.Append f
End Function

Wo liegt der Fehler jetzt? An der Db wurde an sich nichts geändert. Ich habe aber aufgrund einer anderen Fehlermeldung schon die Verweise ergänzen müssen.

[Hondo]

Hallo,
klingt aber stark nach Verweisproblematik.
Wenn alle Verweise gesetzt sind eventuell mal alle lösbaren Verweise lösen, Verweis-Fenster schließen und neu öffnen, und Verweise wieder einbinden.

Andreas

[thorstens1304]

ich habe es mit einer anderen prozedur gelöst bekommen. Ja, meine Verweise wurden durch den Umzug geändert.