diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2014-05-25 18:46:57 +0200 |
|---|---|---|
| committer | Lionel Elie Mamane <lionel@mamane.lu> | 2014-05-27 05:49:59 -0500 |
| commit | c3fe2934ffc1d3c14c19bcb758d125a5d6df783f (patch) | |
| tree | b88d062aab898dda231897d6b1de97f6e3b618e3 /wizards | |
| parent | e7fa9b167900ed270d0d4e8661e145e63cdbb627 (diff) | |
Access2Base - setProperty erroneously omitted
Change-Id: I5d2a1b37d80137e6b8fd080d8c2d73372ad0512c
Reviewed-on: https://gerrit.libreoffice.org/9479
Reviewed-by: Lionel Elie Mamane <lionel@mamane.lu>
Tested-by: Lionel Elie Mamane <lionel@mamane.lu>
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/DataDef.xba | 9 | ||||
| -rw-r--r-- | wizards/source/access2base/Field.xba | 9 | ||||
| -rw-r--r-- | wizards/source/access2base/Recordset.xba | 9 |
3 files changed, 27 insertions, 0 deletions
diff --git a/wizards/source/access2base/DataDef.xba b/wizards/source/access2base/DataDef.xba index 4236548de25d..061a7c79232b 100644 --- a/wizards/source/access2base/DataDef.xba +++ b/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 --- diff --git a/wizards/source/access2base/Field.xba b/wizards/source/access2base/Field.xba index 4819e832e631..871133f2eba6 100644 --- a/wizards/source/access2base/Field.xba +++ b/wizards/source/access2base/Field.xba @@ -199,6 +199,15 @@ 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 diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba index 16fc3a2785b6..1a25e36411fe 100644 --- a/wizards/source/access2base/Recordset.xba +++ b/wizards/source/access2base/Recordset.xba @@ -727,6 +727,15 @@ 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 |