Ejemplo de las propiedades de Inicio

El siguiente ejemplo muestra un procedimiento llamado
EstablecerPropiedadesDeInicio que pasa el nombre de 
la propiedad a establecer, su tipo de datos y los valores que se deseen. 
El procedimiento de propósito general CambiarPropiedad intenta
establecer la propiedad de inicio y, si no se encuentra la propiedad, 
usa el método CreateProperty para anexarla a la colección Properties.
Esto es necesario porque estas propiedades no aparecen en la colección
Properties hasta que han sido establecidas o cambiadas al menos una vez.

Sub EstablecerPropiedadesDeInicio()
Const DB_Text As Long = 10
Const DB_Boolean As Long = 1
    CambiarPropiedad "StartupForm", dbText, "Clientes"
    CambiarPropiedad "StartupShowDBWindow", DB_Boolean, False
    CambiarPropiedad "StartupShowStatusBar", DB_Boolean, False
    CambiarPropiedad "AllowBuiltinToolbars", DB_Boolean, False
    CambiarPropiedad "AllowFullMenus", DB_Boolean, True
    CambiarPropiedad "AllowBreakIntoCode", DB_Boolean, False
    CambiarPropiedad "AllowSpecialKeys", DB_Boolean, True
    CambiarPropiedad "AllowBypassKey", DB_Boolean, True
End Sub

Function CambiarPropiedad(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Database, prp As Property
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    CambiarPropiedad = True

Change_Bye:
    Exit Function

Change_Err:
    If Err = conPropNotFoundError Then    ' Propiedad no encontrada.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Error desconocido.
        CambiarPropiedad = False
        Resume Change_Bye
    End If
End Function