'*********************************************************
' Function TableFieldHasUniqueIndex(
'          Table As String,
'          Columns As String) As Boolean
'
' Devuelve True si el campo de una tabla es un campo
' indexado sin duplicados (propiedad Unique = True)
'
' Argumentos:
'   Table: Nombre de la tabla
'   Columns: Nombre del campo
'
Sub wzTableFieldHasUniqueIndex()
Dim wzTable As String
Dim wzField As String

    WizHook.Key = 51488399

    wzTable = "Tabla1"
    wzField = "campo1"
    
    Debug.Print WizHook.TableFieldHasUniqueIndex _
                       (wzTable, wzField)
    
End Sub
'*********************************************************