Public Function INICIO()
Dim VAR
Dim base As Database
Dim regis As Recordset

Set base = CurrentDb
Set regis = base.OpenRecordset("PROPIEDAD_VENTANA", dbOpenDynaset)

regis.MoveFirst



VAR = regis!ESTADO_VENTANA





CambiarPropiedad "StartupShowStatusBar", dbBoolean, VAR
CambiarPropiedad "StartupShowDBWindow", dbBoolean, VAR
CambiarPropiedad "AllowBreakIntoCode", dbBoolean, VAR
CambiarPropiedad "AllowBuiltinToolbars", dbBoolean, VAR
CambiarPropiedad "AllowFullMenus", dbBoolean, VAR
CambiarPropiedad "AllowBypassKey", dbBoolean, VAR
CambiarPropiedad "AllowSpecialKeys", dbBoolean, VAR
CambiarPropiedad "AllowToolbarChanges", dbBoolean, VAR

VerPropiedad "StartupShowDBWindow"
   
VerPropiedad "StartupShowStatusBar"
    
VerPropiedad "AllowBuiltinToolbars"
   
VerPropiedad "AllowFullMenus"
 
VerPropiedad "AllowBreakIntoCode"
 
VerPropiedad "AllowSpecialKeys"
   
VerPropiedad "AllowBypassKey"
 
VerPropiedad "AllowToolbarChanges"
  
regis.Close
Set regis = Nothing
Set base = Nothing


End Function

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)