[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 <jp at 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 <> 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
 	
 	'	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 = "Query" Then		'	Processing for action query
+		Set oQuery = Application._CurrentDb().QueryDefs(pvObjectName)
+		If oQuery.pType <> 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: