Access - fallo en BD tras protegerla con contraseña, misterio

   
Vista:

fallo en BD tras protegerla con contraseña, misterio

Publicado por foreroadicto (9 intervenciones) el 06/06/2012 14:25:08
Buenas.

Tengo un BD en la cual desde un botón de un formulario ejecuta este código:


Private Sub FESTIVO_Click()
If MsgBox("Realmente deseas REINICIR LA TABLA FESTIVO?", vbQuestion + vbYesNo, "Pregunta") = vbYes Then
Dim cNomTbl As String
'Nombre de la tabla fuente.
cNomTbl = "FESTIVO"
'copiar estructura a nueva tabla: miTablaOrigenCOPIA
DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentDb().Name, acTable, cNomTbl, cNomTbl &

"COPIA", True
'Eliminar la tabla original.
'DoCmd.DeleteObject acTable, cNomTbl
'Renombrar las tablas
DoCmd.Rename cNomTbl, acTable, cNomTbl & "COPIA"
MsgBox "Tabla FESTIVOS reiniciada."
End If
End Sub


Con este código copio la tabla FESTIVO (solo la estructura) , renombro y borro la original. Lo que

consigo es tener la tabla FESTIVO sin registros y con el autonomerico reseteado

Todo funciona de maravilla hasta que se me ocurre proteger la BD con contraseña, la abro en modo exclusivo, herramientas-seguridad-establecer contraseña.

Una vez asegurada, ejecuto la bd, introduzco contraseña, abro el formulario, pulso el botón y me da este error.

Se ha producido el error '7874' en tiempo de ejecución:
Microsoft Access no puede encontrar el objeto 'FESTIVOCOPIA'

Solo me pasa al asegurarla por contraseña, he probado mil cosas y el fallo es por eso.

Que puede ser????

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder