diff --git a/Version Control.accda.src/forms/frmVCSConflict.bas b/Version Control.accda.src/forms/frmVCSConflict.bas index 0890f8da..cc9ad71f 100644 --- a/Version Control.accda.src/forms/frmVCSConflict.bas +++ b/Version Control.accda.src/forms/frmVCSConflict.bas @@ -830,7 +830,6 @@ Attribute VB_Exposed = False Option Compare Database Option Explicit - '--------------------------------------------------------------------------------------- ' Procedure : cmdCancel_Click ' Author : Adam Waller @@ -876,15 +875,25 @@ End Sub '--------------------------------------------------------------------------------------- ' Private Sub Form_Load() - ' Display version (better performance than bound control) lblVersion.Caption = Replace(lblVersion.Caption, "${version}", GetVCSVersion()) + Dim frmList As Form_frmVCSConflictList + Set frmList = Me.sfrmConflictList.Form + ' Update heading caption If Log.OperationType = eotExport Then lblHeading.Caption = "These source files have changed since the last export" + With frmList.cboResolution + .AddItem eResolveConflict.ercSkip & ";" & "Skip" + .AddItem eResolveConflict.ercOverwrite & ";" & "Overwrite source file" + End With Else lblHeading.Caption = "These database objects have changed since the last export" + With frmList.cboResolution + .AddItem eResolveConflict.ercSkip & ";" & "Skip" + .AddItem eResolveConflict.ercOverwrite & ";" & "Overwrite database object" + End With End If End Sub diff --git a/Version Control.accda.src/forms/frmVCSConflictList.bas b/Version Control.accda.src/forms/frmVCSConflictList.bas index 976a8d64..30e45f57 100644 --- a/Version Control.accda.src/forms/frmVCSConflictList.bas +++ b/Version Control.accda.src/forms/frmVCSConflictList.bas @@ -25,7 +25,6 @@ Begin Form End RecordSource ="tblConflicts" DatasheetFontName ="Calibri" - OnLoad ="[Event Procedure]" AllowFormView =0 FilterOnLoad =0 ShowPageMargins =0 @@ -462,22 +461,6 @@ Attribute VB_Exposed = False Option Compare Database Option Explicit - -'--------------------------------------------------------------------------------------- -' Procedure : Form_Load -' Author : Adam Waller -' Date : 5/27/2021 -' Purpose : Load list of conflict resolutions -'--------------------------------------------------------------------------------------- -' -Private Sub Form_Load() - With cboResolution - .AddItem eResolveConflict.ercSkip & ";" & "Skip" - .AddItem eResolveConflict.ercOverwrite & ";" & "Overwrite" - End With -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : txtDiff_Click ' Author : Adam Waller diff --git a/Version Control.accda.src/macros/autoexec.bas b/Version Control.accda.src/macros/autoexec.bas index 408035ae..3a26840d 100644 --- a/Version Control.accda.src/macros/autoexec.bas +++ b/Version Control.accda.src/macros/autoexec.bas @@ -1,17 +1,57 @@ Version =196611 ColumnsShown =0 Begin + Action ="SetLocalVar" + Argument ="__*L0_" + Argument ="[CurrentProject].[IsTrusted]" +End +Begin + Action ="SetLocalVar" + Argument ="__*L0C_" + Argument ="[LocalVars]![__*L0_]" +End +Begin + Condition ="[LocalVars]![__*L0C_]" Action ="RunCode" Argument ="AutoRun()" End +Begin + Action ="SetLocalVar" + Argument ="__*L0C_" + Argument ="(Not [LocalVars]![__*L0_])" +End +Begin + Condition ="[LocalVars]![__*L0C_]" + Action ="MsgBox" + Argument ="The add-In is not trusted currently. Please click \"Enable Contents\" to trust t" + "he add-in and thus execute the startup code normally." + Argument ="-1" + Argument ="2" + Argument ="Add-in is not trusted" +End +Begin + Action ="SetLocalVar" + Argument ="__*L0C_" + Argument ="False" +End Begin Comment ="_AXL:\015\012[Cu" +End +Begin + Comment ="_AXL:rrentProject].[IsTrusted]<" + "Argument Name=\"FunctionName\">AutoRun()The add-I" + "n is not trusted curr" +End +Begin + Comment ="_AXL:ently. Please click \"Enable Contents\" to trust the add-in and thus execut" + "e the startup code normally.Warning?Add-in is not trustedAutoRun()" + Comment ="_AXL:alBlock>" End