Public Sub CreaHistoriaCambios()
Dim Td As TableDef
Dim IdxDocum As Index
Dim Fld As Field
Dim i As Integer
'Reviso la colección de tablas en busca de la tabla "Historia Cambios"
'BaseGen es mi objeto Database
For i = 0 To BaseGen.TableDefs.Count - 1
'Si existe salgo del procedimiento.
If BaseGen.TableDefs(i).Name = "Historia Cambios" Then Exit Sub
Next i
'Si recorrí la colección sin encontrar una coincidencia,
'creo la tabla.
Set Td = BaseGen.CreateTableDef("Historia Cambios")
'Creo el único campo de mi tabla
'(en este caso, es de texto)
Set Fld = Td.CreateField("Cambio", dbText)
Td.Fields.Append Fld
'Agrego la tabla creada a la colección
BaseGen.TableDefs.Append Td
With Td
' Primero crea objeto Index, crea y agrega los
' objetos Field al objeto Index y después agrega
' el objeto Index a la colección Indexes de
' TableDef.
Set IdxDocum = .CreateIndex("IndCambio")
With IdxDocum
.Fields.Append .CreateField("Cambio")
End With
.Indexes.Append IdxDocum
.Indexes.Refresh
End With
End Sub