Access - Archivos Usados Recientemente

Option Compare Database

Option Explicit

Sub ModificarConfiguracion()

    Dim db As DAO.Database

    Dim prop As DAO.Property

    ' Establece la ruta de la base de datos actual

    Set db = CurrentDb

    ' Busca la propiedad "RecentlyUsedFiles" en la colección de propiedades de la base de datos

    Set prop = db.Properties("RecentlyUsedFiles")

    ' Verifica si la propiedad existe

    If Not prop Is Nothing Then

        ' Modifica el valor de la propiedad a 0 para desactivar los archivos usados recientemente

        prop.Value = 0

        MsgBox "La configuración de Archivos usados recientemente se ha modificado correctamente."

    Else

        ' Si la propiedad no existe, créala y establece su valor en 0

        Set prop = db.CreateProperty("RecentlyUsedFiles", dbLong, 0)

        db.Properties.Append prop

        MsgBox "La configuración de Archivos usados recientemente se ha creado y modificado correctamente."

    End If

    ' Guarda los cambios en la base de datos

    db.Close

    Set db = Nothing

End Sub