After I run the following Inno script in the Target of the icon I get
C:\VisualReminder\VR.accde /runtime
and I am assuming that it is executing the Runtime A13.
On the PC is also installed Microsoft 365, with a higher version of Access.
On the top of the screen, for some reason there appear the tabs of the open forms. Is this normal?
C:\VisualReminder\VR.accde /runtime
and I am assuming that it is executing the Runtime A13.
On the PC is also installed Microsoft 365, with a higher version of Access.
On the top of the screen, for some reason there appear the tabs of the open forms. Is this normal?
Code:
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
#define MyAppName "myVR"
#define MyAppVersion "3.0"
#define MyAppPublisher "Kosmos Business Systems Ltd"
#define MyAppURL "https://www.KosmosBusiness.com"
#define MyAppExeName "VR.accde"
#define MyAppIcoName "Reminder.ico"
[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{4F20D810-63C4-4EB6-9A1D-BA36AFFFD4BC}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName= "C:\VisualReminder"
UsePreviousAppDir=yes
DisableDirPage=no
DefaultGroupName=VisualReminder {#MyAppVersion}
DisableProgramGroupPage=yes
OutputBaseFilename=MyVR-Setup
Compression=lzma
SolidCompression=yes
PrivilegesRequired=admin
LicenseFile=C:\VisualReminder\InnoSetup\VR-License.txt
[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
[Files]
Source: "C:\VisualReminder\InnoSetup\VR.accde"; DestDir: "{app}"; Flags: ignoreversion replacesameversion
Source: "C:\VisualReminder\InnoSetup\VR_be.accdb"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\VisualReminder\InnoSetup\AccessRuntime_x86_en-us.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\VisualReminder\InnoSetup\Reminder.ico"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\VisualReminder\InnoSetup\TemplateClient.xlsx"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\VisualReminder\InnoSetup\TemplateProduct.xlsx"; DestDir: "{app}"; Flags: ignoreversion
[Icons]
Name: "{autodesktop}\VisualReminder"; Filename: "{app}\VR.accde"; Parameters: "/runtime"; IconFilename: "{app}\{#MyAppIcoName}"; Tasks: desktopicon
[Code]
function PrepareToInstall(var NeedsRestart: Boolean): String;
var
CurVer: string;
key: string;
ResultCode: Integer;
begin
if RegQueryStringValue(HKEY_CLASSES_ROOT, '\Access.Application\CurVer','', CurVer) and ( CurVer = 'Access.Application.15' ) then begin
// Successfully read the value
// MsgBox('Access Version: ' + CurVer ,mbInformation, MB_OK);
end else begin
ExtractTemporaryFile('AccessRuntime_x86_en-us.exe');
if Exec(ExpandConstant('{tmp}\AccessRuntime_x86_en-us.exe'), '', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then begin
//msgbox('AccessRuntime already installed or completed installing successfully.', mbInformation, MB_OK);
end else begin
msgbox('AccessRuntime installer failed please contact support.' + SysErrorMessage(ResultCode), mbInformation, MB_OK );
end;
end;
end;
[Run]
Filename: "{app}\VR.accde"; Description: "Open Visual Reminder"; Flags: postinstall shellexec skipifsilent ; Parameters: "/runtime"