Skip to content

Commit

Permalink
Merge pull request #2 from AccessCodeLib/dev
Browse files Browse the repository at this point in the history
Localization + code comments in Natural Docs syntax
  • Loading branch information
josef-poetzl authored Jun 19, 2023
2 parents e2e0f2f + 2475a63 commit 3970cf8
Show file tree
Hide file tree
Showing 40 changed files with 3,390 additions and 3,040 deletions.
3 changes: 3 additions & 0 deletions .Copy2AddInFolder.cmd
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
@echo off
copy ACLibImportWizard.accdb .\access-add-in\ACLibImportWizard.accda
timeout 2
19 changes: 19 additions & 0 deletions .CreateWorkingFileFormAddInFolder.cmd
Original file line number Diff line number Diff line change
@@ -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
2 changes: 1 addition & 1 deletion .gitignore
Original file line number Diff line number Diff line change
@@ -1 +1 @@
/ACLibImportWizard.accdb
/*.accdb
Binary file modified access-add-in/ACLibImportWizard.accda
Binary file not shown.
14 changes: 8 additions & 6 deletions access-add-in/Install.vbs
Original file line number Diff line number Diff line change
@@ -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
Expand Down Expand Up @@ -59,5 +61,5 @@ Function CreateMde(SourceFilePath, DestFilePath)

Set AccessApp = CreateObject("Access.Application")
AccessApp.SysCmd 603, (SourceFilePath), (DestFilePath)

End Function
Loading

0 comments on commit 3970cf8

Please sign in to comment.