codigoonclose.txt Sacado y adaptado de la Web: http://www.vbaexpress.com/forum/showthread.php?t=37753 DoCmd.OpenTable "Tutabla", acViewNormal Application.Screen.ActiveDatasheet.OnUnload = "NombreDeunaMacro_O_Funcion"