From 9e634331a760bbca807741674d03f4c593915dd6 Mon Sep 17 00:00:00 2001
From: Jean-Pierre Ledure <jp@ledure.be>
Date: Wed, 28 Dec 2016 12:29:26 +0100
Subject: Access2Base - Improve precision of query typing

Change-Id: I6c5246809cb533a2c69978008ea996392e2fbe6a
---
 wizards/source/access2base/DataDef.xba | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'wizards')

diff --git a/wizards/source/access2base/DataDef.xba b/wizards/source/access2base/DataDef.xba
index 0b8705555d43..bba8e8517d0d 100644
--- a/wizards/source/access2base/DataDef.xba
+++ b/wizards/source/access2base/DataDef.xba
@@ -490,10 +490,12 @@ Dim sSql As String, sVerb As String, iType As Integer
 			_PropertyGet = Query.Command
 		Case UCase(&quot;Type&quot;)
 			iType = 0
-			sSql = Trim(UCase(Query.Command))
+			sSql = Utils._Trim(UCase(Query.Command))
 			sVerb = Split(sSql, &quot; &quot;)(0)
 			If sVerb = &quot;SELECT&quot; Then iType = iType + dbQSelect
-			If sVerb = &quot;SELECT&quot; And InStr(sSql, &quot; INTO &quot;) &gt; 0 Then iType = iType + dbQMakeTable
+			If sVerb = &quot;SELECT&quot; And InStr(sSql, &quot; INTO &quot;) &gt; 0 _
+			Or sVerb = &quot;CREATE&quot; And InStr(sSql, &quot; TABLE &quot;) &gt; 0 _
+				Then iType = iType + dbQMakeTable
 			If sVerb = &quot;SELECT&quot; And InStr(sSql, &quot; UNION &quot;) &gt; 0 Then iType = iType + dbQSetOperation
 			If Not Query.EscapeProcessing Then iType = iType + dbQSQLPassThrough
 			If sVerb = &quot;INSERT&quot; Then iType = iType + dbQAppend
-- 
cgit