Cita:
Iniciado por kikevar 
Hola Culd gracias, me refiero a que si se corrompe un registro y por consiguiente ya no puedo accesar a la bd, como lo puedo reparar, o no se se como llamarlo si reparar o re indecsar o no se, el chiste es que como corrijo ese problema?
Gracias de antemano
Hola, mira prueba este ejemplo para compactar/reparar una BD Access:
Código:
Dim sDBTmp As String, NombreMdb As String
Dim oAccess As New Access.Application
Screen.MousePointer = vbHourglass
NombreMdb = App.Path & "\bd1.mdb"
sDBTmp = "DBTmp.mdb"
' si ya existe el archivo temporal, lo borramos
If Len(Dir$(sDBTmp)) Then Kill sDBTmp
sDBTmp = App.Path & "\" & sDBTmp
' si está abierta la conexión, la cerramos para poder compactar
If cn.State = 1 Then cn.Close
oAccess.CompactRepair NombreMdb, sDBTmp
' Eliminamos la DB original
Kill NombreMdb
' y renombramos la compactada/reparada
Name sDBTmp As NombreMdb
Screen.MousePointer = vbDefault
Para que funcione, tienes que marcar la referencia a "Microsoft Access xx.x Object Library"
