Access2Base - setProperty erroneously omitted

Change-Id: I5d2a1b37d80137e6b8fd080d8c2d73372ad0512c
Reviewed-on: https://gerrit.libreoffice.org/9479Reviewed-by: Lionel Elie Mamane <lionel@mamane.lu>
Tested-by: Lionel Elie Mamane <lionel@mamane.lu>

wizards/source/access2base/DataDef.xba

@@ -419,6 +419,15 @@ Exit_Function:
 	Exit Function
 End Function	'	Properties
 
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function setProperty(ByVal Optional psProperty As String, ByVal Optional pvValue As Variant) As Boolean
+'	Return True if property setting OK
+Dim cstThisSub As String
+	cstThisSub = Utils._PCase(_Type) & ".getProperty"
+	Utils._SetCalledSub(cstThisSub)
+	setProperty = _PropertySet(psProperty, pvValue)
+	Utils._ResetCalledSub(cstThisSub)
+End Function
 
 REM -----------------------------------------------------------------------------------------------------------------------
 REM --- PRIVATE FUNCTIONS 								        														---

wizards/source/access2base/Field.xba

@@ -198,6 +198,15 @@ Exit_Function:
 	Exit Function
 End Function		'	ReadAllText
 
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function setProperty(ByVal Optional psProperty As String, ByVal Optional pvValue As Variant) As Boolean
+'	Return True if property setting OK
+Const cstThisSub = "Field.setProperty"
+	Utils._SetCalledSub(cstThisSub)
+	setProperty = _PropertySet(psProperty, pvValue)
+	Utils._ResetCalledSub(cstThisSub)
+End Function
+
 REM -----------------------------------------------------------------------------------------------------------------------
 Public Function WriteAllBytes(ByVal Optional pvFile As Variant) As Boolean
 '	Write the whole content of a Long Binary Field object to a file

wizards/source/access2base/Recordset.xba

@@ -726,6 +726,15 @@ Exit_Function:
 	Exit Function
 End Function	'	Properties
 
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function setProperty(ByVal Optional psProperty As String, ByVal Optional pvValue As Variant) As Boolean
+'	Return True if property setting OK
+Const cstThisSub = "Recordset.setProperty"
+	Utils._SetCalledSub(cstThisSub)
+	setProperty = _PropertySet(psProperty, pvValue)
+	Utils._ResetCalledSub(cstThisSub)
+End Function
+
 REM -----------------------------------------------------------------------------------------------------------------------
 Public Function Update() As Boolean
 '	Finalize the updates of the current record