From eb61c7f98583c50e392dc6272ee2496e7551f0f0 Mon Sep 17 00:00:00 2001 From: Jean-Pierre Ledure Date: Sun, 29 Nov 2015 17:42:17 +0100 Subject: Access2Base - OpenQuery for action queries Change-Id: I6691c01e8a078b14ca753c916c950c958953671f --- wizards/source/access2base/DoCmd.xba | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'wizards') diff --git a/wizards/source/access2base/DoCmd.xba b/wizards/source/access2base/DoCmd.xba index b5c0e9f22ffa..a10e6246e567 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: -- cgit