Hallo,
nach einem gestigen Umzug meines Datenbankrechners wirft mir nun das unten abgebildete Script den Fehler: "Unzulässige Verwendung des Schüsselwortes New".
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.
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
ich habe es mit einer anderen prozedur gelöst bekommen. Ja, meine Verweise wurden durch den Umzug geändert.