diff --git a/access-add-in/AccUnitLoader.accda b/access-add-in/AccUnitLoader.accda index f11a264..9454107 100644 Binary files a/access-add-in/AccUnitLoader.accda and b/access-add-in/AccUnitLoader.accda differ diff --git a/access-add-in/source/forms/AccUnitLoaderForm.bas b/access-add-in/source/forms/AccUnitLoaderForm.bas index 1d93a2e..3548ab6 100644 --- a/access-add-in/source/forms/AccUnitLoaderForm.bas +++ b/access-add-in/source/forms/AccUnitLoaderForm.bas @@ -17,10 +17,10 @@ Begin Form Width =10604 DatasheetFontHeight =11 ItemSuffix =125 - Left =-21090 - Top =3030 - Right =-255 - Bottom =15015 + Left =3855 + Top =2775 + Right =22245 + Bottom =13815 OnUnload ="[Event Procedure]" RecSrcDt = Begin 0x212b6fd80e9ce340 @@ -107,7 +107,7 @@ Begin Form Begin CommandButton TabStop = NotDefault OverlapFlags =85 - Left =9885 + Left =9908 Top =120 Width =570 Height =495 @@ -157,9 +157,9 @@ Begin Form GroupTable =2 BottomPadding =150 - LayoutCachedLeft =9885 + LayoutCachedLeft =9908 LayoutCachedTop =120 - LayoutCachedWidth =10455 + LayoutCachedWidth =10478 LayoutCachedHeight =615 ColumnStart =5 ColumnEnd =5 @@ -174,7 +174,7 @@ Begin Form TextAlign =1 BackStyle =0 IMESentenceMode =3 - Left =2790 + Left =2805 Top =120 Width =7035 Height =495 @@ -188,9 +188,9 @@ Begin Form GroupTable =2 BottomPadding =150 - LayoutCachedLeft =2790 + LayoutCachedLeft =2805 LayoutCachedTop =120 - LayoutCachedWidth =9825 + LayoutCachedWidth =9840 LayoutCachedHeight =615 ColumnStart =2 ColumnEnd =4 @@ -205,7 +205,7 @@ Begin Form TextAlign =1 Left =120 Top =120 - Width =2610 + Width =2618 Height =495 FontSize =10 Name ="Label5" @@ -214,7 +214,7 @@ Begin Form BottomPadding =150 LayoutCachedLeft =120 LayoutCachedTop =120 - LayoutCachedWidth =2730 + LayoutCachedWidth =2738 LayoutCachedHeight =615 ColumnEnd =1 LayoutGroup =1 @@ -252,8 +252,8 @@ Begin Form Begin CommandButton TabStop = NotDefault OverlapFlags =85 - Left =2790 - Top =1380 + Left =2805 + Top =1395 Width =4980 Height =405 TabIndex =5 @@ -263,10 +263,10 @@ Begin Form GroupTable =2 BottomPadding =150 - LayoutCachedLeft =2790 - LayoutCachedTop =1380 - LayoutCachedWidth =7770 - LayoutCachedHeight =1785 + LayoutCachedLeft =2805 + LayoutCachedTop =1395 + LayoutCachedWidth =7785 + LayoutCachedHeight =1800 PictureCaptionArrangement =5 RowStart =2 RowEnd =2 @@ -281,8 +281,8 @@ Begin Form Begin CommandButton TabStop = NotDefault OverlapFlags =85 - Left =2790 - Top =1965 + Left =2805 + Top =1988 Width =4980 Height =405 TabIndex =6 @@ -292,10 +292,10 @@ Begin Form GroupTable =2 BottomPadding =150 - LayoutCachedLeft =2790 - LayoutCachedTop =1965 - LayoutCachedWidth =7770 - LayoutCachedHeight =2370 + LayoutCachedLeft =2805 + LayoutCachedTop =1988 + LayoutCachedWidth =7785 + LayoutCachedHeight =2393 PictureCaptionArrangement =5 RowStart =3 RowEnd =3 @@ -310,8 +310,8 @@ Begin Form Begin CommandButton TabStop = NotDefault OverlapFlags =85 - Left =2790 - Top =795 + Left =2805 + Top =803 Width =4980 Height =405 TabIndex =4 @@ -321,10 +321,10 @@ Begin Form GroupTable =2 BottomPadding =150 - LayoutCachedLeft =2790 - LayoutCachedTop =795 - LayoutCachedWidth =7770 - LayoutCachedHeight =1200 + LayoutCachedLeft =2805 + LayoutCachedTop =803 + LayoutCachedWidth =7785 + LayoutCachedHeight =1208 PictureCaptionArrangement =5 RowStart =1 RowEnd =1 @@ -338,16 +338,16 @@ Begin Form End Begin EmptyCell Left =120 - Top =795 - Width =2610 + Top =803 + Width =2618 Height =405 Name ="EmptyCell71" GroupTable =2 BottomPadding =150 LayoutCachedLeft =120 - LayoutCachedTop =795 - LayoutCachedWidth =2730 - LayoutCachedHeight =1200 + LayoutCachedTop =803 + LayoutCachedWidth =2738 + LayoutCachedHeight =1208 RowStart =1 RowEnd =1 ColumnEnd =1 @@ -355,17 +355,17 @@ Begin Form GroupTable =2 End Begin EmptyCell - Left =7830 - Top =795 + Left =7845 + Top =803 Width =1995 Height =405 Name ="EmptyCell73" GroupTable =2 BottomPadding =150 - LayoutCachedLeft =7830 - LayoutCachedTop =795 - LayoutCachedWidth =9825 - LayoutCachedHeight =1200 + LayoutCachedLeft =7845 + LayoutCachedTop =803 + LayoutCachedWidth =9840 + LayoutCachedHeight =1208 RowStart =1 RowEnd =1 ColumnStart =4 @@ -375,16 +375,16 @@ Begin Form End Begin EmptyCell Left =120 - Top =1380 - Width =2610 + Top =1395 + Width =2618 Height =405 Name ="EmptyCell76" GroupTable =2 BottomPadding =150 LayoutCachedLeft =120 - LayoutCachedTop =1380 - LayoutCachedWidth =2730 - LayoutCachedHeight =1785 + LayoutCachedTop =1395 + LayoutCachedWidth =2738 + LayoutCachedHeight =1800 RowStart =2 RowEnd =2 ColumnEnd =1 @@ -392,17 +392,17 @@ Begin Form GroupTable =2 End Begin EmptyCell - Left =7830 - Top =1380 - Width =2625 + Left =7845 + Top =1395 + Width =2633 Height =405 Name ="EmptyCell78" GroupTable =2 BottomPadding =150 - LayoutCachedLeft =7830 - LayoutCachedTop =1380 - LayoutCachedWidth =10455 - LayoutCachedHeight =1785 + LayoutCachedLeft =7845 + LayoutCachedTop =1395 + LayoutCachedWidth =10478 + LayoutCachedHeight =1800 RowStart =2 RowEnd =2 ColumnStart =4 @@ -412,16 +412,16 @@ Begin Form End Begin EmptyCell Left =120 - Top =1965 - Width =2610 + Top =1988 + Width =2618 Height =405 Name ="EmptyCell81" GroupTable =2 BottomPadding =150 LayoutCachedLeft =120 - LayoutCachedTop =1965 - LayoutCachedWidth =2730 - LayoutCachedHeight =2370 + LayoutCachedTop =1988 + LayoutCachedWidth =2738 + LayoutCachedHeight =2393 RowStart =3 RowEnd =3 ColumnEnd =1 @@ -429,17 +429,17 @@ Begin Form GroupTable =2 End Begin EmptyCell - Left =7830 - Top =1965 + Left =7845 + Top =1988 Width =1995 Height =405 Name ="EmptyCell83" GroupTable =2 BottomPadding =150 - LayoutCachedLeft =7830 - LayoutCachedTop =1965 - LayoutCachedWidth =9825 - LayoutCachedHeight =2370 + LayoutCachedLeft =7845 + LayoutCachedTop =1988 + LayoutCachedWidth =9840 + LayoutCachedHeight =2393 RowStart =3 RowEnd =3 ColumnStart =4 @@ -451,8 +451,8 @@ Begin Form TabStop = NotDefault OverlapFlags =85 Left =120 - Top =3300 - Width =5160 + Top =3338 + Width =5175 Height =465 TabIndex =8 Name ="cmdInsertFactoryModule" @@ -462,9 +462,9 @@ Begin Form BottomPadding =150 LayoutCachedLeft =120 - LayoutCachedTop =3300 - LayoutCachedWidth =5280 - LayoutCachedHeight =3765 + LayoutCachedTop =3338 + LayoutCachedWidth =5295 + LayoutCachedHeight =3803 PictureCaptionArrangement =5 RowStart =5 RowEnd =5 @@ -476,17 +476,17 @@ Begin Form GroupTable =2 End Begin EmptyCell - Left =9885 - Top =795 + Left =9908 + Top =803 Width =570 Height =405 Name ="EmptyCell93" GroupTable =2 BottomPadding =150 - LayoutCachedLeft =9885 - LayoutCachedTop =795 - LayoutCachedWidth =10455 - LayoutCachedHeight =1200 + LayoutCachedLeft =9908 + LayoutCachedTop =803 + LayoutCachedWidth =10478 + LayoutCachedHeight =1208 RowStart =1 RowEnd =1 ColumnStart =5 @@ -495,17 +495,17 @@ Begin Form GroupTable =2 End Begin EmptyCell - Left =9885 - Top =1965 + Left =9908 + Top =1988 Width =570 Height =405 Name ="EmptyCell95" GroupTable =2 BottomPadding =150 - LayoutCachedLeft =9885 - LayoutCachedTop =1965 - LayoutCachedWidth =10455 - LayoutCachedHeight =2370 + LayoutCachedLeft =9908 + LayoutCachedTop =1988 + LayoutCachedWidth =10478 + LayoutCachedHeight =2393 RowStart =3 RowEnd =3 ColumnStart =5 @@ -516,8 +516,8 @@ Begin Form Begin CommandButton TabStop = NotDefault OverlapFlags =85 - Left =9885 - Top =3300 + Left =9908 + Top =3338 Width =570 Height =465 TabIndex =9 @@ -528,10 +528,10 @@ Begin Form GroupTable =2 BottomPadding =150 - LayoutCachedLeft =9885 - LayoutCachedTop =3300 - LayoutCachedWidth =10455 - LayoutCachedHeight =3765 + LayoutCachedLeft =9908 + LayoutCachedTop =3338 + LayoutCachedWidth =10478 + LayoutCachedHeight =3803 PictureCaptionArrangement =5 RowStart =5 RowEnd =5 @@ -546,8 +546,8 @@ Begin Form Begin CommandButton TabStop = NotDefault OverlapFlags =85 - Left =9885 - Top =2550 + Left =9908 + Top =2580 Width =570 Height =570 TabIndex =7 @@ -596,10 +596,10 @@ Begin Form 0x0000000000000000 End - LayoutCachedLeft =9885 - LayoutCachedTop =2550 - LayoutCachedWidth =10455 - LayoutCachedHeight =3120 + LayoutCachedLeft =9908 + LayoutCachedTop =2580 + LayoutCachedWidth =10478 + LayoutCachedHeight =3150 RowStart =4 RowEnd =4 ColumnStart =5 @@ -612,17 +612,17 @@ Begin Form Begin Label OverlapFlags =85 TextAlign =2 - Left =735 - Top =2550 - Width =9090 + Left =743 + Top =2580 + Width =9097 Height =570 Name ="labInfo" GroupTable =2 BottomPadding =150 - LayoutCachedLeft =735 - LayoutCachedTop =2550 - LayoutCachedWidth =9825 - LayoutCachedHeight =3120 + LayoutCachedLeft =743 + LayoutCachedTop =2580 + LayoutCachedWidth =9840 + LayoutCachedHeight =3150 RowStart =4 RowEnd =4 ColumnStart =1 @@ -638,33 +638,33 @@ Begin Form End Begin EmptyCell Left =120 - Top =2550 + Top =2580 Width =562 Height =570 Name ="EmptyCell113" GroupTable =2 BottomPadding =150 LayoutCachedLeft =120 - LayoutCachedTop =2550 + LayoutCachedTop =2580 LayoutCachedWidth =682 - LayoutCachedHeight =3120 + LayoutCachedHeight =3150 RowStart =4 RowEnd =4 LayoutGroup =1 GroupTable =2 End Begin EmptyCell - Left =7830 - Top =3300 + Left =7845 + Top =3338 Width =1995 Height =465 Name ="EmptyCell119" GroupTable =2 BottomPadding =150 - LayoutCachedLeft =7830 - LayoutCachedTop =3300 - LayoutCachedWidth =9825 - LayoutCachedHeight =3765 + LayoutCachedLeft =7845 + LayoutCachedTop =3338 + LayoutCachedWidth =9840 + LayoutCachedHeight =3803 RowStart =5 RowEnd =5 ColumnStart =4 @@ -673,17 +673,17 @@ Begin Form GroupTable =2 End Begin EmptyCell - Left =5340 - Top =3300 + Left =5355 + Top =3338 Width =2430 Height =465 Name ="EmptyCell121" GroupTable =2 BottomPadding =150 - LayoutCachedLeft =5340 - LayoutCachedTop =3300 - LayoutCachedWidth =7770 - LayoutCachedHeight =3765 + LayoutCachedLeft =5355 + LayoutCachedTop =3338 + LayoutCachedWidth =7785 + LayoutCachedHeight =3803 RowStart =5 RowEnd =5 ColumnStart =3 diff --git a/access-add-in/source/modules/AccUnitLoaderConfigProcedures.bas b/access-add-in/source/modules/AccUnitLoaderConfigProcedures.bas index 27d8ef2..a38003f 100644 --- a/access-add-in/source/modules/AccUnitLoaderConfigProcedures.bas +++ b/access-add-in/source/modules/AccUnitLoaderConfigProcedures.bas @@ -206,6 +206,20 @@ Public Function GetCurrentAccessBitSystem() As Long End Function +Public Function AutomatedTestRunVCS() As Variant + + Dim FailedMessage As String + Dim Success As Boolean + + Success = AutomatedTestRun(FailedMessage) + If Success Then + AutomatedTestRunVCS = True + Else + AutomatedTestRunVCS = "Alert: " & FailedMessage + End If + +End Function + Public Function AutomatedTestRun(Optional ByRef FailedMessage As String) As Boolean Dim Success As Boolean diff --git a/access-add-in/source/modules/_config_Application.bas b/access-add-in/source/modules/_config_Application.bas index c17ad12..8fc4bdd 100644 --- a/access-add-in/source/modules/_config_Application.bas +++ b/access-add-in/source/modules/_config_Application.bas @@ -18,7 +18,7 @@ Option Compare Text Option Explicit 'Version nummer -Private Const APPLICATION_VERSION As String = "0.9.24.240312" +Private Const APPLICATION_VERSION As String = "0.9.25.240313" Private Const APPLICATION_NAME As String = "ACLib AccUnit Loader" Private Const APPLICATION_FULLNAME As String = "Access Code Library - AccUnit Loader"