Sie können die gerade angehängte Tabelle jederzeit aktualisieren, um einen Index/Primärschlüssel aufzunehmen. Etwas wie,
Dim s As String
s = "ODBC;DSN=mydb;Trusted_Connection=Yes;DATABASE=mydb;"
Dim td As TableDef
Set td = CurrentDb.CreateTableDef("vwMyView", 0, "MySchema.vwMyView", s)
CurrentDb.TableDefs.Append td
CurrentDb.Execute "CREATE UNIQUE INDEX SomeIndex ON vwMyView (PrimaryKeyColumn) WITH PRIMARY".
CurrentDb.TableDefs.Refresh
Set td = Nothing
Nicht sicher, ob Sie die CurrentDB aktualisieren müssen, bevor Sie einen INDEX erstellen. Versuchen Sie zuerst eine Aktualisierung ohne, wenn es nicht funktioniert - aktualisieren Sie es und führen Sie dann die CREATE-Anweisung aus.
