Merge pull request #2 from AccessCodeLib/dev

Localization + code comments in Natural Docs syntax

Author: josef-poetzl

.Copy2AddInFolder.cmd

@@ -0,0 +1,3 @@
+@echo off
+copy ACLibImportWizard.accdb .\access-add-in\ACLibImportWizard.accda
+timeout 2

.CreateWorkingFileFormAddInFolder.cmd

@@ -0,0 +1,19 @@
+@echo off
+
+if exist .\ACLibImportWizard.accdb (
+set /p CopyFile=ACLibImportWizard.accdb exists .. overwrite with access-add-in\ACLibImportWizard.accda? [Y/N]:
+) else (
+set CopyFile=Y
+)
+
+if /I %CopyFile% == Y (
+	echo File is copied ...
+) else (
+	echo Batch is cancelled
+	pause
+	exit
+)
+
+copy .\access-add-in\ACLibImportWizard.accda ACLibImportWizard.accdb
+
+timeout 2

.gitignore

@@ -1 +1 @@
-/ACLibImportWizard.accdb
+/*.accdb

access-add-in/ACLibImportWizard.accda

@@ -1,16 +1,18 @@
-const AddInName = "ACLib-Import-Wizard"
+const AddInName = "ACLib Import Wizard"
 const AddInFileName = "ACLibImportWizard.accda"
 const MsgBoxTitle = "Install/Update ACLib-Import-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 & ": Information"
 
-Select Case MsgBox("Soll das Add-In als ACCDE 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 ACCDE?" + chr(13) & _
+                   "(The compiled Add-In is copied into the Add-In directory.)", 3, MsgBoxTitle)
    case 6 ' vbYes
       CreateMde GetSourceFileFullName, GetDestFileFullName
+	MsgBox "Compiled add-in created"
    case 7 ' vbNo
       FileCopy GetSourceFileFullName, GetDestFileFullName
+	MsgBox "Add-In file was copied"
    case else
 
 End Select
@@ -59,5 +61,5 @@ Function CreateMde(SourceFilePath, DestFilePath)
 
    Set AccessApp = CreateObject("Access.Application")
    AccessApp.SysCmd 603, (SourceFilePath), (DestFilePath)
-
+   
 End Function