diff --git a/Version Control.accda.src/dbs-properties.json b/Version Control.accda.src/dbs-properties.json index 9a828867..8a85aa86 100644 --- a/Version Control.accda.src/dbs-properties.json +++ b/Version Control.accda.src/dbs-properties.json @@ -41,7 +41,7 @@ "Type": 10 }, "AppVersion": { - "Value": "4.0.19", + "Value": "4.0.21", "Type": 10 }, "Auto Compact": { diff --git a/Version Control.accda.src/forms/frmVCSMain.bas b/Version Control.accda.src/forms/frmVCSMain.bas index 422d5258..1f90d7b8 100644 --- a/Version Control.accda.src/forms/frmVCSMain.bas +++ b/Version Control.accda.src/forms/frmVCSMain.bas @@ -18,7 +18,7 @@ Begin Form ItemSuffix =33 Left =3225 Top =2430 - Right =13890 + Right =18945 Bottom =14175 OnUnload ="[Event Procedure]" RecSrcDt = Begin @@ -1894,6 +1894,9 @@ Public Sub FinishBuild(blnFullBuild As Boolean) 'Optional strType As String = "B cmdOpenLogFile.Visible = (Log.LogFilePath <> vbNullString) Me.strLastLogFilePath = Log.LogFilePath + ' Close form if running in silent mode (such as when running automated builds) + If InteractionMode = eimSilent Then DoCmd.Close acForm, Me.Name + End Sub diff --git a/Version Control.accda.src/vbe-project.json b/Version Control.accda.src/vbe-project.json index fad37738..f5bc08c7 100644 --- a/Version Control.accda.src/vbe-project.json +++ b/Version Control.accda.src/vbe-project.json @@ -5,7 +5,7 @@ }, "Items": { "Name": "MSAccessVCS", - "Description": "Version 4.0.16 deployed on 7/12/2023", + "Description": "Version 4.0.21 deployed on 9/6/2023", "FileName": "Version Control.accda", "HelpFile": "", "HelpContextId": 0, diff --git a/Version Control.accda.src/vcs-options.json b/Version Control.accda.src/vcs-options.json index 13180ef6..f7d66b41 100644 --- a/Version Control.accda.src/vcs-options.json +++ b/Version Control.accda.src/vcs-options.json @@ -1,6 +1,6 @@ { "Info": { - "AddinVersion": "4.0.20", + "AddinVersion": "4.0.21", "AccessVersion": "14.0 32-bit" }, "Options": {