RE:Como crear un indice a través de códiigo
Por ejemplo en el Evento Click de un botón:
Dim SQL As String
SQL = "ALTER TABLE NombreTabla ADD CONSTRAINT NombreIndice PRIMARY KEY (NombreCampo)"
CurrentDb.Execute SQL
Dentro del SQL solo tienes que cambiar las palabras en minúsculas por las correctas en tu caso:
NombreTabla, el nombre de la Tabla que contiene el campo a Indexar.
NombreIndice, el nombre que tu quieras ponerle al Indice.
NombreCampo, el nombre del campo a Indexar.
Fíjate que este último va entre paréntesis, los otros no y en caso de que el campo a Indexar ya lo esté, le marcará un error.
Saludos
Enrique