[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 <jp at 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		'	For compatibility with < V0.9.0
 End Function	'	pName (get)
 
 REM -----------------------------------------------------------------------------------------------------------------------
+Property Get ObjectType() As String
+	ObjectType = _PropertyGet("ObjectType")
+End Property		'	ObjectType (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
 Property Get OnApproveCursorMove() As Variant
 	OnApproveCursorMove = _PropertyGet("OnApproveCursorMove")
 End Property	'	OnApproveCursorMove (get)
@@ -259,11 +264,6 @@ Property Let OnUnloading(ByVal pvValue As Variant)
 End Property	'	OnUnloading (set)
 
 REM -----------------------------------------------------------------------------------------------------------------------
-Property Get ObjectType() As String
-	ObjectType = _PropertyGet("ObjectType")
-End Property		'	ObjectType (get)
-
-REM -----------------------------------------------------------------------------------------------------------------------
 Public Function OptionGroup(ByVal Optional pvGroupName As Variant) As Variant
 '	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("RecordSource")
-			_PropertyGet = DatabaseForm.ActiveCommand
+			_PropertyGet = DatabaseForm.Command
 		Case Else
 			Goto Trace_Error
 	End Select