Deshabilitar la opción de cerrar el programa de access

[Koudelka]

Estaba intentando hacer lo del siguiente enlace: http://support.microsoft.com/kb/300688/es

El caso es que creo que no lo he hecho bien porque me sale un error en la siguiente línea del módulo:

'Disable the Menu Option
Sub ExitMenuState(blnExitState As Boolean)
Application.CommandBars("File").Controls("Exit").E nabled = blnExitState
End Sub

El módulo se llama cerrar (no se si influye eso) y después he hecho el formulario llamado frmSetCloseState con los dos botones con sus correspondientes nombre y eventos.

Creo que me falla porque no se qué hay que hacer cuando dice de crear el formulario:

Form: frmSetCloseState
-------------------------
Caption: Set Close State

[Taribo007]

Que version de access utilizas???

Un saludo

[Koudelka]

access 2003

[Taribo007]

Pues no puedo probarlo, no tengo esa version. Lo del formulario es lo de menos, simplemente es crear un form, aunque te dice un nombre y caracteristicas, ponlo como quieras, lo unico es llamar a la funcion Call SetEnabledState(True), con true para inabilitar y false para habilitar. En el ejemplo lo hace con dos botones, pero se podria hacer desde cualquier evento.

Un saludo

[Koudelka]

he puesto esto en el formulario

Private Sub Form_Open(Cancel As Integer)
Call SetEnabledState(False)
End Sub

y me da error en la misma línea nada más abrirlo >.<

EDIT: me da error, pero me deshabilita la opción de cerrar el programa XD

[Taribo007]

Ya que hace referencia directa a una barra de herramientas, y a una opcion de esta, y como tendras access en castellano, prueba a poner los nombres en español:

Application.CommandBars("Archivo").Controls("Salir ").E_nabled = blnExitState

El espacio que te he puesto en rojo lo tenias, o ha sido error al copiarlo aqui??

Un slaudo

[Koudelka]

Sigue dando el mismo error, quizás esté en otra parte o_O

[Taribo007]

Que dice exactamente el mensaje de error??

Un saludo

[Koudelka]

Este: