openaccess/source/forms/frm_vcs.bas

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