Function Set Properties() Put these three functions in the Module of Access 1) Function SetProperties() Public Function SetProperties(PropName As String, PropType As Variant, PropValue As Variant) As Integer On Error GoTo Err_SetProperties Dim db As Database, prop As Property ‘Dim db As DAO.Database, prop As DAO.Property (use in the old version prior 2007) Set db = CurrentDb db.Properties(PropName) = PropValue SetProperties = True Set db = Nothing Exit_SetProperties: Exit Function Err_SetProperties: If Err = 3270 Then ‘case of property not found Set…
Read More