[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 <j...@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()               &apos;  Do nothing if resultset empty
                        Set _PropertyGet = oObject
                Case UCase(&quot;RecordSource&quot;)
-                       _PropertyGet = DatabaseForm.ActiveCommand
+                       _PropertyGet = DatabaseForm.Command
                Case UCase(&quot;Visible&quot;)
                        _PropertyGet = ContainerWindow.IsVisible()
                Case UCase(&quot;Width&quot;)
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits