Skip to content

Commit 9a4c848

Browse files
josef-poetzljosef-poetzl
authored
v1.8.2 (#2)
* Natural Docs comments * fix Install script
1 parent 2061417 commit 9a4c848

34 files changed

+1824
-1710
lines changed

‎.gitignore

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1 +1 @@
1-
/ACLibFilterFormWizard.accdb
1+
/*.accdb

‎access-add-in/ACLibFilterFormWizard.accda

-8 KB
Binary file not shown.

‎access-add-in/Install.vbs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@ const MsgBoxTitle = "Install ACLib-FilterForm-Wizard"
55
Dim AddInFileInstalled, CompletedMsg
66

77
MsgBox "Before updating the add-in file, the add-in must not be loaded!" & chr(13) & _
8-
"Close all access instances for safety.", , MsgBoxTitle & ": Hinweis"
8+
"Close all access instances for safety.", , MsgBoxTitle & ": Information"
99

1010
Select Case MsgBox("Should the add-in be used as a compiled file (accde)?" + chr(13) & _
1111
"(Add-In is compiled and copied to the Add-In directory.)", 3, MsgBoxTitle)

‎source/FilterControlManagerCodeBuilder.cls

Lines changed: 9 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -8,15 +8,16 @@ Attribute VB_Creatable = False
88
Attribute VB_PredeclaredId = False
99
Attribute VB_Exposed = False
1010
'---------------------------------------------------------------------------------------
11-
' Klasse: FilterControlManagerCodeBuilder
11+
' Class: FilterControlManagerCodeBuilder
1212
'---------------------------------------------------------------------------------------
13-
'/**
14-
' \author Josef Poetzl
15-
' <summary>
16-
' Code für Import von FilterControlManager
17-
' </summary>
18-
' <remarks></remarks>
19-
'**/
13+
'
14+
' Code for importing FilterControlManager
15+
'
16+
' Author:
17+
' Josef Poetzl
18+
'
19+
'---------------------------------------------------------------------------------------
20+
2021
'---------------------------------------------------------------------------------------
2122
'<codelib>
2223
' <file>%AppFolder%/source/FilterControlManagerCodeBuilder.cls</file>

‎source/FilterFormCodeImporter.cls

Lines changed: 9 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -8,15 +8,16 @@ Attribute VB_Creatable = False
88
Attribute VB_PredeclaredId = False
99
Attribute VB_Exposed = False
1010
'---------------------------------------------------------------------------------------
11-
' Klasse: FilterFormCodeImporter
11+
' Class: FilterFormCodeImporter
1212
'---------------------------------------------------------------------------------------
13-
'/**
14-
' \author Josef Poetzl
15-
' <summary>
16-
' Code für Import von FilterStringBuilder
17-
' </summary>
18-
' <remarks></remarks>
19-
'**/
13+
'
14+
' Import code for filter form
15+
'
16+
' Author:
17+
' Josef Poetzl
18+
'
19+
'---------------------------------------------------------------------------------------
20+
2021
'---------------------------------------------------------------------------------------
2122
'<codelib>
2223
' <file>%AppFolder%/source/FilterFormCodeImporter.cls</file>

‎source/FilterStringBuilderCodeBuilder.cls

Lines changed: 9 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -8,15 +8,16 @@ Attribute VB_Creatable = False
88
Attribute VB_PredeclaredId = False
99
Attribute VB_Exposed = False
1010
'---------------------------------------------------------------------------------------
11-
' Klasse: FilterStringBuilderImporter
11+
' Class: FilterStringBuilderImporter
1212
'---------------------------------------------------------------------------------------
13-
'/**
14-
' \author Josef Poetzl
15-
' <summary>
16-
' Code für Import von FilterStringBuilder
17-
' </summary>
18-
' <remarks></remarks>
19-
'**/
13+
'
14+
' Code for importing FilterStringBuilder
15+
'
16+
' Author:
17+
' Josef Poetzl
18+
'
19+
'---------------------------------------------------------------------------------------
20+
2021
'---------------------------------------------------------------------------------------
2122
'<codelib>
2223
' <file>%AppFolder%/source/FilterStringBuilderCodeBuilder.cls</file>

‎source/IFilterFormCodeBuilder.cls

Lines changed: 8 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -10,13 +10,14 @@ Attribute VB_Exposed = False
1010
'---------------------------------------------------------------------------------------
1111
' Interface: IFilterFormCodeBuilder
1212
'---------------------------------------------------------------------------------------
13-
'/**
14-
' \author Josef Poetzl
15-
' <summary>
16-
' CodeBuilder-Schnittstelle zum Einfügen von Code für FilterControlManager, FilterStringBuilder, ...
17-
' </summary>
18-
' <remarks></remarks>
19-
'**/
13+
'
14+
' CodeBuilder interface for inserting code for FilterControlManager, FilterStringBuilder, ...
15+
'
16+
' Author:
17+
' Josef Poetzl
18+
'
19+
'---------------------------------------------------------------------------------------
20+
2021
'---------------------------------------------------------------------------------------
2122
'<codelib>
2223
' <file>%AppFolder%/source/IFilterFormCodeBuilder.cls</file>

‎source/_config_Application.bas

Lines changed: 10 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -2,13 +2,11 @@ Attribute VB_Name = "_config_Application"
22
'---------------------------------------------------------------------------------------
33
' Modul: _initApplication
44
'---------------------------------------------------------------------------------------
5-
'/**
6-
' <summary>
5+
'
76
' Application configuration
8-
' </summary>
9-
' <remarks>
10-
' </remarks>
11-
'**/
7+
'
8+
'---------------------------------------------------------------------------------------
9+
1210
'---------------------------------------------------------------------------------------
1311
'<codelib>
1412
' <file>%AppFolder%/source/_config_Application.bas</file>
@@ -33,7 +31,7 @@ Option Explicit
3331
Option Private Module
3432

3533
'Version
36-
Private Const APPLICATION_VERSION As String = "1.8.0" '2023-05
34+
Private Const APPLICATION_VERSION As String = "1.8.2" '2023-10
3735

3836
#Const USE_CLASS_APPLICATIONHANDLER_APPFILE = 1
3937
#Const USE_CLASS_APPLICATIONHANDLER_VERSION = 1
@@ -57,15 +55,12 @@ Private m_Extensions As ApplicationHandler_ExtensionCollection
5755
'---------------------------------------------------------------------------------------
5856
' Sub: InitConfig
5957
'---------------------------------------------------------------------------------------
60-
'/**
61-
' <summary>
58+
'
6259
' Init application configuration
63-
' </summary>
64-
' <param name="CurrentAppHandlerRef">Possibility of a reference transfer so that CurrentApplication does not have to be used</param>
65-
' <returns></returns>
66-
' <remarks>
67-
' </remarks>
68-
'**/
60+
'
61+
' Parameters:
62+
' CurrentAppHandlerRef - Possibility of a reference transfer so that CurrentApplication does not have to be used</param>
63+
'
6964
'---------------------------------------------------------------------------------------
7065
Public Sub InitConfig(Optional ByRef CurrentAppHandlerRef As ApplicationHandler = Nothing)
7166

‎source/codelib/_codelib/addins/shared/ACLibGitHubImporter.cls

Lines changed: 23 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -8,16 +8,16 @@ Attribute VB_Creatable = False
88
Attribute VB_PredeclaredId = False
99
Attribute VB_Exposed = False
1010
'---------------------------------------------------------------------------------------
11-
' Klassenmodul: ACLibGitHubImporter
11+
' Class: _codelib.addins.shared.ACLibGitHubImporter
1212
'---------------------------------------------------------------------------------------
13-
'/**
14-
' <summary>
13+
'
1514
' Import GitHub files
16-
' </summary>
17-
' <remarks>
18-
' </remarks>
19-
'\ingroup addins_shared
20-
'**/
15+
'
16+
' Author:
17+
' Josef Poetzl
18+
'
19+
'---------------------------------------------------------------------------------------
20+
2121
'---------------------------------------------------------------------------------------
2222
'<codelib>
2323
' <file>_codelib/addins/shared/ACLibGitHubImporter.cls</file>
@@ -28,8 +28,8 @@ Attribute VB_Exposed = False
2828
Option Compare Database
2929
Option Explicit
3030

31-
Const GitHubContentBaseUrl As String = "https://raw.githubusercontent.com/AccessCodeLib/AccessCodeLib/{branch}/{path}"
32-
Const GitHubApiBaseUrl As String = "https://api.github.com/repos/AccessCodeLib/AccessCodeLib/"
31+
Private Const GitHubContentBaseUrl As String = "https://raw.githubusercontent.com/AccessCodeLib/AccessCodeLib/{branch}/{path}"
32+
Private Const GitHubApiBaseUrl As String = "https://api.github.com/repos/AccessCodeLib/AccessCodeLib/"
3333

3434
Private m_LastCommit As Date
3535
Private m_UseDraftBranch As Boolean
@@ -42,6 +42,9 @@ Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlC
4242
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
4343
#End If
4444

45+
'---------------------------------------------------------------------------------------
46+
' Property: UseDraftBranch
47+
'---------------------------------------------------------------------------------------
4548
Public Property Get UseDraftBranch() As Boolean
4649
UseDraftBranch = m_UseDraftBranch
4750
End Property
@@ -50,20 +53,29 @@ Public Property Let UseDraftBranch(ByVal NewValue As Boolean)
5053
m_UseDraftBranch = NewValue
5154
End Property
5255

56+
'---------------------------------------------------------------------------------------
57+
' Property: RevisionString
58+
'---------------------------------------------------------------------------------------
5359
Public Property Get RevisionString(Optional ByVal Requery As Boolean = False) As String
5460
RevisionString = Format(LastCommit, "yyyymmddhhnnss")
5561
If UseDraftBranch Then
5662
RevisionString = RevisionString & "-draft"
5763
End If
5864
End Property
5965

66+
'---------------------------------------------------------------------------------------
67+
' Property: LastCommit
68+
'---------------------------------------------------------------------------------------
6069
Public Property Get LastCommit(Optional ByVal Requery As Boolean = False) As String
6170
If m_LastCommit = 0 Or Requery Then
6271
m_LastCommit = GetLastCommitFromWeb()
6372
End If
6473
LastCommit = m_LastCommit
6574
End Property
6675

76+
'---------------------------------------------------------------------------------------
77+
' Sub: UpdateCodeModules
78+
'---------------------------------------------------------------------------------------
6779
Public Sub UpdateCodeModules()
6880

6981
Dim SelectSql As String
@@ -95,7 +107,7 @@ Private Sub UpdateCodeModuleInTable(ByVal ModuleName As String, ByVal ACLibPath
95107
Dim DownLoadUrl As String
96108
Dim BranchName As String
97109

98-
TempFile = FileTools.TempPath & ModuleName & ".cls"
110+
TempFile = FileTools.TempPath & ModuleName & FileTools.GetFileExtension(ACLibPath, True)
99111

100112
If UseDraftBranch Then
101113
BranchName = "draft"

0 commit comments

Comments
 (0)