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

[Jean-Pierre Ledure]

 wizards/source/access2base/DoCmd.xba |   10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

New commits:
commit eb61c7f98583c50e392dc6272ee2496e7551f0f0
Author: Jean-Pierre Ledure <j...@ledure.be>
Date:   Sun Nov 29 17:42:17 2015 +0100

    Access2Base - OpenQuery for action queries
    
    Change-Id: I6691c01e8a078b14ca753c916c950c958953671f

diff --git a/wizards/source/access2base/DoCmd.xba 
b/wizards/source/access2base/DoCmd.xba
index b5c0e9f..a10e624 100644
--- a/wizards/source/access2base/DoCmd.xba
+++ b/wizards/source/access2base/DoCmd.xba
@@ -2086,7 +2086,7 @@ Dim oDatabase As Object
        If oDatabase._DbConnect &lt;&gt; DBCONNECTBASE Then Goto 
Error_NotApplicable
                        
 Dim sObjects() As String, sObjectName As String, oController As Object, 
oObject As Object
-Dim i As Integer, bFound As Boolean, lComponent As Long
+Dim i As Integer, bFound As Boolean, lComponent As Long, oQuery As Object
        
        &apos;  Check existence of object and find its exact (case-sensitive) 
name
        Select Case psObjectType
@@ -2110,12 +2110,20 @@ Dim i As Integer, bFound As Boolean, lComponent As Long
        Next i
        If Not bFound Then Goto Trace_NotFound
 
+       If psObjectType = &quot;Query&quot; Then                &apos;  
Processing for action query
+               Set oQuery = Application._CurrentDb().QueryDefs(pvObjectName)
+               If oQuery.pType &lt;&gt; dbQSelect Then
+                       _OpenObject = oQuery.Execute()
+                       GoTo Exit_Function
+               End If
+       End If
        Set oController = oDatabase.Document.CurrentController
        Set oObject = oController.loadComponent(lComponent, sObjectName, ( 
pvView = acViewDesign ))
        _OpenObject = True      
 
 Exit_Function:
        Set oObject = Nothing
+       Set oQuery = Nothing
        Set oController = Nothing
        Exit Function
 Error_Function:
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice-commits