diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2015-11-29 17:42:17 +0100 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2015-11-29 17:42:17 +0100 |
| commit | eb61c7f98583c50e392dc6272ee2496e7551f0f0 (patch) | |
| tree | c96a4fdb8c50c90c4b852f402630a1642e092c0b /wizards | |
| parent | 89f8bc6340bc15360ce27acf1a6365c2c568110f (diff) | |
Access2Base - OpenQuery for action queries
Change-Id: I6691c01e8a078b14ca753c916c950c958953671f
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/DoCmd.xba | 10 |
1 files changed, 9 insertions, 1 deletions
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: |