Version =20 VersionRequired =20 Begin Form AllowFilters = NotDefault PopUp = NotDefault Modal = NotDefault RecordSelectors = NotDefault MaxButton = NotDefault MinButton = NotDefault ShortcutMenu = NotDefault AutoCenter = NotDefault NavigationButtons = NotDefault AllowDeletions = NotDefault DividingLines = NotDefault AllowAdditions = NotDefault DefaultView =0 ScrollBars =0 ViewsAllowed =1 BorderStyle =1 PictureAlignment =2 DatasheetGridlinesBehavior =3 GridY =10 Width =8163 DatasheetFontHeight =11 ItemSuffix =20 Left =3225 Top =2415 Right =20235 Bottom =10335 DatasheetGridlinesColor =14806254 RecSrcDt = Begin 0x97e87bbff3d2e440 End Caption ="VCS" DatasheetFontName ="Calibri" OnLoad ="[Event Procedure]" AllowDatasheetView =0 AllowPivotTableView =0 AllowPivotChartView =0 AllowPivotChartView =0 FilterOnLoad =0 ShowPageMargins =0 DisplayOnSharePointSite =1 AllowLayoutView =0 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 CommandButton Width =1701 Height =283 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 BorderColor =16777215 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 OptionGroup SpecialEffect =3 BorderLineStyle =0 Width =1701 Height =1701 BackThemeColorIndex =1 BorderThemeColorIndex =1 BorderShade =65.0 GridlineThemeColorIndex =1 GridlineShade =65.0 End Begin TextBox AddColon = NotDefault FELineBreak = NotDefault BorderLineStyle =0 Width =1701 LabelX =-1701 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 ComboBox AddColon = NotDefault BorderLineStyle =0 Width =1701 LabelX =-1701 FontSize =11 FontName ="Calibri" AllowValueListEdits =1 InheritValueList =1 ThemeFontIndex =1 BackThemeColorIndex =1 BorderThemeColorIndex =1 BorderShade =65.0 ForeThemeColorIndex =2 ForeShade =50.0 GridlineThemeColorIndex =1 GridlineShade =65.0 End Begin Section CanGrow = NotDefault Height =2437 Name ="Détail" AlternateBackColor =15921906 AlternateBackThemeColorIndex =1 AlternateBackShade =95.0 BackThemeColorIndex =1 Begin Begin Label OverlapFlags =85 TextAlign =2 TextFontFamily =49 Left =175 Top =56 Width =7840 Height =334 FontSize =12 FontWeight =700 BorderColor =8355711 ForeColor =8355711 Name ="lbl_title" Caption ="VCS - Version Control System For Access" FontName ="Consolas" GridlineColor =10921638 LayoutCachedLeft =175 LayoutCachedTop =56 LayoutCachedWidth =8015 LayoutCachedHeight =390 ThemeFontIndex =-1 End Begin ComboBox LimitToList = NotDefault OverlapFlags =85 TextFontFamily =49 IMESentenceMode =3 ColumnCount =4 Left =170 Top =623 Width =2828 Height =390 FontSize =10 BorderColor =10921638 ForeColor =4138256 ColumnInfo ="\"\";\"\";\"\";\"\";\"\";\"\";\"\";\"\";\"10\";\"100\"" Name ="cb_command" RowSourceType ="Table/Query" RowSource ="SELECT tbl_commands.cmd_name, tbl_commands.function, tbl_commands.description, t" "bl_commands.with_args FROM tbl_commands ORDER BY tbl_commands.order; " ColumnWidths ="5670;0;0;0" FontName ="Consolas" OnChange ="[Event Procedure]" GridlineColor =10921638 AllowValueListEdits =0 InheritValueList =0 LayoutCachedLeft =170 LayoutCachedTop =623 LayoutCachedWidth =2998 LayoutCachedHeight =1013 ThemeFontIndex =-1 End Begin CommandButton OverlapFlags =85 TextFontFamily =49 Left =7143 Top =623 Width =850 Height =390 TabIndex =2 ForeColor =4210752 Name ="cmd_run" Caption ="Run" OnClick ="[Event Procedure]" FontName ="Consolas" GridlineColor =10921638 LayoutCachedLeft =7143 LayoutCachedTop =623 LayoutCachedWidth =7993 LayoutCachedHeight =1013 UseTheme =0 BackColor =14136213 BorderColor =14136213 ThemeFontIndex =-1 HoverColor =15060409 PressedColor =9592887 HoverForeColor =4210752 PressedForeColor =4210752 WebImagePaddingLeft =2 WebImagePaddingTop =2 WebImagePaddingRight =1 WebImagePaddingBottom =1 Overlaps =1 End Begin Label OverlapFlags =93 TextFontFamily =49 Left =165 Top =1185 Width =7830 Height =735 FontSize =10 BorderColor =8355711 Name ="lbl_help" Caption ="Runs a git command" FontName ="Consolas" GridlineColor =10921638 LayoutCachedLeft =165 LayoutCachedTop =1185 LayoutCachedWidth =7995 LayoutCachedHeight =1920 ThemeFontIndex =-1 ForeTint =100.0 End Begin Label FontItalic = NotDefault OverlapFlags =85 TextAlign =3 TextFontFamily =49 Left =2040 Top =2040 Width =5949 Height =223 FontSize =8 BorderColor =8355711 Name ="Étiquette15" Caption ="Conseil départemental du Bas-Rhin, 2016" FontName ="Consolas" GridlineColor =10921638 LayoutCachedLeft =2040 LayoutCachedTop =2040 LayoutCachedWidth =7989 LayoutCachedHeight =2263 ThemeFontIndex =-1 ForeTint =100.0 End Begin TextBox OverlapFlags =85 TextFontFamily =49 IMESentenceMode =3 Left =3118 Top =623 Width =3860 Height =390 FontSize =10 TabIndex =1 BorderColor =10921638 ForeColor =4138256 Name ="txt_args" FontName ="Consolas" GridlineColor =10921638 LayoutCachedLeft =3118 LayoutCachedTop =623 LayoutCachedWidth =6978 LayoutCachedHeight =1013 ThemeFontIndex =-1 ForeThemeColorIndex =2 ForeTint =100.0 ForeShade =50.0 End Begin CommandButton OverlapFlags =87 Left =170 Top =1927 Width =340 Height =340 TabIndex =3 ForeColor =4210752 Name ="cmd_config" OnClick ="[Event Procedure]" GridlineColor =10921638 ImageData = Begin 0x2800000010000000100000000100200000000000000000000000000000000000 , 0x0000000000000000000000000000000000000000000000000000000000000000 , 0x0000000000000000000000000000000000000000000000000000000000000000 , 0x0000000000000000c0a090ff604830ff604830ff604830ff604830ff604830ff , 0x604830ff604830ff604830ff604830ff604830ff604830ff0000000000000000 , 0x0000000000000000c0a890fffff8f0fffff0e0fff0e8e0fff0e0d0fff0d0c0ff , 0xf0c8b0ffe0c0a0ffe0b8a0ffe0b090ffe0a890ff604830ff0000000000000000 , 0x0000000000000000c0a8a0fffffff0ffc0a8a0ffb0a0a0fff0e8e0ffb0a090ff , 0xb09890ffb09890ffb09890ffb09890ffe0b090ff604830ff0000000000000000 , 0x0000000000000000c0a8a0fffffff0fffffff0fffff8f0fffff0e0fff0e8e0ff , 0xf0e0d0fff0d0c0fff0c8b0ffe0c0a0ffe0b8a0ff604830ff0000000000000000 , 0x0000000000000000c0a8a0fffffff0ffb0a8a0ffb0a0a0fffff8f0ffb0a090ff , 0xb09890ffb09890ffb09890ffb09890ffe0c0a0ff604830ff0000000000000000 , 0x0000000000000000c0b0a0fffffff0fffffff0fffffff0fffffff0fffff8f0ff , 0xfff0e0fff0e8e0fff0e0d0fff0d0c0fff0c8b0ff604830ff0000000000000000 , 0x0000000000000000c0b0a0fffffff0fffffff0fffffff0fffffff0fffffff0ff , 0xfff8f0ffc0c8c0ff406070fff0e0d0fff0d0c0ff604830ff0000000000000000 , 0x0000000040784010c0b0a0ffffffffffe0e8f0ff607880ffe0e0e0fffffff0ff , 0xc0c8d0ff506070ff30a8d0ff203840ffb0a0a0ff604830ff0000000000000000 , 0x40784070408050ffd0b0a0ffffffffff90a8b0ff80d0e0ff506070ffb0b8c0ff , 0x506070ff60c0e0ff506070ff30b8f0ff102830ff103040ff102830ff10203090 , 0x407840ff50a860ffd0b8a0ffffffffffd0d8e0ff90a8b0ff80e0f0ff506070ff , 0x80d0e0ff506070ff60d0f0ff406070ff30b0e0ff2098d0ff2088b0ff205070ff , 0x508860ff50b060ffd0b8a0ffd0b8a0ffd0b8a0ffb0b0a0ff90a8b0ff80e0f0ff , 0x506070ff80e0f0ff405870ff60d0f0ff50c8f0ff40c0f0ff20b0e0ff20a0d0ff , 0x609870ff50b870ff00000000000000000000000090a8b0ff2080a0ff90a8b0ff , 0x80e0f0ff405870ff80e0f0ff70d8f0ff60d0f0ff50c8f0ff40c0f0ff30b8f0ff , 0x70a880ff60c080ff00000000000000000000000090a8b09090a8b0ff2080a0ff , 0x90a8b0ff80e0f0ff80e0f0ff80e0f0ff70d8f0ff60d0f0ff60b0d0ff808890ff , 0xb0c0a0ff90d0a0ff000000000000000000000000000000000000000090a8b050 , 0x90a8b0b090a8b0ff90a0b0ff90a0a0ff8098a0ff8090a0ff808890ff80889080 , 0xa0b8a0ffb0c0a0ff000000000000000000000000000000000000000000000000 , 0x0000000000000000000000000000000000000000000000000000000000000000 , 0x0000000000000000 End LayoutCachedLeft =170 LayoutCachedTop =1927 LayoutCachedWidth =510 LayoutCachedHeight =2267 UseTheme =0 Gradient =0 BackColor =14136213 BorderColor =14136213 HoverColor =15060409 PressedColor =9592887 HoverForeColor =4210752 PressedForeColor =4210752 WebImagePaddingLeft =2 WebImagePaddingTop =2 WebImagePaddingRight =1 WebImagePaddingBottom =1 Overlaps =1 End End End End End CodeBehindForm Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Compare Database Private Sub cb_command_Change() Call update End Sub Private Sub cmd_config_Click() If Not vcs_tbl_exists Then If Not MsgBox("The configuration table 'ztbl_vcs' does not exist, " & _ "do you want to create it?", vbYesNo) = vbNo Then Exit Sub End If DoCmd.SetWarnings False DoCmd.RunSQL "SELECT INTO [ztbl_vcs] FROM [modele - ztbl_vcs];" DoCmd.SetWarnings True Else MsgBox "'ztl_vcs' already exists" End If 'DoCmd.OpenForm "frm_config" End Sub Private Sub cmd_run_Click() Call run End Sub Private Sub Form_Load() Call update End Sub Sub update() Me.lbl_help.Caption = Nz(Me.cb_command.Column(2), "") Me.txt_args.Enabled = Nz(Me.cb_command.Column(3), False) If Me.txt_args.Enabled Then Me.txt_args.SetFocus Else Me.cmd_run.SetFocus End If End Sub Sub run() If Not Me.txt_args.Enabled Then Application.run Me.cb_command.Column(1) Else Application.run Me.cb_command.Column(1), Me.txt_args End If MsgBox "Done" End Sub