Unknown Module (1 Viewer)

Learn2010

Registered User.
Local time
Today, 17:15
Joined
Sep 15, 2010
Messages
415
I am not very good at reading some code. I inherited a database and found the following code in a module named modSKDisEn and need someone to tell me what it does.

START OF CODE
Public Function SetProperties(strPropName As String, _
varPropType As Variant, varPropValue As Variant) As Integer
On Error GoTo Err_SetProperties
Dim db As DAO.Database, prp As DAO.Property
Set db = CurrentDb
db.Properties(strPropName) = varPropValue
SetProperties = True
Set db = Nothing
Exit_SetProperties:
Exit Function
Err_SetProperties:
If Err = 3270 Then 'Property not found
Set prp = db.CreateProperty(strPropName, varPropType, varPropValue)
db.Properties.Append prp
Resume Next
Else
SetProperties = False
MsgBox "SetProperties", Err.Number, Err.Description
Resume Exit_SetProperties
End If
End Function
END OF CODE

Thank you.
 

Users who are viewing this thread

Top Bottom