CISA FotoGallery

Statistiche

Tot. visite contenuti : 928014
Home Articoli tecnici VBA Aggiungere un indice ad un campo

Aggiungere un indice ad un campo

Preso da i.c.a.a:

Sub CreatePrimaryKeys()

Dim dbs As Database, tdfNuovo As TableDef
Dim idxNuovo As Index

Set dbs = CurrentDb

Set tdfNuovo = dbs.TableDefs("NomeTuaTabella")
With tdfNuovo
Set idxNuovo = .CreateIndex("NomeApiacereIndice")
idxNuovo.Fields.Append
idxNuovo.CreateField("NomeCampoEsistenteCheDiventaPK")
idxNuovo.Primary = True
.Indexes.Append idxNuovo
End With


dbs.Close
Set dbs = Nothing
End Sub


Il tutto funziona se nel campo non sono presenti duplicati, valori Null o vuoti...