diff options
Diffstat (limited to 'wizards/source/access2base/DataDef.xba')
-rw-r--r-- | wizards/source/access2base/DataDef.xba | 6 |
1 files changed, 4 insertions, 2 deletions
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("Type") iType = 0 - sSql = Trim(UCase(Query.Command)) + sSql = Utils._Trim(UCase(Query.Command)) sVerb = Split(sSql, " ")(0) If sVerb = "SELECT" Then iType = iType + dbQSelect - If sVerb = "SELECT" And InStr(sSql, " INTO ") > 0 Then iType = iType + dbQMakeTable + If sVerb = "SELECT" And InStr(sSql, " INTO ") > 0 _ + Or sVerb = "CREATE" And InStr(sSql, " TABLE ") > 0 _ + Then iType = iType + dbQMakeTable If sVerb = "SELECT" And InStr(sSql, " UNION ") > 0 Then iType = iType + dbQSetOperation If Not Query.EscapeProcessing Then iType = iType + dbQSQLPassThrough If sVerb = "INSERT" Then iType = iType + dbQAppend |