Sono disperata!!!
Questo è il codice x creare un indice su
2 campi della tabella ke si trova nel mio database:
Dim tb As tabledef
Dim id As Index
Set tb = Database.tabledefs!tabella
'creazione indice
Set id = tb.createindex("codiceindex")
'primo campo
id.fields.append id.createfield("1campo")
'secondo campo
id.fields.append id.createfield("2campo")
'accodamento dell'indice id nella definizione di tabella
tb.indexes.append id
tb.indexes.Refresh
ma non mi funziona! Sono disperata! :-(
L' errore me lo da nella prima riga!
|