v1.8.0: Localization, import CodeModules from GitHub

Author: josef-poetzl

access-add-in/ACLibFilterFormWizard.accda

@@ -2,27 +2,24 @@ const AddInName = "ACLib-FilterForm-Wizard"
 const AddInFileName = "ACLibFilterFormWizard.accda"
 const MsgBoxTitle = "Install ACLib-FilterForm-Wizard"
 
-MsgBox "Vor dem Aktualisieren der Add-In-Datei darf das Add-In nicht geladen sein!" & chr(13) & _
-       "Zur Sicherheit alle Access-Instanzen schließen.", , MsgBoxTitle & ": Hinweis"
+MsgBox "Before updating the add-in file, the add-in must not be loaded!" & chr(13) & _
+       "Close all access instances for safety.", , MsgBoxTitle & ": Hinweis"
 
-Select Case MsgBox("Soll das Add-In als MDE verwendet werden?" + chr(13) & _
-                   "(Add-In wird kompiliert ins Add-In-Verzeichnis kopiert.)", 3, MsgBoxTitle)
+Select Case MsgBox("Should the add-in be used as a compiled file (accde)?" + chr(13) & _
+                   "(Add-In is compiled and copied to the Add-In directory.)", 3, MsgBoxTitle)
    case 6 ' vbYes
       CreateMde GetSourceFileFullName, GetDestFileFullName
-	  MsgBox "Add-In wurde kompilliert und in '" + GetAddInLocation + "' abgespeichert", , MsgBoxTitle
+      MsgBox "Add-In was compiled and saved in '" + GetAddInLocation + "'.", , MsgBoxTitle
    case 7 ' vbNo
       FileCopy GetSourceFileFullName, GetDestFileFullName
-	  MsgBox "Add-In wurde in '" + GetAddInLocation + "' abgespeichert", , MsgBoxTitle
+      MsgBox "Add-In was saved in '" + GetAddInLocation + "'.", , MsgBoxTitle
    case else
 
 End Select
 
 
-
-
-
 '##################################################
-' Hilfsfunktionen:
+' Utility functions:
 
 Function GetSourceFileFullName()
    GetSourceFileFullName = GetScriptLocation & AddInFileName 
@@ -33,36 +30,26 @@ Function GetDestFileFullName()
 End Function
 
 Function GetScriptLocation()
-
    With WScript
       GetScriptLocation = Replace(.ScriptFullName & ":", .ScriptName & ":", "") 
    End With
-
 End Function
 
 Function GetAddInLocation()
-
    GetAddInLocation = GetAppDataLocation & "Microsoft\AddIns\"
-
 End Function
 
 Function GetAppDataLocation()
-
    Set wsShell = CreateObject("WScript.Shell")
    GetAppDataLocation = wsShell.ExpandEnvironmentStrings("%APPDATA%") & "\"
-
 End Function
 
 Function FileCopy(SourceFilePath, DestFilePath)
-
    set fso = CreateObject("Scripting.FileSystemObject") 
    fso.CopyFile SourceFilePath, DestFilePath
-
 End Function
 
 Function CreateMde(SourceFilePath, DestFilePath)
-
    Set AccessApp = CreateObject("Access.Application")
    AccessApp.SysCmd 603, (SourceFilePath), (DestFilePath)
-
 End Function

access-add-in/Install.vbs

@@ -38,7 +38,7 @@ Private Const APPLICATION_VERSION As String = "1.8.0" '2023-05
 #Const USE_CLASS_APPLICATIONHANDLER_APPFILE = 1
 #Const USE_CLASS_APPLICATIONHANDLER_VERSION = 1
 
-Private Const APPLICATION_NAME As String = "ACLib FilterForm Wizard"
+Public Const APPLICATION_NAME As String = "ACLib FilterForm Wizard"
 Private Const APPLICATION_FULLNAME As String = "Access Code Library - FilterForm Wizard"
 Private Const APPLICATION_TITLE As String = APPLICATION_FULLNAME
 Private Const APPLICATION_ICONFILE As String = "ACLib.ico"