Karma,
thanks for your reply. the function below comes up with error user defind type not defind. Please accept my apologies I am very new to programming.
Public Function CheckIndex()
Dim db As DAO.Database
Dim tbldf As DAO.TableDef
Dim idx As index
Dim empindex As Boolean
Set db =...