Add more types of queries that should not be formatted by SQL formatt…

…er because they are a variant of pass-through queries.
josef-poetzl · Oct 20, 2023 · 5b5e037 · 5b5e037
1 parent 736c33c
commit 5b5e037
Showing 1 changed file with 11 additions and 6 deletions.
diff --git a/Version Control.accda.src/modules/clsDbQuery.cls b/Version Control.accda.src/modules/clsDbQuery.cls
@@ -62,12 +62,17 @@ Private Sub IDbComponent_Export(Optional strAlternatePath As String)
             On Error GoTo 0
             If strSql <> vbNullString Then
                 ' Pass-through queries should not be formatted, since they support formatting and comments.
-                If Options.SaveQuerySQL And dbs.QueryDefs(m_Query.Name).Type <> dbQSQLPassThrough Then
-                    With New clsSqlFormatter
-                        Perf.OperationStart "Format SQL"
-                        WriteFile .FormatSQL(strSql), strFile
-                        Perf.OperationEnd
-                    End With
+                If Options.SaveQuerySQL Then
+                    Select Case dbs.QueryDefs(m_Query.Name).Type
+                        Case dbQSQLPassThrough, dbQSPTBulk, dbQSetOperation
+                            'Do not format
+                        Case Else
+                            With New clsSqlFormatter
+                                Perf.OperationStart "Format SQL"
+                                WriteFile .FormatSQL(strSql), strFile
+                                Perf.OperationEnd
+                            End With
+                    End Select
                 Else
                     WriteFile strSql, strFile
                 End If