diff --git a/Modules/BAPT_Background.cls b/Modules/BAPT_Background.cls index 50fc1b4..5c0ce38 100644 --- a/Modules/BAPT_Background.cls +++ b/Modules/BAPT_Background.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = True '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller, supported by K.D.Gundermann # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/BAPT_Columns.cls b/Modules/BAPT_Columns.cls index 230eebb..693969b 100644 --- a/Modules/BAPT_Columns.cls +++ b/Modules/BAPT_Columns.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = True '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/BAPT_DataSource.cls b/Modules/BAPT_DataSource.cls index 53d8c26..7686c85 100644 --- a/Modules/BAPT_DataSource.cls +++ b/Modules/BAPT_DataSource.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = True '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/BAPT_Font.cls b/Modules/BAPT_Font.cls index 6c54d81..cce454a 100644 --- a/Modules/BAPT_Font.cls +++ b/Modules/BAPT_Font.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = True '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller, supported by K.D.Gundermann # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/BAPT_Helper.cls b/Modules/BAPT_Helper.cls index 5ecf86f..e35e154 100644 --- a/Modules/BAPT_Helper.cls +++ b/Modules/BAPT_Helper.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = False '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/BAPT_JQueryJS.cls b/Modules/BAPT_JQueryJS.cls index c9817a3..c89eb61 100644 --- a/Modules/BAPT_JQueryJS.cls +++ b/Modules/BAPT_JQueryJS.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = True '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/BAPT_JQueryUI.cls b/Modules/BAPT_JQueryUI.cls index b8c19fc..655aa7f 100644 --- a/Modules/BAPT_JQueryUI.cls +++ b/Modules/BAPT_JQueryUI.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = True '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/BAPT_Localization.cls b/Modules/BAPT_Localization.cls index fa5cf56..ca193b0 100644 --- a/Modules/BAPT_Localization.cls +++ b/Modules/BAPT_Localization.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = True '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/BAPT_PivotCSS.cls b/Modules/BAPT_PivotCSS.cls index f5c66e4..e74616b 100644 --- a/Modules/BAPT_PivotCSS.cls +++ b/Modules/BAPT_PivotCSS.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = True '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/BAPT_PivotJS.cls b/Modules/BAPT_PivotJS.cls index 00dfd37..1dfcf7d 100644 --- a/Modules/BAPT_PivotJS.cls +++ b/Modules/BAPT_PivotJS.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = True '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/BAPT_PivotTable.cls b/Modules/BAPT_PivotTable.cls index ce2dece..6813768 100644 --- a/Modules/BAPT_PivotTable.cls +++ b/Modules/BAPT_PivotTable.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = True '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database @@ -188,14 +188,10 @@ Public Sub ShowPivot() 'Declarations Dim strHtml As String + Dim js As String Select Case Me.DisplayIn Case chDisplayIn.chWebBrowserControl -'' CreateEmptyHtmlFile -'' Me.WebBrowserControl.Object.Navigate getHTMLFileName(, True) -'' Do While Me.WebBrowserControl.Object.Busy Or Me.WebBrowserControl.Object.ReadyState <> 4 -'' DoEvents -'' Loop If Me.WebBrowserControl.LocationURL = vbNullString Then CreateEmptyHtmlFile Me.WebBrowserControl.Navigate "https://msaccess/" & getHTMLFileName(, True) @@ -203,23 +199,15 @@ Public Sub ShowPivot() DoEvents Loop End If -'' With Me.WebBrowserControl.Object.Document -'' .Open - strHtml = BAPT.Generator(Me).GenerateHTML - strHtml = Replace(strHtml, vbCrLf, "") -''' .Write strHtml -''' .Close -''' End With - Dim js As String + strHtml = BAPT.Generator(Me).GenerateHTML + If Me.SaveHtmlFileForDebugging = True Then + Call saveHtmlFile(CurrentProject.Path & "\", strHtml) + End If + strHtml = Replace(strHtml, vbCrLf, "") js = js & "document.open();" js = js & "document.write(""" & strHtml & """);" js = js & "document.close();" - Me.WebBrowserControl.ExecuteJavascript js - - If Me.SaveHtmlFileForDebugging = True Then - Call saveHtmlFile(CurrentProject.Path & "\", strHtml) - End If Case chDisplayIn.chWebBrowserActiveX CreateEmptyHtmlFile Me.WebBrowserActiveX.Navigate getHTMLFileName(, True) diff --git a/Modules/BAPT_PivotTableGenerator.cls b/Modules/BAPT_PivotTableGenerator.cls index 30e253c..4c022d9 100644 --- a/Modules/BAPT_PivotTableGenerator.cls +++ b/Modules/BAPT_PivotTableGenerator.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = False '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/BAPT_Rows.cls b/Modules/BAPT_Rows.cls index 06d026c..fc842ac 100644 --- a/Modules/BAPT_Rows.cls +++ b/Modules/BAPT_Rows.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = True '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/BAPT_Scripts.cls b/Modules/BAPT_Scripts.cls index 2615f64..626ba96 100644 --- a/Modules/BAPT_Scripts.cls +++ b/Modules/BAPT_Scripts.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = True '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/BAPT_StringBuilder.cls b/Modules/BAPT_StringBuilder.cls index 38edfbd..3f393f9 100644 --- a/Modules/BAPT_StringBuilder.cls +++ b/Modules/BAPT_StringBuilder.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = False '############################################################################################### '# Copyright (C) 2021, 2023 Thomas Möller # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/BAPT_Style.cls b/Modules/BAPT_Style.cls index 71348d3..258695b 100644 --- a/Modules/BAPT_Style.cls +++ b/Modules/BAPT_Style.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = True '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller, supported by K.D.Gundermann # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/BAPT_Styles.cls b/Modules/BAPT_Styles.cls index 5bfef9f..506744b 100644 --- a/Modules/BAPT_Styles.cls +++ b/Modules/BAPT_Styles.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = True '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller, supported by K.D.Gundermann # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/BAPT__Factory.cls b/Modules/BAPT__Factory.cls index 7992a19..2ff0a8a 100644 --- a/Modules/BAPT__Factory.cls +++ b/Modules/BAPT__Factory.cls @@ -10,7 +10,7 @@ Attribute VB_Exposed = False '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/BAPT__Namespace.bas b/Modules/BAPT__Namespace.bas index 02ff24d..dc3ed49 100644 --- a/Modules/BAPT__Namespace.bas +++ b/Modules/BAPT__Namespace.bas @@ -2,7 +2,7 @@ Attribute VB_Name = "BAPT__Namespace" '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database diff --git a/Modules/mdl_Helpers.bas b/Modules/mdl_Helpers.bas index b04be49..6010023 100644 --- a/Modules/mdl_Helpers.bas +++ b/Modules/mdl_Helpers.bas @@ -2,7 +2,7 @@ Attribute VB_Name = "mdl_Helpers" '############################################################################################### '# Copyright (c) 2021, 2023 Thomas Möller # '# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE # -'# Version 2.01.02 published: 26.03.2023 # +'# Version 2.02.04 published: 27.03.2023 # '############################################################################################### Option Compare Database