Hoe de primaire sleutel in te stellen bij het koppelen met CreateTableDef

U kunt de tabel die u zojuist hebt bijgevoegd altijd bijwerken met een index-/primaire sleutel. Iets als,

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

Ik weet niet zeker of u de CurrentDB moet vernieuwen voordat u een INDEX maakt. Probeer eerst te verversen zonder, als het niet werkt, ververs het dan en voer de instructie CREATE uit.