Skip to content

Commit e975c5e

Browse files
committed
Version 1.1.1 (GitHub)
1 parent e91a0bb commit e975c5e

38 files changed

+12752
-1
lines changed

.gitignore

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
/ACLibImportWizard.accdb

README.md

Lines changed: 6 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,2 +1,7 @@
1-
# ACLibImportWizard
1+
# ACLib-Import-Wizard
22
Import code from AccessCodeLib into application by add-in
3+
4+
Details: https://wiki.access-codelib.net/ACLib-Import-Wizard
5+
6+
#### Using the Import-Wizard:
7+
[Video: create new Access application](https://access-codelib.net/videos/ACLib-Import-Wizard/neue-anwendung-erstellen/)

access-add-in/ACLibImportWizard.accda

1.35 MB
Binary file not shown.

access-add-in/Install.vbs

Lines changed: 63 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,63 @@
1+
const AddInName = "ACLib-Import-Wizard"
2+
const AddInFileName = "ACLibImportWizard.accda"
3+
const MsgBoxTitle = "Install/Update ACLib-Import-Wizard"
4+
5+
MsgBox "Vor dem Aktualisieren der Add-In-Datei darf das Add-In nicht geladen sein!" & chr(13) & _
6+
"Zur Sicherheit alle Access-Instanzen schließen.", , MsgBoxTitle & ": Hinweis"
7+
8+
Select Case MsgBox("Soll das Add-In als ACCDE verwendet werden?" + chr(13) & _
9+
"(Add-In wird kompiliert ins Add-In-Verzeichnis kopiert.)", 3, MsgBoxTitle)
10+
case 6 ' vbYes
11+
CreateMde GetSourceFileFullName, GetDestFileFullName
12+
case 7 ' vbNo
13+
FileCopy GetSourceFileFullName, GetDestFileFullName
14+
case else
15+
16+
End Select
17+
18+
19+
'##################################################
20+
' Hilfsfunktionen:
21+
22+
Function GetSourceFileFullName()
23+
GetSourceFileFullName = GetScriptLocation & AddInFileName
24+
End Function
25+
26+
Function GetDestFileFullName()
27+
GetDestFileFullName = GetAddInLocation & AddInFileName
28+
End Function
29+
30+
Function GetScriptLocation()
31+
32+
With WScript
33+
GetScriptLocation = Replace(.ScriptFullName & ":", .ScriptName & ":", "")
34+
End With
35+
36+
End Function
37+
38+
Function GetAddInLocation()
39+
40+
GetAddInLocation = GetAppDataLocation & "Microsoft\AddIns\"
41+
42+
End Function
43+
44+
Function GetAppDataLocation()
45+
46+
Set wsShell = CreateObject("WScript.Shell")
47+
GetAppDataLocation = wsShell.ExpandEnvironmentStrings("%APPDATA%") & "\"
48+
49+
End Function
50+
51+
Function FileCopy(SourceFilePath, DestFilePath)
52+
53+
set fso = CreateObject("Scripting.FileSystemObject")
54+
fso.CopyFile SourceFilePath, DestFilePath
55+
56+
End Function
57+
58+
Function CreateMde(SourceFilePath, DestFilePath)
59+
60+
Set AccessApp = CreateObject("Access.Application")
61+
AccessApp.SysCmd 603, (SourceFilePath), (DestFilePath)
62+
63+
End Function

0 commit comments

Comments
 (0)