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

1 files changed, 6 insertions, 6 deletions

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