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

[Jean-Pierre Ledure]

 wizards/source/access2base/Form.xba |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

New commits:
commit 6845c370a7371a142458fc18716687d6c97d397a
Author: Jean-Pierre Ledure <jp at ledure.be>
Date:   Mon Jul 3 18:12:51 2017 +0200

    Access2Base - RecordSource property of Form class
    
    Use Command instead of ActiveCommand
    which delivers only SQL statements while expected
    command type should be table, query or sql
    
    Change-Id: I824a02cf5dab7b59f70b3a0ae9ba9f874e86733b

diff --git a/wizards/source/access2base/Form.xba b/wizards/source/access2base/Form.xba
index 66962d1c3de5..4ae6404e53b4 100644
--- a/wizards/source/access2base/Form.xba
+++ b/wizards/source/access2base/Form.xba
@@ -923,7 +923,7 @@ Dim i As Integer, oObject As Object
 			If Not ( oObject._BOF And oObject._EOF ) Then oObject.MoveFirst()		'	Do nothing if resultset empty
 			Set _PropertyGet = oObject
 		Case UCase("RecordSource")
-			_PropertyGet = DatabaseForm.ActiveCommand
+			_PropertyGet = DatabaseForm.Command
 		Case UCase("Visible")
 			_PropertyGet = ContainerWindow.IsVisible()
 		Case UCase("Width")