[Libreoffice-commits] core.git: wizards/source

[Jean-Pierre Ledure]

 wizards/source/access2base/SubForm.xba |   12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

New commits:
commit 3cf9b747141bc5f74dc64cefbc5d5b2611ab0a4d
Author: Jean-Pierre Ledure <j...@ledure.be>
Date:   Thu Jul 13 17:17:43 2017 +0200

    Access2Base - RecordSource property of SubForm class
    
    Use Command property i.o. ActiveCommand
    because Command is additionally valid when form opened in Design mode
    
    Change-Id: I0c9e545419ec99d444ac15b20466c838d53f738f

diff --git a/wizards/source/access2base/SubForm.xba 
b/wizards/source/access2base/SubForm.xba
index ac452412ad3d..bead65c95248 100644
--- a/wizards/source/access2base/SubForm.xba
+++ b/wizards/source/access2base/SubForm.xba
@@ -124,6 +124,11 @@ Public Function pName() As String          &apos;  For 
compatibility with &lt; V0.9.0
 End Function   &apos;  pName (get)
 
 REM 
-----------------------------------------------------------------------------------------------------------------------
+Property Get ObjectType() As String
+       ObjectType = _PropertyGet(&quot;ObjectType&quot;)
+End Property           &apos;  ObjectType (get)
+
+REM 
-----------------------------------------------------------------------------------------------------------------------
 Property Get OnApproveCursorMove() As Variant
        OnApproveCursorMove = _PropertyGet(&quot;OnApproveCursorMove&quot;)
 End Property   &apos;  OnApproveCursorMove (get)
@@ -259,11 +264,6 @@ Property Let OnUnloading(ByVal pvValue As Variant)
 End Property   &apos;  OnUnloading (set)
 
 REM 
-----------------------------------------------------------------------------------------------------------------------
-Property Get ObjectType() As String
-       ObjectType = _PropertyGet(&quot;ObjectType&quot;)
-End Property           &apos;  ObjectType (get)
-
-REM 
-----------------------------------------------------------------------------------------------------------------------
 Public Function OptionGroup(ByVal Optional pvGroupName As Variant) As Variant
 &apos; Return either an error or an object of type OPTIONGROUP based on its 
name
 
@@ -642,7 +642,7 @@ Dim oDatabase As Object, vBookmark As Variant, oObject As 
Object
                        End With
                        Set _PropertyGet = oObject
                Case UCase(&quot;RecordSource&quot;)
-                       _PropertyGet = DatabaseForm.ActiveCommand
+                       _PropertyGet = DatabaseForm.Command
                Case Else
                        Goto Trace_Error
        End Select
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits