From 68e01a75119bbca58fabb542cbc1edfdb6f6f83b Mon Sep 17 00:00:00 2001 From: joyfullservice Date: Wed, 15 Nov 2023 09:25:32 -0600 Subject: [PATCH] Split layout from VBA in testing database Separates the VBA code from the layout definition in the source files. (Applying to testing database now, will apply to main project soon.) --- Testing/Testing.accdb.src/forms/frmColors.bas | 7 +- Testing/Testing.accdb.src/forms/frmColors.cls | 940 +----------------- .../forms/frmExtendedChars.bas | 531 +--------- .../forms/frmExtendedChars.cls | 97 +- Testing/Testing.accdb.src/forms/frmMain.bas | 259 +---- Testing/Testing.accdb.src/forms/frmMain.cls | 368 +------ .../reports/rptDefaultPrinter.bas | 7 +- .../reports/rptDefaultPrinter.cls | 95 +- .../reports/rptNavigationPaneGroups.bas | 7 +- .../reports/rptNavigationPaneGroups.cls | 282 +----- .../reports/rptNonDefaultPaperSize.bas | 7 +- .../reports/rptNonDefaultPaperSize.cls | 94 +- Testing/Testing.accdb.src/vcs-options.json | 3 +- 13 files changed, 14 insertions(+), 2683 deletions(-) diff --git a/Testing/Testing.accdb.src/forms/frmColors.bas b/Testing/Testing.accdb.src/forms/frmColors.bas index 0452bc76..4894b2d4 100644 --- a/Testing/Testing.accdb.src/forms/frmColors.bas +++ b/Testing/Testing.accdb.src/forms/frmColors.bas @@ -936,9 +936,4 @@ Begin Form End End CodeBehindForm -Attribute VB_GlobalNameSpace = False -Attribute VB_Creatable = True -Attribute VB_PredeclaredId = True -Attribute VB_Exposed = False -Option Compare Database -Option Explicit +' See "frmColors.cls" diff --git a/Testing/Testing.accdb.src/forms/frmColors.cls b/Testing/Testing.accdb.src/forms/frmColors.cls index 0452bc76..88b9322e 100644 --- a/Testing/Testing.accdb.src/forms/frmColors.cls +++ b/Testing/Testing.accdb.src/forms/frmColors.cls @@ -1,942 +1,4 @@ -Version =20 -VersionRequired =20 -Begin Form - RecordSelectors = NotDefault - NavigationButtons = NotDefault - DividingLines = NotDefault - AllowDesignChanges = NotDefault - DefaultView =0 - PictureAlignment =2 - DatasheetGridlinesBehavior =3 - GridX =24 - GridY =24 - Width =14400 - DatasheetFontHeight =11 - ItemSuffix =50 - Right =19650 - Bottom =12585 - RecSrcDt = Begin - 0x8b5c5de351a8e540 - End - DatasheetFontName ="Franklin Gothic Book" - AllowDatasheetView =0 - FilterOnLoad =0 - ShowPageMargins =0 - DisplayOnSharePointSite =1 - DatasheetAlternateBackColor =15921906 - DatasheetGridlinesColor12 =0 - FitToScreen =1 - DatasheetBackThemeColorIndex =1 - BorderThemeColorIndex =3 - ThemeFontIndex =1 - ForeThemeColorIndex =0 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - Begin - Begin Label - BackStyle =0 - FontSize =11 - FontName ="Calibri" - ThemeFontIndex =1 - BackThemeColorIndex =1 - BorderThemeColorIndex =0 - BorderTint =50.0 - ForeThemeColorIndex =0 - ForeTint =50.0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - End - Begin Rectangle - SpecialEffect =3 - BackStyle =0 - BorderLineStyle =0 - BackThemeColorIndex =1 - BorderThemeColorIndex =1 - BorderShade =65.0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - End - Begin Line - BorderLineStyle =0 - BorderThemeColorIndex =0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - End - Begin Image - BackStyle =0 - OldBorderStyle =0 - BorderLineStyle =0 - SizeMode =3 - PictureAlignment =2 - BackThemeColorIndex =1 - BorderThemeColorIndex =1 - BorderShade =65.0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - End - Begin CommandButton - FontSize =11 - FontWeight =400 - FontName ="Calibri" - ForeThemeColorIndex =0 - ForeTint =75.0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - UseTheme =1 - Shape =1 - Gradient =12 - BackThemeColorIndex =4 - BackTint =60.0 - BorderLineStyle =0 - BorderThemeColorIndex =4 - BorderTint =60.0 - ThemeFontIndex =1 - HoverThemeColorIndex =4 - HoverTint =40.0 - PressedThemeColorIndex =4 - PressedShade =75.0 - HoverForeThemeColorIndex =0 - HoverForeTint =75.0 - PressedForeThemeColorIndex =0 - PressedForeTint =75.0 - End - Begin TextBox - AddColon = NotDefault - FELineBreak = NotDefault - BorderLineStyle =0 - LabelX =-1800 - FontSize =11 - FontName ="Calibri" - AsianLineBreak =1 - BackThemeColorIndex =1 - BorderThemeColorIndex =1 - BorderShade =65.0 - ThemeFontIndex =1 - ForeThemeColorIndex =0 - ForeTint =75.0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - End - Begin UnboundObjectFrame - SpecialEffect =2 - OldBorderStyle =1 - ThemeFontIndex =1 - BackThemeColorIndex =1 - BorderThemeColorIndex =1 - BorderShade =65.0 - ForeThemeColorIndex =2 - ForeShade =50.0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - End - Begin FormHeader - Height =780 - Name ="FormHeader" - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - BackThemeColorIndex =2 - BackTint =20.0 - End - Begin Section - Height =7050 - Name ="Detail" - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - BackThemeColorIndex =1 - Begin - Begin Label - OverlapFlags =85 - TextFontFamily =0 - Left =2880 - Top =1620 - Width =840 - Height =360 - BorderColor =8355711 - Name ="Label0" - Caption ="Type" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =2880 - LayoutCachedTop =1620 - LayoutCachedWidth =3720 - LayoutCachedHeight =1980 - ForeThemeColorIndex =-1 - ForeTint =100.0 - End - Begin Line - OverlapFlags =85 - Left =480 - Top =2100 - Width =12540 - Name ="Line1" - GridlineColor =10921638 - LayoutCachedLeft =480 - LayoutCachedTop =2100 - LayoutCachedWidth =13020 - LayoutCachedHeight =2100 - End - Begin Label - OverlapFlags =85 - TextFontFamily =0 - Left =4320 - Top =1620 - Width =1260 - Height =360 - BorderColor =8355711 - Name ="Label3" - Caption ="Theme Color" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =4320 - LayoutCachedTop =1620 - LayoutCachedWidth =5580 - LayoutCachedHeight =1980 - ForeThemeColorIndex =-1 - ForeTint =100.0 - End - Begin Label - OverlapFlags =93 - TextFontFamily =0 - Left =7200 - Top =1620 - Width =1440 - Height =360 - BorderColor =8355711 - Name ="Label4" - Caption ="Pallet Color" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =7200 - LayoutCachedTop =1620 - LayoutCachedWidth =8640 - LayoutCachedHeight =1980 - ForeThemeColorIndex =-1 - ForeTint =100.0 - End - Begin Label - OverlapFlags =93 - TextFontFamily =0 - Left =10080 - Top =1620 - Width =1305 - Height =360 - BorderColor =8355711 - Name ="Label5" - Caption ="Default Color" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =10080 - LayoutCachedTop =1620 - LayoutCachedWidth =11385 - LayoutCachedHeight =1980 - ForeThemeColorIndex =-1 - ForeTint =100.0 - End - Begin Label - OverlapFlags =85 - TextFontFamily =0 - Left =2880 - Top =2280 - Width =870 - Height =360 - BorderColor =8355711 - Name ="Label6" - Caption ="Text Box" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =2880 - LayoutCachedTop =2280 - LayoutCachedWidth =3750 - LayoutCachedHeight =2640 - ForeThemeColorIndex =-1 - ForeTint =100.0 - End - Begin Label - OverlapFlags =85 - TextFontFamily =0 - Left =2880 - Top =2820 - Width =870 - Height =360 - BorderColor =8355711 - Name ="Label7" - Caption ="Label" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =2880 - LayoutCachedTop =2820 - LayoutCachedWidth =3750 - LayoutCachedHeight =3180 - ForeThemeColorIndex =-1 - ForeTint =100.0 - End - Begin Label - OverlapFlags =85 - TextFontFamily =0 - Left =2880 - Top =3300 - Width =870 - Height =360 - BorderColor =8355711 - Name ="Label8" - Caption ="Button" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =2880 - LayoutCachedTop =3300 - LayoutCachedWidth =3750 - LayoutCachedHeight =3660 - ForeThemeColorIndex =-1 - ForeTint =100.0 - End - Begin Label - OverlapFlags =85 - TextFontFamily =0 - Left =2880 - Top =3780 - Width =870 - Height =360 - BorderColor =8355711 - Name ="Label9" - Caption ="Box" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =2880 - LayoutCachedTop =3780 - LayoutCachedWidth =3750 - LayoutCachedHeight =4140 - ForeThemeColorIndex =-1 - ForeTint =100.0 - End - Begin Label - OverlapFlags =85 - TextFontFamily =0 - Left =600 - Top =2280 - Width =1635 - Height =360 - BorderColor =8355711 - Name ="Label12" - Caption ="Orange, Accent 2" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =600 - LayoutCachedTop =2280 - LayoutCachedWidth =2235 - LayoutCachedHeight =2640 - ForeThemeColorIndex =-1 - ForeTint =100.0 - End - Begin TextBox - OverlapFlags =85 - TextFontFamily =0 - IMESentenceMode =3 - Left =4320 - Top =2280 - Width =1200 - Height =315 - BorderColor =10921638 - ForeColor =4210752 - Name ="Text13" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - - LayoutCachedLeft =4320 - LayoutCachedTop =2280 - LayoutCachedWidth =5520 - LayoutCachedHeight =2595 - BackThemeColorIndex =5 - End - Begin TextBox - OverlapFlags =85 - TextFontFamily =0 - IMESentenceMode =3 - Left =7200 - Top =2280 - Width =1200 - Height =315 - TabIndex =1 - BackColor =5676533 - BorderColor =10921638 - ForeColor =4210752 - Name ="Text15" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - - LayoutCachedLeft =7200 - LayoutCachedTop =2280 - LayoutCachedWidth =8400 - LayoutCachedHeight =2595 - BackThemeColorIndex =-1 - End - Begin TextBox - OverlapFlags =85 - TextFontFamily =0 - IMESentenceMode =3 - Left =8640 - Top =2280 - Width =1200 - Height =315 - TabIndex =2 - BackColor =3439082 - BorderColor =10921638 - ForeColor =4210752 - Name ="Text16" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - - LayoutCachedLeft =8640 - LayoutCachedTop =2280 - LayoutCachedWidth =9840 - LayoutCachedHeight =2595 - BackThemeColorIndex =-1 - End - Begin TextBox - OverlapFlags =85 - TextFontFamily =0 - IMESentenceMode =3 - Left =11520 - Top =2280 - Width =1200 - Height =315 - TabIndex =3 - BackColor =-2147483598 - BorderColor =10921638 - ForeColor =4210752 - Name ="Text18" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - - LayoutCachedLeft =11520 - LayoutCachedTop =2280 - LayoutCachedWidth =12720 - LayoutCachedHeight =2595 - BackThemeColorIndex =-1 - End - Begin Label - OverlapFlags =85 - TextFontFamily =0 - Left =11520 - Top =1620 - Width =1305 - Height =360 - BorderColor =8355711 - Name ="Label19" - Caption ="System Color" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =11520 - LayoutCachedTop =1620 - LayoutCachedWidth =12825 - LayoutCachedHeight =1980 - ForeThemeColorIndex =-1 - ForeTint =100.0 - End - Begin Label - OverlapFlags =87 - TextFontFamily =0 - Left =8640 - Top =1620 - Width =1440 - Height =360 - BorderColor =8355711 - Name ="Label20" - Caption ="Custom Color" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =8640 - LayoutCachedTop =1620 - LayoutCachedWidth =10080 - LayoutCachedHeight =1980 - ForeThemeColorIndex =-1 - ForeTint =100.0 - End - Begin Label - BackStyle =1 - OverlapFlags =85 - TextFontFamily =0 - Left =4320 - Top =2760 - Width =1200 - Height =300 - BorderColor =8355711 - ForeColor =8355711 - Name ="Label21" - Caption =" " - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =4320 - LayoutCachedTop =2760 - LayoutCachedWidth =5520 - LayoutCachedHeight =3060 - BackThemeColorIndex =5 - End - Begin Label - OverlapFlags =85 - TextFontFamily =0 - Left =10080 - Top =2760 - Width =1200 - Height =300 - BorderColor =8355711 - ForeColor =8355711 - Name ="Label22" - Caption =" " - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =10080 - LayoutCachedTop =2760 - LayoutCachedWidth =11280 - LayoutCachedHeight =3060 - End - Begin Label - BackStyle =1 - OverlapFlags =85 - TextFontFamily =0 - Left =7200 - Top =2760 - Width =1200 - Height =300 - BackColor =5676533 - BorderColor =8355711 - ForeColor =8355711 - Name ="Label23" - Caption =" " - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =7200 - LayoutCachedTop =2760 - LayoutCachedWidth =8400 - LayoutCachedHeight =3060 - BackThemeColorIndex =-1 - End - Begin Label - BackStyle =1 - OverlapFlags =85 - TextFontFamily =0 - Left =8640 - Top =2760 - Width =1200 - Height =300 - BackColor =3439082 - BorderColor =8355711 - ForeColor =8355711 - Name ="Label24" - Caption =" " - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =8640 - LayoutCachedTop =2760 - LayoutCachedWidth =9840 - LayoutCachedHeight =3060 - BackThemeColorIndex =-1 - End - Begin Label - BackStyle =1 - OverlapFlags =85 - TextFontFamily =0 - Left =11520 - Top =2760 - Width =1200 - Height =300 - BackColor =-2147483598 - BorderColor =8355711 - ForeColor =8355711 - Name ="Label25" - Caption =" " - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =11520 - LayoutCachedTop =2760 - LayoutCachedWidth =12720 - LayoutCachedHeight =3060 - BackThemeColorIndex =-1 - End - Begin TextBox - OverlapFlags =85 - TextFontFamily =0 - IMESentenceMode =3 - Left =10080 - Top =2280 - Width =1260 - Height =315 - TabIndex =4 - BorderColor =10921638 - ForeColor =4210752 - Name ="Text28" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - - LayoutCachedLeft =10080 - LayoutCachedTop =2280 - LayoutCachedWidth =11340 - LayoutCachedHeight =2595 - End - Begin TextBox - OverlapFlags =85 - TextFontFamily =0 - IMESentenceMode =3 - Left =5760 - Top =2280 - Width =1200 - Height =315 - TabIndex =5 - BorderColor =10921638 - ForeColor =4210752 - Name ="Text30" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - - LayoutCachedLeft =5760 - LayoutCachedTop =2280 - LayoutCachedWidth =6960 - LayoutCachedHeight =2595 - BackThemeColorIndex =5 - BackTint =60.0 - End - Begin Label - OverlapFlags =85 - TextFontFamily =0 - Left =5760 - Top =1620 - Width =1260 - Height =360 - BorderColor =8355711 - Name ="Label31" - Caption ="Shade" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =5760 - LayoutCachedTop =1620 - LayoutCachedWidth =7020 - LayoutCachedHeight =1980 - ForeThemeColorIndex =-1 - ForeTint =100.0 - End - Begin Label - BackStyle =1 - OverlapFlags =85 - TextFontFamily =0 - Left =5760 - Top =2760 - Width =1200 - Height =300 - BorderColor =8355711 - ForeColor =8355711 - Name ="Label32" - Caption =" " - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =5760 - LayoutCachedTop =2760 - LayoutCachedWidth =6960 - LayoutCachedHeight =3060 - BackThemeColorIndex =5 - BackTint =60.0 - End - Begin CommandButton - OverlapFlags =85 - TextFontFamily =0 - Left =4320 - Top =3240 - Width =1200 - TabIndex =6 - ForeColor =4210752 - Name ="Command33" - Caption ="Command33" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - - LayoutCachedLeft =4320 - LayoutCachedTop =3240 - LayoutCachedWidth =5520 - LayoutCachedHeight =3600 - Gradient =0 - BackThemeColorIndex =5 - BackTint =100.0 - BorderColor =11710639 - HoverColor =13355721 - PressedColor =6249563 - HoverForeColor =4210752 - PressedForeColor =4210752 - End - Begin CommandButton - OverlapFlags =85 - TextFontFamily =0 - Left =5760 - Top =3240 - Width =1200 - TabIndex =7 - ForeColor =4210752 - Name ="Command34" - Caption ="Command33" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - - LayoutCachedLeft =5760 - LayoutCachedTop =3240 - LayoutCachedWidth =6960 - LayoutCachedHeight =3600 - Gradient =0 - BackThemeColorIndex =5 - BorderColor =11710639 - HoverColor =13355721 - PressedColor =6249563 - HoverForeColor =4210752 - PressedForeColor =4210752 - End - Begin CommandButton - OverlapFlags =85 - TextFontFamily =0 - Left =7200 - Top =3240 - Width =1200 - TabIndex =8 - ForeColor =4210752 - Name ="Command35" - Caption ="Command33" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - - LayoutCachedLeft =7200 - LayoutCachedTop =3240 - LayoutCachedWidth =8400 - LayoutCachedHeight =3600 - Gradient =0 - BackColor =5676533 - BackThemeColorIndex =-1 - BackTint =100.0 - BorderColor =11710639 - HoverColor =13355721 - PressedColor =6249563 - HoverForeColor =4210752 - PressedForeColor =4210752 - End - Begin CommandButton - OverlapFlags =85 - TextFontFamily =0 - Left =8640 - Top =3240 - Width =1200 - TabIndex =9 - ForeColor =4210752 - Name ="Command36" - Caption ="Command33" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - - LayoutCachedLeft =8640 - LayoutCachedTop =3240 - LayoutCachedWidth =9840 - LayoutCachedHeight =3600 - Gradient =0 - BackColor =3439082 - BackThemeColorIndex =-1 - BackTint =100.0 - BorderColor =11710639 - HoverColor =13355721 - PressedColor =6249563 - HoverForeColor =4210752 - PressedForeColor =4210752 - End - Begin CommandButton - OverlapFlags =85 - TextFontFamily =0 - Left =10080 - Top =3240 - Width =1200 - TabIndex =10 - ForeColor =4210752 - Name ="Command37" - Caption ="Command33" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - - LayoutCachedLeft =10080 - LayoutCachedTop =3240 - LayoutCachedWidth =11280 - LayoutCachedHeight =3600 - BackColor =11710639 - BorderColor =11710639 - HoverColor =13355721 - PressedColor =6249563 - HoverForeColor =4210752 - PressedForeColor =4210752 - End - Begin CommandButton - OverlapFlags =85 - TextFontFamily =0 - Left =11520 - Top =3240 - Width =1200 - TabIndex =11 - ForeColor =4210752 - Name ="Command38" - Caption ="Command33" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - - LayoutCachedLeft =11520 - LayoutCachedTop =3240 - LayoutCachedWidth =12720 - LayoutCachedHeight =3600 - Gradient =0 - BackColor =-2147483598 - BackThemeColorIndex =-1 - BackTint =100.0 - BorderColor =11710639 - HoverColor =13355721 - PressedColor =6249563 - HoverForeColor =4210752 - PressedForeColor =4210752 - End - Begin Rectangle - BackStyle =1 - OverlapFlags =85 - Left =4320 - Top =3780 - Width =1200 - Height =360 - BorderColor =10921638 - Name ="Box41" - GridlineColor =10921638 - LayoutCachedLeft =4320 - LayoutCachedTop =3780 - LayoutCachedWidth =5520 - LayoutCachedHeight =4140 - BackThemeColorIndex =5 - End - Begin Rectangle - BackStyle =1 - OverlapFlags =85 - Left =5760 - Top =3780 - Width =1200 - Height =360 - BorderColor =10921638 - Name ="Box42" - GridlineColor =10921638 - LayoutCachedLeft =5760 - LayoutCachedTop =3780 - LayoutCachedWidth =6960 - LayoutCachedHeight =4140 - BackThemeColorIndex =5 - BackTint =60.0 - End - Begin Rectangle - BackStyle =1 - OverlapFlags =85 - Left =7200 - Top =3780 - Width =1200 - Height =360 - BackColor =5676533 - BorderColor =10921638 - Name ="Box43" - GridlineColor =10921638 - LayoutCachedLeft =7200 - LayoutCachedTop =3780 - LayoutCachedWidth =8400 - LayoutCachedHeight =4140 - BackThemeColorIndex =-1 - End - Begin Rectangle - BackStyle =1 - OverlapFlags =85 - Left =8640 - Top =3780 - Width =1200 - Height =360 - BackColor =3439082 - BorderColor =10921638 - Name ="Box44" - GridlineColor =10921638 - LayoutCachedLeft =8640 - LayoutCachedTop =3780 - LayoutCachedWidth =9840 - LayoutCachedHeight =4140 - BackThemeColorIndex =-1 - End - Begin Rectangle - OverlapFlags =85 - Left =10080 - Top =3780 - Width =1200 - Height =360 - BorderColor =10921638 - Name ="Box45" - GridlineColor =10921638 - LayoutCachedLeft =10080 - LayoutCachedTop =3780 - LayoutCachedWidth =11280 - LayoutCachedHeight =4140 - End - Begin Rectangle - BackStyle =1 - OverlapFlags =85 - Left =11520 - Top =3780 - Width =1200 - Height =360 - BackColor =-2147483598 - BorderColor =10921638 - Name ="Box46" - GridlineColor =10921638 - LayoutCachedLeft =11520 - LayoutCachedTop =3780 - LayoutCachedWidth =12720 - LayoutCachedHeight =4140 - BackThemeColorIndex =-1 - End - Begin Label - OverlapFlags =85 - TextFontFamily =0 - Left =600 - Top =4860 - Width =1860 - Height =360 - BorderColor =8355711 - Name ="Label48" - Caption ="Screenshot Image" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =600 - LayoutCachedTop =4860 - LayoutCachedWidth =2460 - LayoutCachedHeight =5220 - ForeThemeColorIndex =-1 - ForeTint =100.0 - End - Begin Image - PictureType =2 - Left =2760 - Top =4620 - Width =10245 - Height =2190 - BorderColor =10921638 - Name ="Image49" - Picture ="Colors" - GridlineColor =10921638 - - LayoutCachedLeft =2760 - LayoutCachedTop =4620 - LayoutCachedWidth =13005 - LayoutCachedHeight =6810 - TabIndex =12 - End - End - End - Begin FormFooter - Height =660 - Name ="FormFooter" - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - BackThemeColorIndex =1 - End - End -End -CodeBehindForm -Attribute VB_GlobalNameSpace = False +Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = True Attribute VB_Exposed = False diff --git a/Testing/Testing.accdb.src/forms/frmExtendedChars.bas b/Testing/Testing.accdb.src/forms/frmExtendedChars.bas index b366db29..a165e652 100644 --- a/Testing/Testing.accdb.src/forms/frmExtendedChars.bas +++ b/Testing/Testing.accdb.src/forms/frmExtendedChars.bas @@ -93,533 +93,4 @@ Begin Form End End CodeBehindForm -Attribute VB_GlobalNameSpace = False -Attribute VB_Creatable = True -Attribute VB_PredeclaredId = True -Attribute VB_Exposed = False -Option Compare Database -Option Explicit - - -'——————————————————————————————————————————————————————————————————————————————————————————¬ -' This module is used to prove that all ASCII characters survive the export\import cycle. | -'——————————————————————————————————————————————————————————————————————————————————————————+ - -' ASCII Table Using Windows-1252 codepage -' Table generated using https://ozh.github.io/ascii-tables/ -' -' +=====+=====+==========+=======+ -' | Dec | Hex | Binary | Char | -' +=====+=====+==========+=======+ -' | 0 | 00 | 00000000 | NUL | -' +-----+-----+----------+-------+ -' | 1 | 01 | 00000001 | SOH | -' +-----+-----+----------+-------+ -' | 2 | 02 | 00000010 | STX | -' +-----+-----+----------+-------+ -' | 3 | 03 | 00000011 | ETX | -' +-----+-----+----------+-------+ -' | 4 | 04 | 00000100 | EOT | -' +-----+-----+----------+-------+ -' | 5 | 05 | 00000101 | ENQ | -' +-----+-----+----------+-------+ -' | 6 | 06 | 00000110 | ACK | -' +-----+-----+----------+-------+ -' | 7 | 07 | 00000111 | BEL | -' +-----+-----+----------+-------+ -' | 8 | 08 | 00001000 | BS | -' +-----+-----+----------+-------+ -' | 9 | 09 | 00001001 | HT | -' +-----+-----+----------+-------+ -' | 10 | 0A | 00001010 | LF | -' +-----+-----+----------+-------+ -' | 11 | 0B | 00001011 | VT | -' +-----+-----+----------+-------+ -' | 12 | 0C | 00001100 | FF | -' +-----+-----+----------+-------+ -' | 13 | 0D | 00001101 | CR | -' +-----+-----+----------+-------+ -' | 14 | 0E | 00001110 | SO | -' +-----+-----+----------+-------+ -' | 15 | 0F | 00001111 | SI | -' +-----+-----+----------+-------+ -' | 16 | 10 | 00010000 | DLE | -' +-----+-----+----------+-------+ -' | 17 | 11 | 00010001 | DC1 | -' +-----+-----+----------+-------+ -' | 18 | 12 | 00010010 | DC2 | -' +-----+-----+----------+-------+ -' | 19 | 13 | 00010011 | DC3 | -' +-----+-----+----------+-------+ -' | 20 | 14 | 00010100 | DC4 | -' +-----+-----+----------+-------+ -' | 21 | 15 | 00010101 | NAK | -' +-----+-----+----------+-------+ -' | 22 | 16 | 00010110 | SYN | -' +-----+-----+----------+-------+ -' | 23 | 17 | 00010111 | ETB | -' +-----+-----+----------+-------+ -' | 24 | 18 | 00011000 | CAN | -' +-----+-----+----------+-------+ -' | 25 | 19 | 00011001 | EM | -' +-----+-----+----------+-------+ -' | 26 | 1A | 00011010 | SUB | -' +-----+-----+----------+-------+ -' | 27 | 1B | 00011011 | ESC | -' +-----+-----+----------+-------+ -' | 28 | 1C | 00011100 | FS | -' +-----+-----+----------+-------+ -' | 29 | 1D | 00011101 | GS | -' +-----+-----+----------+-------+ -' | 30 | 1E | 00011110 | RS | -' +-----+-----+----------+-------+ -' | 31 | 1F | 00011111 | US | -' +-----+-----+----------+-------+ -' | 32 | 20 | 00100000 | space | -' +-----+-----+----------+-------+ -' | 33 | 21 | 00100001 | ! | -' +-----+-----+----------+-------+ -' | 34 | 22 | 00100010 | " | -' +-----+-----+----------+-------+ -' | 35 | 23 | 00100011 | # | -' +-----+-----+----------+-------+ -' | 36 | 24 | 00100100 | $ | -' +-----+-----+----------+-------+ -' | 37 | 25 | 00100101 | % | -' +-----+-----+----------+-------+ -' | 38 | 26 | 00100110 | & | -' +-----+-----+----------+-------+ -' | 39 | 27 | 00100111 | ' | -' +-----+-----+----------+-------+ -' | 40 | 28 | 00101000 | ( | -' +-----+-----+----------+-------+ -' | 41 | 29 | 00101001 | ) | -' +-----+-----+----------+-------+ -' | 42 | 2A | 00101010 | * | -' +-----+-----+----------+-------+ -' | 43 | 2B | 00101011 | + | -' +-----+-----+----------+-------+ -' | 44 | 2C | 00101100 | , | -' +-----+-----+----------+-------+ -' | 45 | 2D | 00101101 | - | -' +-----+-----+----------+-------+ -' | 46 | 2E | 00101110 | . | -' +-----+-----+----------+-------+ -' | 47 | 2F | 00101111 | / | -' +-----+-----+----------+-------+ -' | 48 | 30 | 00110000 | 0 | -' +-----+-----+----------+-------+ -' | 49 | 31 | 00110001 | 1 | -' +-----+-----+----------+-------+ -' | 50 | 32 | 00110010 | 2 | -' +-----+-----+----------+-------+ -' | 51 | 33 | 00110011 | 3 | -' +-----+-----+----------+-------+ -' | 52 | 34 | 00110100 | 4 | -' +-----+-----+----------+-------+ -' | 53 | 35 | 00110101 | 5 | -' +-----+-----+----------+-------+ -' | 54 | 36 | 00110110 | 6 | -' +-----+-----+----------+-------+ -' | 55 | 37 | 00110111 | 7 | -' +-----+-----+----------+-------+ -' | 56 | 38 | 00111000 | 8 | -' +-----+-----+----------+-------+ -' | 57 | 39 | 00111001 | 9 | -' +-----+-----+----------+-------+ -' | 58 | 3A | 00111010 | : | -' +-----+-----+----------+-------+ -' | 59 | 3B | 00111011 | ; | -' +-----+-----+----------+-------+ -' | 60 | 3C | 00111100 | < | -' +-----+-----+----------+-------+ -' | 61 | 3D | 00111101 | = | -' +-----+-----+----------+-------+ -' | 62 | 3E | 00111110 | > | -' +-----+-----+----------+-------+ -' | 63 | 3F | 00111111 | ? | -' +-----+-----+----------+-------+ -' | 64 | 40 | 01000000 | @ | -' +-----+-----+----------+-------+ -' | 65 | 41 | 01000001 | A | -' +-----+-----+----------+-------+ -' | 66 | 42 | 01000010 | B | -' +-----+-----+----------+-------+ -' | 67 | 43 | 01000011 | C | -' +-----+-----+----------+-------+ -' | 68 | 44 | 01000100 | D | -' +-----+-----+----------+-------+ -' | 69 | 45 | 01000101 | E | -' +-----+-----+----------+-------+ -' | 70 | 46 | 01000110 | F | -' +-----+-----+----------+-------+ -' | 71 | 47 | 01000111 | G | -' +-----+-----+----------+-------+ -' | 72 | 48 | 01001000 | H | -' +-----+-----+----------+-------+ -' | 73 | 49 | 01001001 | I | -' +-----+-----+----------+-------+ -' | 74 | 4A | 01001010 | J | -' +-----+-----+----------+-------+ -' | 75 | 4B | 01001011 | K | -' +-----+-----+----------+-------+ -' | 76 | 4C | 01001100 | L | -' +-----+-----+----------+-------+ -' | 77 | 4D | 01001101 | M | -' +-----+-----+----------+-------+ -' | 78 | 4E | 01001110 | N | -' +-----+-----+----------+-------+ -' | 79 | 4F | 01001111 | O | -' +-----+-----+----------+-------+ -' | 80 | 50 | 01010000 | P | -' +-----+-----+----------+-------+ -' | 81 | 51 | 01010001 | Q | -' +-----+-----+----------+-------+ -' | 82 | 52 | 01010010 | R | -' +-----+-----+----------+-------+ -' | 83 | 53 | 01010011 | S | -' +-----+-----+----------+-------+ -' | 84 | 54 | 01010100 | T | -' +-----+-----+----------+-------+ -' | 85 | 55 | 01010101 | U | -' +-----+-----+----------+-------+ -' | 86 | 56 | 01010110 | V | -' +-----+-----+----------+-------+ -' | 87 | 57 | 01010111 | W | -' +-----+-----+----------+-------+ -' | 88 | 58 | 01011000 | X | -' +-----+-----+----------+-------+ -' | 89 | 59 | 01011001 | Y | -' +-----+-----+----------+-------+ -' | 90 | 5A | 01011010 | Z | -' +-----+-----+----------+-------+ -' | 91 | 5B | 01011011 | [ | -' +-----+-----+----------+-------+ -' | 92 | 5C | 01011100 | \ | -' +-----+-----+----------+-------+ -' | 93 | 5D | 01011101 | ] | -' +-----+-----+----------+-------+ -' | 94 | 5E | 01011110 | ^ | -' +-----+-----+----------+-------+ -' | 95 | 5F | 01011111 | _ | -' +-----+-----+----------+-------+ -' | 96 | 60 | 01100000 | ` | -' +-----+-----+----------+-------+ -' | 97 | 61 | 01100001 | a | -' +-----+-----+----------+-------+ -' | 98 | 62 | 01100010 | b | -' +-----+-----+----------+-------+ -' | 99 | 63 | 01100011 | c | -' +-----+-----+----------+-------+ -' | 100 | 64 | 01100100 | d | -' +-----+-----+----------+-------+ -' | 101 | 65 | 01100101 | e | -' +-----+-----+----------+-------+ -' | 102 | 66 | 01100110 | f | -' +-----+-----+----------+-------+ -' | 103 | 67 | 01100111 | g | -' +-----+-----+----------+-------+ -' | 104 | 68 | 01101000 | h | -' +-----+-----+----------+-------+ -' | 105 | 69 | 01101001 | i | -' +-----+-----+----------+-------+ -' | 106 | 6A | 01101010 | j | -' +-----+-----+----------+-------+ -' | 107 | 6B | 01101011 | k | -' +-----+-----+----------+-------+ -' | 108 | 6C | 01101100 | l | -' +-----+-----+----------+-------+ -' | 109 | 6D | 01101101 | m | -' +-----+-----+----------+-------+ -' | 110 | 6E | 01101110 | n | -' +-----+-----+----------+-------+ -' | 111 | 6F | 01101111 | o | -' +-----+-----+----------+-------+ -' | 112 | 70 | 01110000 | p | -' +-----+-----+----------+-------+ -' | 113 | 71 | 01110001 | q | -' +-----+-----+----------+-------+ -' | 114 | 72 | 01110010 | r | -' +-----+-----+----------+-------+ -' | 115 | 73 | 01110011 | s | -' +-----+-----+----------+-------+ -' | 116 | 74 | 01110100 | t | -' +-----+-----+----------+-------+ -' | 117 | 75 | 01110101 | u | -' +-----+-----+----------+-------+ -' | 118 | 76 | 01110110 | v | -' +-----+-----+----------+-------+ -' | 119 | 77 | 01110111 | w | -' +-----+-----+----------+-------+ -' | 120 | 78 | 01111000 | x | -' +-----+-----+----------+-------+ -' | 121 | 79 | 01111001 | y | -' +-----+-----+----------+-------+ -' | 122 | 7A | 01111010 | z | -' +-----+-----+----------+-------+ -' | 123 | 7B | 01111011 | { | -' +-----+-----+----------+-------+ -' | 124 | 7C | 01111100 | | | -' +-----+-----+----------+-------+ -' | 125 | 7D | 01111101 | } | -' +-----+-----+----------+-------+ -' | 126 | 7E | 01111110 | ~ | -' +-----+-----+----------+-------+ -' | 127 | 7F | 01111111 | DEL | -' +-----+-----+----------+-------+ -' | 128 | 80 | 10000000 | € | -' +-----+-----+----------+-------+ -' | 129 | 81 | 10000001 |  | -' +-----+-----+----------+-------+ -' | 130 | 82 | 10000010 | ‚ | -' +-----+-----+----------+-------+ -' | 131 | 83 | 10000011 | ƒ | -' +-----+-----+----------+-------+ -' | 132 | 84 | 10000100 | „ | -' +-----+-----+----------+-------+ -' | 133 | 85 | 10000101 | … | -' +-----+-----+----------+-------+ -' | 134 | 86 | 10000110 | † | -' +-----+-----+----------+-------+ -' | 135 | 87 | 10000111 | ‡ | -' +-----+-----+----------+-------+ -' | 136 | 88 | 10001000 | ˆ | -' +-----+-----+----------+-------+ -' | 137 | 89 | 10001001 | ‰ | -' +-----+-----+----------+-------+ -' | 138 | 8A | 10001010 | Š | -' +-----+-----+----------+-------+ -' | 139 | 8B | 10001011 | ‹ | -' +-----+-----+----------+-------+ -' | 140 | 8C | 10001100 | Œ | -' +-----+-----+----------+-------+ -' | 141 | 8D | 10001101 |  | -' +-----+-----+----------+-------+ -' | 142 | 8E | 10001110 | Ž | -' +-----+-----+----------+-------+ -' | 143 | 8F | 10001111 |  | -' +-----+-----+----------+-------+ -' | 144 | 90 | 10010000 |  | -' +-----+-----+----------+-------+ -' | 145 | 91 | 10010001 | ‘ | -' +-----+-----+----------+-------+ -' | 146 | 92 | 10010010 | ’ | -' +-----+-----+----------+-------+ -' | 147 | 93 | 10010011 | “ | -' +-----+-----+----------+-------+ -' | 148 | 94 | 10010100 | ” | -' +-----+-----+----------+-------+ -' | 149 | 95 | 10010101 | • | -' +-----+-----+----------+-------+ -' | 150 | 96 | 10010110 | – | -' +-----+-----+----------+-------+ -' | 151 | 97 | 10010111 | — | -' +-----+-----+----------+-------+ -' | 152 | 98 | 10011000 | ˜ | -' +-----+-----+----------+-------+ -' | 153 | 99 | 10011001 | ™ | -' +-----+-----+----------+-------+ -' | 154 | 9A | 10011010 | š | -' +-----+-----+----------+-------+ -' | 155 | 9B | 10011011 | › | -' +-----+-----+----------+-------+ -' | 156 | 9C | 10011100 | œ | -' +-----+-----+----------+-------+ -' | 157 | 9D | 10011101 |  | -' +-----+-----+----------+-------+ -' | 158 | 9E | 10011110 | ž | -' +-----+-----+----------+-------+ -' | 159 | 9F | 10011111 | Ÿ | -' +-----+-----+----------+-------+ -' | 160 | A0 | 10100000 | | -' +-----+-----+----------+-------+ -' | 161 | A1 | 10100001 | ¡ | -' +-----+-----+----------+-------+ -' | 162 | A2 | 10100010 | ¢ | -' +-----+-----+----------+-------+ -' | 163 | A3 | 10100011 | £ | -' +-----+-----+----------+-------+ -' | 164 | A4 | 10100100 | ¤ | -' +-----+-----+----------+-------+ -' | 165 | A5 | 10100101 | ¥ | -' +-----+-----+----------+-------+ -' | 166 | A6 | 10100110 | ¦ | -' +-----+-----+----------+-------+ -' | 167 | A7 | 10100111 | § | -' +-----+-----+----------+-------+ -' | 168 | A8 | 10101000 | ¨ | -' +-----+-----+----------+-------+ -' | 169 | A9 | 10101001 | © | -' +-----+-----+----------+-------+ -' | 170 | AA | 10101010 | ª | -' +-----+-----+----------+-------+ -' | 171 | AB | 10101011 | « | -' +-----+-----+----------+-------+ -' | 172 | AC | 10101100 | ¬ | -' +-----+-----+----------+-------+ -' | 173 | AD | 10101101 | ­ | -' +-----+-----+----------+-------+ -' | 174 | AE | 10101110 | ® | -' +-----+-----+----------+-------+ -' | 175 | AF | 10101111 | ¯ | -' +-----+-----+----------+-------+ -' | 176 | B0 | 10110000 | ° | -' +-----+-----+----------+-------+ -' | 177 | B1 | 10110001 | ± | -' +-----+-----+----------+-------+ -' | 178 | B2 | 10110010 | ² | -' +-----+-----+----------+-------+ -' | 179 | B3 | 10110011 | ³ | -' +-----+-----+----------+-------+ -' | 180 | B4 | 10110100 | ´ | -' +-----+-----+----------+-------+ -' | 181 | B5 | 10110101 | µ | -' +-----+-----+----------+-------+ -' | 182 | B6 | 10110110 | ¶ | -' +-----+-----+----------+-------+ -' | 183 | B7 | 10110111 | · | -' +-----+-----+----------+-------+ -' | 184 | B8 | 10111000 | ¸ | -' +-----+-----+----------+-------+ -' | 185 | B9 | 10111001 | ¹ | -' +-----+-----+----------+-------+ -' | 186 | BA | 10111010 | º | -' +-----+-----+----------+-------+ -' | 187 | BB | 10111011 | » | -' +-----+-----+----------+-------+ -' | 188 | BC | 10111100 | ¼ | -' +-----+-----+----------+-------+ -' | 189 | BD | 10111101 | ½ | -' +-----+-----+----------+-------+ -' | 190 | BE | 10111110 | ¾ | -' +-----+-----+----------+-------+ -' | 191 | BF | 10111111 | ¿ | -' +-----+-----+----------+-------+ -' | 192 | C0 | 11000000 | À | -' +-----+-----+----------+-------+ -' | 193 | C1 | 11000001 | Á | -' +-----+-----+----------+-------+ -' | 194 | C2 | 11000010 |  | -' +-----+-----+----------+-------+ -' | 195 | C3 | 11000011 | à | -' +-----+-----+----------+-------+ -' | 196 | C4 | 11000100 | Ä | -' +-----+-----+----------+-------+ -' | 197 | C5 | 11000101 | Å | -' +-----+-----+----------+-------+ -' | 198 | C6 | 11000110 | Æ | -' +-----+-----+----------+-------+ -' | 199 | C7 | 11000111 | Ç | -' +-----+-----+----------+-------+ -' | 200 | C8 | 11001000 | È | -' +-----+-----+----------+-------+ -' | 201 | C9 | 11001001 | É | -' +-----+-----+----------+-------+ -' | 202 | CA | 11001010 | Ê | -' +-----+-----+----------+-------+ -' | 203 | CB | 11001011 | Ë | -' +-----+-----+----------+-------+ -' | 204 | CC | 11001100 | Ì | -' +-----+-----+----------+-------+ -' | 205 | CD | 11001101 | Í | -' +-----+-----+----------+-------+ -' | 206 | CE | 11001110 | Î | -' +-----+-----+----------+-------+ -' | 207 | CF | 11001111 | Ï | -' +-----+-----+----------+-------+ -' | 208 | D0 | 11010000 | Ð | -' +-----+-----+----------+-------+ -' | 209 | D1 | 11010001 | Ñ | -' +-----+-----+----------+-------+ -' | 210 | D2 | 11010010 | Ò | -' +-----+-----+----------+-------+ -' | 211 | D3 | 11010011 | Ó | -' +-----+-----+----------+-------+ -' | 212 | D4 | 11010100 | Ô | -' +-----+-----+----------+-------+ -' | 213 | D5 | 11010101 | Õ | -' +-----+-----+----------+-------+ -' | 214 | D6 | 11010110 | Ö | -' +-----+-----+----------+-------+ -' | 215 | D7 | 11010111 | × | -' +-----+-----+----------+-------+ -' | 216 | D8 | 11011000 | Ø | -' +-----+-----+----------+-------+ -' | 217 | D9 | 11011001 | Ù | -' +-----+-----+----------+-------+ -' | 218 | DA | 11011010 | Ú | -' +-----+-----+----------+-------+ -' | 219 | DB | 11011011 | Û | -' +-----+-----+----------+-------+ -' | 220 | DC | 11011100 | Ü | -' +-----+-----+----------+-------+ -' | 221 | DD | 11011101 | Ý | -' +-----+-----+----------+-------+ -' | 222 | DE | 11011110 | Þ | -' +-----+-----+----------+-------+ -' | 223 | DF | 11011111 | ß | -' +-----+-----+----------+-------+ -' | 224 | E0 | 11100000 | à | -' +-----+-----+----------+-------+ -' | 225 | E1 | 11100001 | á | -' +-----+-----+----------+-------+ -' | 226 | E2 | 11100010 | â | -' +-----+-----+----------+-------+ -' | 227 | E3 | 11100011 | ã | -' +-----+-----+----------+-------+ -' | 228 | E4 | 11100100 | ä | -' +-----+-----+----------+-------+ -' | 229 | E5 | 11100101 | å | -' +-----+-----+----------+-------+ -' | 230 | E6 | 11100110 | æ | -' +-----+-----+----------+-------+ -' | 231 | E7 | 11100111 | ç | -' +-----+-----+----------+-------+ -' | 232 | E8 | 11101000 | è | -' +-----+-----+----------+-------+ -' | 233 | E9 | 11101001 | é | -' +-----+-----+----------+-------+ -' | 234 | EA | 11101010 | ê | -' +-----+-----+----------+-------+ -' | 235 | EB | 11101011 | ë | -' +-----+-----+----------+-------+ -' | 236 | EC | 11101100 | ì | -' +-----+-----+----------+-------+ -' | 237 | ED | 11101101 | í | -' +-----+-----+----------+-------+ -' | 238 | EE | 11101110 | î | -' +-----+-----+----------+-------+ -' | 239 | EF | 11101111 | ï | -' +-----+-----+----------+-------+ -' | 240 | F0 | 11110000 | ð | -' +-----+-----+----------+-------+ -' | 241 | F1 | 11110001 | ñ | -' +-----+-----+----------+-------+ -' | 242 | F2 | 11110010 | ò | -' +-----+-----+----------+-------+ -' | 243 | F3 | 11110011 | ó | -' +-----+-----+----------+-------+ -' | 244 | F4 | 11110100 | ô | -' +-----+-----+----------+-------+ -' | 245 | F5 | 11110101 | õ | -' +-----+-----+----------+-------+ -' | 246 | F6 | 11110110 | ö | -' +-----+-----+----------+-------+ -' | 247 | F7 | 11110111 | ÷ | -' +-----+-----+----------+-------+ -' | 248 | F8 | 11111000 | ø | -' +-----+-----+----------+-------+ -' | 249 | F9 | 11111001 | ù | -' +-----+-----+----------+-------+ -' | 250 | FA | 11111010 | ú | -' +-----+-----+----------+-------+ -' | 251 | FB | 11111011 | û | -' +-----+-----+----------+-------+ -' | 252 | FC | 11111100 | ü | -' +-----+-----+----------+-------+ -' | 253 | FD | 11111101 | ý | -' +-----+-----+----------+-------+ -' | 254 | FE | 11111110 | þ | -' +-----+-----+----------+-------+ -' | 255 | FF | 11111111 | ÿ | -' +-----+-----+----------+-------+ +' See "frmExtendedChars.cls" diff --git a/Testing/Testing.accdb.src/forms/frmExtendedChars.cls b/Testing/Testing.accdb.src/forms/frmExtendedChars.cls index b366db29..80c58d95 100644 --- a/Testing/Testing.accdb.src/forms/frmExtendedChars.cls +++ b/Testing/Testing.accdb.src/forms/frmExtendedChars.cls @@ -1,99 +1,4 @@ -Version =20 -VersionRequired =20 -Begin Form - DividingLines = NotDefault - AllowDesignChanges = NotDefault - DefaultView =0 - PictureAlignment =2 - DatasheetGridlinesBehavior =3 - GridX =24 - GridY =24 - Width =8884 - DatasheetFontHeight =11 - ItemSuffix =2 - Right =25320 - Bottom =14385 - RecSrcDt = Begin - 0xbd57868e6cf5e540 - End - DatasheetFontName ="Franklin Gothic Book" - AllowDatasheetView =0 - FilterOnLoad =0 - ShowPageMargins =0 - DisplayOnSharePointSite =1 - DatasheetAlternateBackColor =15921906 - DatasheetGridlinesColor12 =0 - FitToScreen =1 - DatasheetBackThemeColorIndex =1 - BorderThemeColorIndex =3 - ThemeFontIndex =1 - ForeThemeColorIndex =0 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - Begin - Begin Label - BackStyle =0 - FontSize =11 - FontName ="Calibri" - ThemeFontIndex =1 - BackThemeColorIndex =1 - BorderThemeColorIndex =0 - BorderTint =50.0 - ForeThemeColorIndex =0 - ForeTint =50.0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - End - Begin Section - Height =7560 - Name ="Detail" - AutoHeight =1 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - BackThemeColorIndex =1 - Begin - Begin Label - OverlapFlags =85 - Left =1080 - Top =1140 - Width =3420 - Height =600 - FontSize =18 - BorderColor =8355711 - ForeColor =8355711 - Name ="Label0" - Caption ="Extëndëd Cháráctërs" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =1080 - LayoutCachedTop =1140 - LayoutCachedWidth =4500 - LayoutCachedHeight =1740 - End - Begin Label - OverlapFlags =85 - Left =1080 - Top =2220 - Width =3420 - Height =600 - FontSize =18 - BorderColor =8355711 - ForeColor =8355711 - Name ="Label1" - Caption ="Unicode 👍 🚀 ☺" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =1080 - LayoutCachedTop =2220 - LayoutCachedWidth =4500 - LayoutCachedHeight =2820 - End - End - End - End -End -CodeBehindForm -Attribute VB_GlobalNameSpace = False +Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = True Attribute VB_Exposed = False diff --git a/Testing/Testing.accdb.src/forms/frmMain.bas b/Testing/Testing.accdb.src/forms/frmMain.bas index db651d2e..e219531e 100644 --- a/Testing/Testing.accdb.src/forms/frmMain.bas +++ b/Testing/Testing.accdb.src/forms/frmMain.bas @@ -364,261 +364,4 @@ Begin Form End End CodeBehindForm -Attribute VB_GlobalNameSpace = False -Attribute VB_Creatable = True -Attribute VB_PredeclaredId = True -Attribute VB_Exposed = False -Option Compare Database -Option Explicit - - -' Keep track of total results -Private m_Totals(True To False) As Integer - - -'--------------------------------------------------------------------------------------- -' Procedure : cmdRunTests_Click -' Author : Adam Waller -' Date : 5/1/2020 -' Purpose : Trying to keep things simple here... Verify that the object exists in the -' : correct format. (Adjust as needed) -'--------------------------------------------------------------------------------------- -' -Public Sub cmdRunTests_Click() - - Dim strTest As String - Dim intTest As Integer - Dim dbs As DAO.Database - Dim rsc As SharedResource - - Set dbs = CurrentDb - - ' Clear list and totals - lstResults.RowSource = "" - m_Totals(True) = 0 - m_Totals(False) = 0 - - ' Ignore any errors. - ' NOTE: don't include the test result on a line that may throw an error. - On Error Resume Next - - ' Update linked tables/CSV to use the current directory - dbs.TableDefs("tblLinkedAccess").Connect = ";DATABASE=" & Application.CurrentProject.Path & "\Testing.accdb" - dbs.TableDefs("tblLinkedAccess").RefreshLink - dbs.TableDefs("tblLinkedCSV").Connect = "Text;DSN=Linked Link Specification;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=437;ACCDB=YES;DATABASE=" & Application.CurrentProject.Path - dbs.TableDefs("tblLinkedCSV").RefreshLink - - '======================== - ' BEGIN TESTS - '======================== - - ' Tables - strTest = dbs.TableDefs("tblInternal").Name - ShowResult "Access Table exists", (strTest = "tblInternal") - - intTest = 0 - intTest = DCount("*", "tblInternal") - ShowResult "tblInternal has data", (intTest > 0) - - strTest = dbs.TableDefs("tblLinkedCSV").Name - ShowResult "Linked Table exists", (strTest = "tblLinkedCSV") - - intTest = 0 - intTest = DCount("*", "tblLinkedCSV") - ShowResult "tblLinkedCSV has data", (intTest > 0) - - ShowResult "Saved Table Data (TDF)", FSO.FileExists(ExportFolder & "tables\tblInternal.txt") - - ShowResult "Saved Table Data (XML)", FSO.FileExists(ExportFolder & "tables\tblSaveXML.xml") - - ShowResult "Table SQL", FSO.FileExists(ExportFolder & "tbldefs\tblInternal.sql") - - ShowResult "Linked Table JSON", FSO.FileExists(ExportFolder & "tbldefs\tblLinkedCSV.json") - - ShowResult "Linked Table structure", FSO.FileExists(ExportFolder & "tbldefs\tblLinkedCSV.sql") - - intTest = 0 - intTest = dbs.Relations("tblInternaltblSaveXML").Fields.Count - ShowResult "Table Relationship", (intTest = 1) - - intTest = 0 - intTest = DCount("*", "MSysObjects", "Not IsNull(LvExtra) and Type = 1 and [Name] = 'tblSaveXML'") - ShowResult "Table Data Macro Exists", (intTest > 0) - - - ' Queries - strTest = dbs.QueryDefs("qryNavigationPaneGroups").Name - ShowResult "Query exists", (strTest = "qryNavigationPaneGroups") - - - ' Forms - strTest = CurrentProject.AllForms("frmMain").Name - ShowResult "Form exists", (strTest = "frmMain") - - - ' Reports - strTest = CurrentProject.AllReports("rptNavigationPaneGroups").Name - ShowResult "Report exists", (strTest = "rptNavigationPaneGroups") - ShowResult "Landscape Orientation", (Report_rptNonDefaultPaperSize.Printer.Orientation = acPRORLandscape) - ShowResult "A4 Paper Size", (Report_rptNonDefaultPaperSize.Printer.PaperSize = acPRPSA4) - - - ' Macros - strTest = CurrentProject.AllMacros("AutoExec").Name - ShowResult "Macro exists", (strTest = "AutoExec") - - - ' Modules - strTest = CurrentProject.AllModules("basUtility").Name - ShowResult "Standard Module exists", (strTest = "basUtility") - strTest = GetVBProjectForCurrentDB.VBComponents("basExtendedChars").CodeModule.Lines(6, 1) - ShowResult "Extended ASCII text in VBA", (Mid$(strTest, 10, 1) = Chr(151)) - - strTest = CurrentProject.AllModules("clsPerson").Name - ShowResult "Class Module exists", (strTest = "clsPerson") - - - ' Database properties - strTest = "" - strTest = dbs.Properties("AppIcon") - ShowResult "Application Icon is set", (Len(strTest) > 5) - - strTest = dbs.Properties("DAOProperty").Value - ShowResult "Custom Database (DAO) property", (strTest = "DAO") - - strTest = CurrentProject.Properties("ProjectProperty").Value - ShowResult "Custom Project Property", (strTest = "TestValue") - - strTest = dbs.Containers("Databases").Documents("SummaryInfo").Properties("Title") - ShowResult "Database Summary Property (Title)", (strTest = "VCS Testing") - - strTest = dbs.Containers("Tables").Documents("tblSaveXML").Properties("Description") - ShowResult "Navigation pane object description", (strTest = "Saved description in XML table.") - - strTest = dbs.Containers("Modules").Documents("basUtility").Properties("Description") - ShowResult "Module description", (strTest = "My special description on the code module.") - - ShowResult "Saved shared images", (CurrentProject.Resources.Count > 2) - - ShowResult "Saved import/export specs (XML)", (CurrentProject.ImportExportSpecifications.Count > 0) - - strTest = CurrentProject.ImportExportSpecifications(0).Name - ShowResult "Name of saved specification", (strTest = "Export-MSysIMEXColumns") - - strTest = Nz(DLookup("SpecName", "MSysIMEXSpecs", "SpecName=""Test 2""")) - ShowResult "Saved IMEX spec (Table based)", (strTest = "Test 2") - - strTest = Nz(DLookup("Name", "MSysNavPaneGroups", "Name=""My Modules""")) - ShowResult "Custom navigation pane group", (strTest = "My Modules") - - ' VBE Project - With GetVBProjectForCurrentDB - - ShowResult "VBE project name", (.Name = "VCS Testing") - ShowResult "VBE project description", (.Description = "For automated testing of Version Control") - ShowResult "Help context id", (.HelpContextId = 123456) - - strTest = .References("Scripting").Name - ShowResult "GUID reference (scripting)", (strTest = "Scripting") - - strTest = .References("MSForms").Name - ShowResult "MS Forms 2.0 reference", (strTest = "MSForms") - - End With - - ' Theme - strTest = CurrentDb.Properties("Theme Resource Name") - ShowResult "Active theme = Angles", (strTest = "Angles") - - strTest = vbNullString - For Each rsc In CurrentProject.Resources - If rsc.Type = acResourceTheme Then - strTest = rsc.Name - If strTest = "Angles" Then Exit For - End If - Next rsc - ShowResult "Theme resource exists", (strTest = "Angles") - - ' Other - ShowResult "VCS Options file exists", FSO.FileExists(ExportFolder & "vcs-options.json") - - - '======================== - ' END TESTS - '======================== - - ' Display results - lblResults.Caption = _ - m_Totals(True) & " tests passed" & vbCrLf & _ - m_Totals(False) & " tests failed" - - If m_Totals(False) = 0 Then - imgResult.Picture = "button_ok" - Else - imgResult.Picture = "button_error" - End If - - If Err Then Err.Clear - -End Sub - - - - -'--------------------------------------------------------------------------------------- -' Procedure : ShowResult -' Author : Adam Waller -' Date : 5/1/2020 -' Purpose : Add the result to the list. -'--------------------------------------------------------------------------------------- -' -Private Function ShowResult(strText As String, blnPassed As Boolean) - Dim strIcon As String - If blnPassed Then - strIcon = ChrW(10004) ' Check - Else - strIcon = ChrW(10060) ' X - End If - lstResults.AddItem strIcon & ";" & strText - m_Totals(blnPassed) = m_Totals(blnPassed) + 1 - DoEvents -End Function - - -'--------------------------------------------------------------------------------------- -' Procedure : cmdEditTests_Click -' Author : Adam Waller -' Date : 5/1/2020 -' Purpose : Go to the code where you can edit the tests. -'--------------------------------------------------------------------------------------- -' -Private Sub cmdEditTests_Click() - Dim intLine As Integer - VBE.MainWindow.Visible = True - With VBE.VBProjects("VCS Testing").VBComponents("Form_frmMain") - .Activate - With .CodeModule - intLine = 27 + .ProcStartLine("cmdRunTests_Click", vbext_pk_Proc) - .CodePane.SetSelection intLine, 1, intLine, 1 - .CodePane.Show - End With - End With - AppActivate VBE.MainWindow.Caption -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ExportFolder -' Author : Adam Waller -' Date : 5/7/2020 -' Purpose : Return base export folder for testing for source files. -'--------------------------------------------------------------------------------------- -' -Private Function ExportFolder() As String - ExportFolder = CurrentProject.FullName & ".src\" -End Function - - -Private Sub Form_Load() - imgResult.Picture = vbNullString -End Sub +' See "frmMain.cls" diff --git a/Testing/Testing.accdb.src/forms/frmMain.cls b/Testing/Testing.accdb.src/forms/frmMain.cls index db651d2e..c66f5f00 100644 --- a/Testing/Testing.accdb.src/forms/frmMain.cls +++ b/Testing/Testing.accdb.src/forms/frmMain.cls @@ -1,370 +1,4 @@ -Version =20 -VersionRequired =20 -Begin Form - RecordSelectors = NotDefault - NavigationButtons = NotDefault - DividingLines = NotDefault - AllowDesignChanges = NotDefault - DefaultView =0 - TabularFamily =18 - PictureAlignment =2 - DatasheetGridlinesBehavior =3 - GridX =24 - GridY =24 - Width =9360 - DatasheetFontHeight =11 - ItemSuffix =13 - Right =19650 - Bottom =12585 - RecSrcDt = Begin - 0x18691eff0b76e540 - End - Caption ="Main Form" - DatasheetFontName ="Palatino Linotype" - OnLoad ="[Event Procedure]" - FilterOnLoad =0 - ShowPageMargins =0 - DisplayOnSharePointSite =1 - DatasheetAlternateBackColor =15921906 - DatasheetGridlinesColor12 =0 - FitToScreen =1 - DatasheetBackThemeColorIndex =1 - BorderThemeColorIndex =3 - ThemeFontIndex =1 - ForeThemeColorIndex =0 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - ThemeName ="Executive" - Begin - Begin Label - BackStyle =0 - FontSize =11 - FontName ="Calibri" - ThemeFontIndex =1 - BackThemeColorIndex =1 - BorderThemeColorIndex =0 - BorderTint =50.0 - ForeThemeColorIndex =0 - ForeTint =50.0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - End - Begin Image - BackStyle =0 - OldBorderStyle =0 - BorderLineStyle =0 - SizeMode =3 - PictureAlignment =2 - BackThemeColorIndex =1 - BorderThemeColorIndex =1 - BorderShade =65.0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - End - Begin CommandButton - FontSize =11 - FontWeight =400 - FontName ="Calibri" - ForeThemeColorIndex =0 - ForeTint =75.0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - UseTheme =1 - Shape =1 - Gradient =12 - BackThemeColorIndex =4 - BackTint =60.0 - BorderLineStyle =0 - BorderThemeColorIndex =4 - BorderTint =60.0 - ThemeFontIndex =1 - HoverThemeColorIndex =4 - HoverTint =40.0 - PressedThemeColorIndex =4 - PressedShade =75.0 - HoverForeThemeColorIndex =0 - HoverForeTint =75.0 - PressedForeThemeColorIndex =0 - PressedForeTint =75.0 - End - Begin ListBox - BorderLineStyle =0 - LabelX =-1800 - FontSize =11 - FontName ="Calibri" - AllowValueListEdits =1 - InheritValueList =1 - ThemeFontIndex =1 - BackThemeColorIndex =1 - BorderThemeColorIndex =1 - BorderShade =65.0 - ForeThemeColorIndex =0 - ForeTint =75.0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - End - Begin UnboundObjectFrame - SpecialEffect =2 - OldBorderStyle =1 - ThemeFontIndex =1 - BackThemeColorIndex =1 - BorderThemeColorIndex =1 - BorderShade =65.0 - ForeThemeColorIndex =2 - ForeShade =50.0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - End - Begin CustomControl - OldBorderStyle =1 - BackThemeColorIndex =1 - BorderThemeColorIndex =1 - BorderShade =65.0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - End - Begin Section - Height =7620 - Name ="Detail" - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - BackThemeColorIndex =1 - Begin - Begin CommandButton - OverlapFlags =85 - TextFontFamily =18 - Left =5400 - Top =2940 - Width =3120 - Height =720 - ForeColor =4210752 - Name ="cmdRunTests" - Caption =" Verify Database Objects" - OnClick ="[Event Procedure]" - FontName ="Palatino Linotype" - GridlineColor =10921638 - ImageData = Begin - 0x2800000010000000100000000100200000000000000000000000000000000000 , - 0x0000000000000000b0a090ff604830ff604830ff604830ff604830ff604830ff , - 0x604830ff604830ff604830ff604830ff604830ff000000000000000000000000 , - 0x0000000000000000b0a090fffff8f0ffe0e0e0ffe0d8d0ffe0d8d0ffe0d0c0ff , - 0xe0c8c0ffd0c0b0ffd0c0b0ffd0b8a0ff604830ff000000000000000000000000 , - 0x0000000000000000b0a090ffffffffffd0b8b0ffd0b8a0ffd0b0a0ffb0a090ff , - 0x604830ff604830ff604830ff604830ff604830ff604830ff604830ff604830ff , - 0x604830ff604830ffb0a090fffffffffffffffffffff8f0fffff0f0ffb0a090ff , - 0xfff8f0ffe0e0e0ffe0d8d0ffe0d8d0ffe0d0c0ffe0c8c0ffd0c0b0ffd0c0b0ff , - 0xd0b8a0ff604830ffc0a8a0ffffffffffe0c8c0ffe0c8c0ffd0c0b0ffb0a090ff , - 0xffffffffd0b8b0ffd0b8a0ffd0b0a0ffffe8e0ffc09080ffc09080ffc09080ff , - 0xd0b8b0ff604830ffc0b0a0ffffffffffb0a090ff604830ff604830ffb0a090ff , - 0xfffffffffffffffffff8f0fffff0f0fffff0e0ffffe8e0ffffe0d0ffffd8d0ff , - 0xd0c0b0ff604830ffd0b0a0ffffffffffb0a090fffff8f0ffe0e0e0ffc0a8a0ff , - 0xffffffffe0c8c0ffe0c8c0ffd0c0b0fffff8f0ffc0a890ffc0a890ffc0a090ff , - 0xe0d0c0ff604830ffd0b8a0ffffffffffb0a090ffffffffffd0b8b0ffc0b0a0ff , - 0xfffffffffffffffffffffffffffffffffffffffffff8f0fffff0f0ffffe8e0ff , - 0xe0d8d0ff604830fff0a890fff0a880ffb0a090ffffffffffffffffffd0b0a0ff , - 0xffffffffe0c8c0ffe0c8c0ffe0c8c0ffffffffffd0b0a0ffd0b0a0ffd0a8a0ff , - 0xe0e0e0ff604830fff0a890ffffc0a0ffc0a8a0ffffffffffe0c8c0ffd0b8a0ff , - 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffffff8ffff , - 0xfff8f0ff604830fff0a890fff0a880ffc0b0a0fffffffffffffffffff0a890ff , - 0xf0a880fff0a080fff0a070ffe09870ffe09060ffe08860ffe08050ffe07840ff , - 0xe07840ffd06030ff0000000000000000d0b0a0ffffffffffe0c8c0fff0a890ff , - 0xffc0a0ffffc0a0ffffb890ffffb890ffffb090ffffa880fff0a070fff0a070ff , - 0xf09870ffd06830ff0000000000000000d0b8a0fffffffffffffffffff0a890ff , - 0xf0a880fff0a080fff0a080ffe09870ffe09060ffe08860ffe08850ffe08050ff , - 0xe07840ffe07840ff0000000000000000f0a890fff0a880fff0a080fff0a070ff , - 0xe09870ffe09060ffe08860ffe08050ffe07840ffe07840ffd06030ff00000000 , - 0x00000000000000000000000000000000f0a890ffffc0a0ffffc0a0ffffb890ff , - 0xffb890ffffb090ffffa880fff0a070fff0a070fff09870ffd06830ff00000000 , - 0x00000000000000000000000000000000f0a890fff0a880fff0a080fff0a080ff , - 0xe09870ffe09060ffe08860ffe08850ffe08050ffe07840ffe07840ff00000000 , - 0x0000000000000000 - End - - LayoutCachedLeft =5400 - LayoutCachedTop =2940 - LayoutCachedWidth =8520 - LayoutCachedHeight =3660 - PictureCaptionArrangement =5 - BackColor =13807008 - BorderColor =13807008 - HoverColor =14796991 - PressedColor =9262658 - HoverForeColor =4210752 - PressedForeColor =4210752 - Overlaps =1 - End - Begin ListBox - RowSourceTypeInt =1 - OverlapFlags =85 - TextFontFamily =18 - IMESentenceMode =3 - ColumnCount =2 - Left =600 - Top =1140 - Width =4455 - Height =5745 - TabIndex =1 - ForeColor =4210752 - BorderColor =10921638 - Name ="lstResults" - RowSourceType ="Value List" - RowSource ="✔;Access Table exists;✔;tblInternal has data;✔;Linked Table exists;✔;tblLinkedCS" - "V has data;✔;Saved Table Data (TDF);✔;Saved Table Data (XML);✔;Table SQL;✔;Linke" - "d Table JSON;✔;Linked Table structure;✔;Table Relationship;✔;Table Data Macro Ex" - "ists;✔;Query exists;✔;Form exists;✔;Report exists;✔;Application Icon is set;✔;Cu" - "stom Database (DAO) property;✔;Custom Project Property" - ColumnWidths ="479;3975" - FontName ="Palatino Linotype" - GridlineColor =10921638 - - LayoutCachedLeft =600 - LayoutCachedTop =1140 - LayoutCachedWidth =5055 - LayoutCachedHeight =6885 - Begin - Begin Label - OverlapFlags =85 - TextFontFamily =18 - Left =780 - Top =720 - Width =2880 - Height =320 - BorderColor =8355711 - ForeColor =8355711 - Name ="Col1_Label" - Caption ="Test Results" - FontName ="Palatino Linotype" - GridlineColor =10921638 - LayoutCachedLeft =780 - LayoutCachedTop =720 - LayoutCachedWidth =3660 - LayoutCachedHeight =1040 - End - End - End - Begin Label - OverlapFlags =85 - TextFontFamily =18 - Left =5400 - Top =1140 - Width =3720 - Height =1635 - BorderColor =8355711 - ForeColor =8355711 - Name ="Label4" - Caption ="Click the button below to verify the objects in the current database. This helps" - " confirm that everything was correctly reconstructed from source." - FontName ="Palatino Linotype" - GridlineColor =10921638 - LayoutCachedLeft =5400 - LayoutCachedTop =1140 - LayoutCachedWidth =9120 - LayoutCachedHeight =2775 - End - Begin CommandButton - OverlapFlags =85 - TextFontFamily =18 - Left =5400 - Top =3900 - Width =3120 - Height =720 - TabIndex =2 - ForeColor =4210752 - Name ="cmdEditTests" - Caption =" Edit Tests..." - OnClick ="[Event Procedure]" - FontName ="Palatino Linotype" - GridlineColor =10921638 - ImageData = Begin - 0x2800000010000000100000000100200000000000000000000000000000000000 , - 0x0000000000000000000000000000000000000000000000000000000000000000 , - 0x000000000000000000000000000000000000000000000000bb461e4800000000 , - 0x0000000000000000000000000000000000000000000000000000000000000000 , - 0x000000003088305000000000000000000000000080281040803010ffd0502040 , - 0x0000000000000000000000000000000000000000000000000000000000000000 , - 0x20302040005000ff40a040400000000080281040e05020ff803010ff803010ff , - 0xd050204000000000000000000000000000000000000000000000000020302040 , - 0x208030ff005000ff005000ff30983040e05020ffe06840ffe09880ffd07860ff , - 0x803010ff00000000000000000038f040001890ff0018803000000000208030ff , - 0x309850ff60c080ff208030ff005000ffe07050fff0a890ffffc8b0fff0b8a0ff , - 0xc07050ff000000000030f0400038ffff001890ff001890ff0018803030a850ff , - 0x80d890ffb0e8c0ff90e0a0ff208030fff0907020f08870ffffc0b0fff09070ff , - 0xf0907040000000000030f0ff2058ffff7098ffff0028d0ff001890ff40c07040 , - 0x30a850ffa0e8b0ff30a850ff60986040706860c0b0786030f09070fff0907070 , - 0x00000000000000001050ffff90a8ffffa0c0ffff7098ffff0020b0ff00000000 , - 0x40c0604030a850ff50a87040706860f070686020000000000018801000000000 , - 0x00000000000000005080ff405078ffffa0b0ffff5078ffff6070c04000000000 , - 0x0000000070686020706860e070686020706860e02048d060001890ff00188020 , - 0x0000000000000000000000005080ff405080ffff6070b050706860e070686020 , - 0x70686020706860e070686010000000002048c0600038ffff001890ff001890ff , - 0x00188020000000000000000000000000000000000000000070686030508090a0 , - 0x006080ff2060707000000000000000000030f0ff2058ffff7098ffff0028d0ff , - 0x001890ff000000000000000000000000000000000000000000a8f04000a0e0ff , - 0x006890ff006890ff00608070000000001050ffff90a8ffffa0c0ffff7098ffff , - 0x0020b0ff000000000000000000000000000000000000000000a0e0ff10b0e0ff , - 0x80e0ffff0090c0ff006890ff000000005080ff405078ffffa0b0ffff5078ffff , - 0x5078ff40000000000000000000000000000000000000000000a0e0ff90e8ffff , - 0xb0f0ffff90e0ffff00a0e0ff00000000000000005080ff405080ffff5080ff40 , - 0x00000000000000000000000000000000000000000000000040c8ff4000a0e0ff , - 0xa0e8ffff00a0e0ff50d0ff400000000000000000000000000000000000000000 , - 0x0000000000000000000000000000000000000000000000000000000060d0ff70 , - 0x00a0e0ff50d0ff40000000000000000000000000000000000000000000000000 , - 0x0000000000000000 - End - - LayoutCachedLeft =5400 - LayoutCachedTop =3900 - LayoutCachedWidth =8520 - LayoutCachedHeight =4620 - PictureCaptionArrangement =5 - BackColor =13807008 - BorderColor =13807008 - HoverColor =14796991 - PressedColor =9262658 - HoverForeColor =4210752 - PressedForeColor =4210752 - Overlaps =1 - End - Begin Label - OverlapFlags =93 - TextFontFamily =18 - Left =5400 - Top =4860 - Width =3060 - Height =1635 - BorderColor =8355711 - ForeColor =8355711 - Name ="lblResults" - Caption ="17 tests passed\015\0120 tests failed" - FontName ="Palatino Linotype" - GridlineColor =10921638 - LayoutCachedLeft =5400 - LayoutCachedTop =4860 - LayoutCachedWidth =8460 - LayoutCachedHeight =6495 - End - Begin Image - PictureType =2 - Left =7860 - Top =4860 - Width =600 - Height =720 - BorderColor =10921638 - Name ="imgResult" - GridlineColor =10921638 - - LayoutCachedLeft =7860 - LayoutCachedTop =4860 - LayoutCachedWidth =8460 - LayoutCachedHeight =5580 - TabIndex =3 - End - End - End - End -End -CodeBehindForm -Attribute VB_GlobalNameSpace = False +Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = True Attribute VB_Exposed = False diff --git a/Testing/Testing.accdb.src/reports/rptDefaultPrinter.bas b/Testing/Testing.accdb.src/reports/rptDefaultPrinter.bas index d3e1c296..56270d63 100644 --- a/Testing/Testing.accdb.src/reports/rptDefaultPrinter.bas +++ b/Testing/Testing.accdb.src/reports/rptDefaultPrinter.bas @@ -91,9 +91,4 @@ Begin Report End End CodeBehindForm -Attribute VB_GlobalNameSpace = False -Attribute VB_Creatable = True -Attribute VB_PredeclaredId = True -Attribute VB_Exposed = False -Option Compare Database -Option Explicit +' See "rptDefaultPrinter.cls" diff --git a/Testing/Testing.accdb.src/reports/rptDefaultPrinter.cls b/Testing/Testing.accdb.src/reports/rptDefaultPrinter.cls index d3e1c296..88b9322e 100644 --- a/Testing/Testing.accdb.src/reports/rptDefaultPrinter.cls +++ b/Testing/Testing.accdb.src/reports/rptDefaultPrinter.cls @@ -1,97 +1,4 @@ -Version =20 -VersionRequired =20 -Begin Report - LayoutForPrint = NotDefault - DividingLines = NotDefault - AllowDesignChanges = NotDefault - TabularFamily =0 - DateGrouping =1 - GrpKeepTogether =1 - PictureAlignment =2 - DatasheetGridlinesBehavior =3 - GridX =24 - GridY =24 - Width =8884 - DatasheetFontHeight =11 - ItemSuffix =1 - RecSrcDt = Begin - 0xe05ff061b477e540 - End - DatasheetFontName ="Franklin Gothic Book" - FilterOnLoad =0 - FitToPage =1 - DisplayOnSharePointSite =1 - DatasheetAlternateBackColor =15921906 - DatasheetGridlinesColor12 =0 - FitToScreen =1 - DatasheetBackThemeColorIndex =1 - BorderThemeColorIndex =3 - ThemeFontIndex =1 - ForeThemeColorIndex =0 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - Begin - Begin Label - BackStyle =0 - FontSize =11 - FontName ="Calibri" - ThemeFontIndex =1 - BackThemeColorIndex =1 - BorderThemeColorIndex =0 - BorderTint =50.0 - ForeThemeColorIndex =0 - ForeTint =50.0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - End - Begin PageHeader - Height =360 - Name ="PageHeaderSection" - AutoHeight =1 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - BackThemeColorIndex =1 - End - Begin Section - KeepTogether = NotDefault - Height =7560 - Name ="Detail" - AutoHeight =1 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - BackThemeColorIndex =1 - Begin - Begin Label - TextFontFamily =0 - Left =1260 - Top =240 - Width =4800 - Height =420 - BorderColor =8355711 - ForeColor =8355711 - Name ="Label0" - Caption ="This report does not have any saved print settings." - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =1260 - LayoutCachedTop =240 - LayoutCachedWidth =6060 - LayoutCachedHeight =660 - End - End - End - Begin PageFooter - Height =360 - Name ="PageFooterSection" - AutoHeight =1 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - BackThemeColorIndex =1 - End - End -End -CodeBehindForm -Attribute VB_GlobalNameSpace = False +Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = True Attribute VB_Exposed = False diff --git a/Testing/Testing.accdb.src/reports/rptNavigationPaneGroups.bas b/Testing/Testing.accdb.src/reports/rptNavigationPaneGroups.bas index f8cde805..c4309c26 100644 --- a/Testing/Testing.accdb.src/reports/rptNavigationPaneGroups.bas +++ b/Testing/Testing.accdb.src/reports/rptNavigationPaneGroups.bas @@ -278,9 +278,4 @@ Begin Report End End CodeBehindForm -Attribute VB_GlobalNameSpace = False -Attribute VB_Creatable = True -Attribute VB_PredeclaredId = True -Attribute VB_Exposed = False -Option Compare Database -Option Explicit +' See "rptNavigationPaneGroups.cls" diff --git a/Testing/Testing.accdb.src/reports/rptNavigationPaneGroups.cls b/Testing/Testing.accdb.src/reports/rptNavigationPaneGroups.cls index f8cde805..88b9322e 100644 --- a/Testing/Testing.accdb.src/reports/rptNavigationPaneGroups.cls +++ b/Testing/Testing.accdb.src/reports/rptNavigationPaneGroups.cls @@ -1,284 +1,4 @@ -Version =20 -VersionRequired =20 -Begin Report - LayoutForPrint = NotDefault - DividingLines = NotDefault - AllowDesignChanges = NotDefault - TabularFamily =0 - DateGrouping =1 - GrpKeepTogether =1 - PictureAlignment =2 - DatasheetGridlinesBehavior =3 - GridX =24 - GridY =24 - Width =11700 - DatasheetFontHeight =11 - ItemSuffix =7 - RecSrcDt = Begin - 0x2df649898e77e540 - End - RecordSource ="qryNavigationPaneGroups" - Caption ="qryNavigationPaneGroups" - DatasheetFontName ="Franklin Gothic Book" - FilterOnLoad =0 - FitToPage =1 - DisplayOnSharePointSite =1 - DatasheetAlternateBackColor =15921906 - DatasheetGridlinesColor12 =0 - FitToScreen =1 - DatasheetBackThemeColorIndex =1 - BorderThemeColorIndex =3 - ThemeFontIndex =1 - ForeThemeColorIndex =0 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - Begin - Begin Label - BackStyle =0 - FontSize =11 - FontName ="Calibri" - ThemeFontIndex =1 - BackThemeColorIndex =1 - BorderThemeColorIndex =0 - BorderTint =50.0 - ForeThemeColorIndex =0 - ForeTint =50.0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - End - Begin TextBox - AddColon = NotDefault - FELineBreak = NotDefault - BorderLineStyle =0 - LabelX =-1800 - FontSize =11 - FontName ="Calibri" - AsianLineBreak =1 - ShowDatePicker =0 - BackThemeColorIndex =1 - BorderThemeColorIndex =1 - BorderShade =65.0 - ThemeFontIndex =1 - ForeThemeColorIndex =0 - ForeTint =75.0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - End - Begin BreakLevel - GroupHeader = NotDefault - ControlSource ="ObjectName" - End - Begin BreakLevel - ControlSource ="GroupName" - End - Begin FormHeader - KeepTogether = NotDefault - Height =960 - Name ="ReportHeader" - AutoHeight =1 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - BackThemeColorIndex =2 - BackTint =20.0 - Begin - Begin Label - TextFontFamily =0 - Left =60 - Top =60 - Width =4350 - Height =540 - FontSize =20 - BorderColor =8355711 - ForeColor =8355711 - Name ="Label4" - Caption ="qryNavigationPaneGroups" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =60 - LayoutCachedTop =60 - LayoutCachedWidth =4410 - LayoutCachedHeight =600 - End - End - End - Begin PageHeader - Height =435 - Name ="PageHeaderSection" - AutoHeight =1 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - BackThemeColorIndex =1 - Begin - Begin Label - TextAlign =1 - TextFontFamily =0 - Left =360 - Top =60 - Width =3660 - Height =315 - BorderColor =8355711 - ForeColor =8355711 - Name ="ObjectName_Label" - Caption ="ObjectName" - FontName ="Franklin Gothic Book" - Tag ="DetachedLabel" - GridlineStyleBottom =1 - GridlineColor =10921638 - LayoutCachedLeft =360 - LayoutCachedTop =60 - LayoutCachedWidth =4020 - LayoutCachedHeight =375 - End - Begin Label - TextAlign =1 - TextFontFamily =0 - Left =4380 - Top =60 - Width =7260 - Height =315 - BorderColor =8355711 - ForeColor =8355711 - Name ="GroupName_Label" - Caption ="GroupName" - FontName ="Franklin Gothic Book" - Tag ="DetachedLabel" - GridlineStyleBottom =1 - GridlineColor =10921638 - LayoutCachedLeft =4380 - LayoutCachedTop =60 - LayoutCachedWidth =11640 - LayoutCachedHeight =375 - End - End - End - Begin BreakHeader - KeepTogether = NotDefault - Height =390 - Name ="GroupHeader0" - AutoHeight =1 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - BackThemeColorIndex =1 - Begin - Begin TextBox - DecimalPlaces =0 - OldBorderStyle =0 - TextFontFamily =0 - IMESentenceMode =3 - Left =360 - Width =3660 - Height =330 - ColumnWidth =1665 - BorderColor =10921638 - ForeColor =4210752 - Name ="ObjectName" - ControlSource ="ObjectName" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - - LayoutCachedLeft =360 - LayoutCachedWidth =4020 - LayoutCachedHeight =330 - End - End - End - Begin Section - KeepTogether = NotDefault - Height =390 - Name ="Detail" - AutoHeight =1 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - BackThemeColorIndex =1 - Begin - Begin TextBox - OldBorderStyle =0 - TextFontFamily =0 - IMESentenceMode =3 - Left =4380 - Width =7260 - Height =330 - ColumnWidth =1545 - BorderColor =10921638 - ForeColor =4210752 - Name ="GroupName" - ControlSource ="GroupName" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - - LayoutCachedLeft =4380 - LayoutCachedWidth =11640 - LayoutCachedHeight =330 - End - End - End - Begin PageFooter - Height =570 - Name ="PageFooterSection" - AutoHeight =1 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - BackThemeColorIndex =1 - Begin - Begin TextBox - OldBorderStyle =0 - TextAlign =1 - TextFontFamily =0 - IMESentenceMode =3 - Left =60 - Top =240 - Width =5040 - Height =330 - BorderColor =10921638 - ForeColor =4210752 - Name ="Text5" - ControlSource ="=Now()" - Format ="Long Date" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - - LayoutCachedLeft =60 - LayoutCachedTop =240 - LayoutCachedWidth =5100 - LayoutCachedHeight =570 - End - Begin TextBox - OldBorderStyle =0 - TextAlign =3 - TextFontFamily =0 - IMESentenceMode =3 - Left =6600 - Top =240 - Width =5040 - Height =330 - TabIndex =1 - BorderColor =10921638 - ForeColor =4210752 - Name ="Text6" - ControlSource ="=\"Page \" & [Page] & \" of \" & [Pages]" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - - LayoutCachedLeft =6600 - LayoutCachedTop =240 - LayoutCachedWidth =11640 - LayoutCachedHeight =570 - End - End - End - Begin FormFooter - KeepTogether = NotDefault - Height =0 - Name ="ReportFooter" - AutoHeight =1 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - BackThemeColorIndex =1 - End - End -End -CodeBehindForm -Attribute VB_GlobalNameSpace = False +Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = True Attribute VB_Exposed = False diff --git a/Testing/Testing.accdb.src/reports/rptNonDefaultPaperSize.bas b/Testing/Testing.accdb.src/reports/rptNonDefaultPaperSize.bas index 5c540100..64ac69f3 100644 --- a/Testing/Testing.accdb.src/reports/rptNonDefaultPaperSize.bas +++ b/Testing/Testing.accdb.src/reports/rptNonDefaultPaperSize.bas @@ -90,9 +90,4 @@ Begin Report End End CodeBehindForm -Attribute VB_GlobalNameSpace = False -Attribute VB_Creatable = True -Attribute VB_PredeclaredId = True -Attribute VB_Exposed = False -Option Compare Database -Option Explicit +' See "rptNonDefaultPaperSize.cls" diff --git a/Testing/Testing.accdb.src/reports/rptNonDefaultPaperSize.cls b/Testing/Testing.accdb.src/reports/rptNonDefaultPaperSize.cls index 5c540100..88b9322e 100644 --- a/Testing/Testing.accdb.src/reports/rptNonDefaultPaperSize.cls +++ b/Testing/Testing.accdb.src/reports/rptNonDefaultPaperSize.cls @@ -1,96 +1,4 @@ -Version =20 -VersionRequired =20 -Begin Report - LayoutForPrint = NotDefault - DividingLines = NotDefault - AllowDesignChanges = NotDefault - DateGrouping =1 - GrpKeepTogether =1 - PictureAlignment =2 - DatasheetGridlinesBehavior =3 - GridX =24 - GridY =24 - Width =8884 - DatasheetFontHeight =11 - ItemSuffix =1 - RecSrcDt = Begin - 0xe05ff061b477e540 - End - DatasheetFontName ="Franklin Gothic Book" - FilterOnLoad =0 - FitToPage =1 - DisplayOnSharePointSite =1 - DatasheetAlternateBackColor =15921906 - DatasheetGridlinesColor12 =0 - FitToScreen =1 - DatasheetBackThemeColorIndex =1 - BorderThemeColorIndex =3 - ThemeFontIndex =1 - ForeThemeColorIndex =0 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - Begin - Begin Label - BackStyle =0 - FontSize =11 - FontName ="Calibri" - ThemeFontIndex =1 - BackThemeColorIndex =1 - BorderThemeColorIndex =0 - BorderTint =50.0 - ForeThemeColorIndex =0 - ForeTint =50.0 - GridlineThemeColorIndex =1 - GridlineShade =65.0 - End - Begin PageHeader - Height =360 - Name ="PageHeaderSection" - AutoHeight =1 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - BackThemeColorIndex =1 - End - Begin Section - KeepTogether = NotDefault - Height =7560 - Name ="Detail" - AutoHeight =1 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - BackThemeColorIndex =1 - Begin - Begin Label - TextFontFamily =0 - Left =1260 - Top =240 - Width =4800 - Height =420 - BorderColor =8355711 - ForeColor =8355711 - Name ="Label0" - Caption ="This report uses A4 landscape paper size" - FontName ="Franklin Gothic Book" - GridlineColor =10921638 - LayoutCachedLeft =1260 - LayoutCachedTop =240 - LayoutCachedWidth =6060 - LayoutCachedHeight =660 - End - End - End - Begin PageFooter - Height =360 - Name ="PageFooterSection" - AutoHeight =1 - AlternateBackThemeColorIndex =1 - AlternateBackShade =95.0 - BackThemeColorIndex =1 - End - End -End -CodeBehindForm -Attribute VB_GlobalNameSpace = False +Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = True Attribute VB_Exposed = False diff --git a/Testing/Testing.accdb.src/vcs-options.json b/Testing/Testing.accdb.src/vcs-options.json index 6f864346..4a042444 100644 --- a/Testing/Testing.accdb.src/vcs-options.json +++ b/Testing/Testing.accdb.src/vcs-options.json @@ -1,6 +1,6 @@ { "Info": { - "AddinVersion": "4.0.22", + "AddinVersion": "4.0.26", "AccessVersion": "14.0 32-bit" }, "Options": { @@ -36,6 +36,7 @@ "FormatSQL": true, "ForceImportOriginalQuerySQL": false, "SaveTableSQL": true, + "SplitLayoutFromVBA": true, "StripPublishOption": true, "SanitizeColors": 1, "SanitizeLevel": 2,