Option Compare Database
Option Explicit
Public boolPropiedad As Boolean

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 ' Propriedad no localizada.

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
Function VerPropiedad(strPropName As String) As Integer

Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
'dbs.Properties(strPropName) = varPropValue
boolPropiedad = dbs.Properties(strPropName).Value

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' Propriedad no localizada.

Resume Next
Else
' Error desconocido.

Resume Change_Bye
End If

End Function