accesstoolbox/source/forms/zf_versions.bas

Version =20
VersionRequired =20
Begin Form
    AllowDeletions = NotDefault
    DividingLines = NotDefault
    AllowAdditions = NotDefault
    AllowDesignChanges = NotDefault
    AllowUpdating =1
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =18481
    DatasheetFontHeight =11
    ItemSuffix =17
    Right =11265
    Bottom =12135
    DatasheetGridlinesColor =15062992
    RecSrcDt = Begin
        0x7e84741354e5e440
    End
    RecordSource ="SELECT [zt_versions].VERSION, [zt_versions].VERSION_lb, [zt_versions].Modifie_pa"
        "r, [zt_versions].Valide_par, [zt_versions].Valide_le, [zt_versions].Modification"
        "s FROM zt_versions ORDER BY [zt_versions].VERSION DESC; "
    OnCurrent ="[Event Procedure]"
    DatasheetFontName ="Calibri"
    FilterOnLoad =0
    DatasheetBackColor12 =-2147483643
    ShowPageMargins =0
    DisplayOnSharePointSite =1
    DatasheetAlternateBackColor =16053492
    DatasheetGridlinesColor12 =15062992
    FitToScreen =1
    Begin
        Begin Label
            BackStyle =0
            FontSize =11
            FontName ="Calibri"
            ThemeFontIndex =1
            BackThemeColorIndex =1
            BorderThemeColorIndex =1
            ForeThemeColorIndex =2
            ForeTint =60.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =11
            FontWeight =400
            FontName ="Calibri"
            ForeThemeColorIndex =2
            ForeShade =50.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
            BackColor =-2147483633
            BorderLineStyle =0
            BorderThemeColorIndex =3
            BorderShade =90.0
            ThemeFontIndex =1
        End
        Begin TextBox
            FELineBreak = NotDefault
            BorderLineStyle =0
            Width =1701
            LabelX =-1701
            FontSize =11
            FontName ="Calibri"
            AsianLineBreak =1
            BackThemeColorIndex =1
            BorderThemeColorIndex =3
            BorderShade =90.0
            ThemeFontIndex =1
            ForeThemeColorIndex =2
            ForeShade =50.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin ComboBox
            BorderLineStyle =0
            Width =1701
            LabelX =-1701
            FontSize =11
            FontName ="Calibri"
            AllowValueListEdits =1
            InheritValueList =1
            ThemeFontIndex =1
            BackThemeColorIndex =1
            BorderThemeColorIndex =3
            BorderShade =90.0
            ForeThemeColorIndex =2
            ForeShade =50.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin FormHeader
            Height =963
            BackColor =12566463
            Name ="EntêteFormulaire"
            AlternateBackThemeColorIndex =1
            AlternateBackShade =95.0
            Begin
                Begin Label
                    OverlapFlags =85
                    Left =226
                    Top =566
                    Width =960
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette0"
                    Caption ="VERSION:"
                    GridlineColor =10921638
                    LayoutCachedLeft =226
                    LayoutCachedTop =566
                    LayoutCachedWidth =1186
                    LayoutCachedHeight =881
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    OverlapFlags =85
                    Left =2380
                    Top =623
                    Width =1215
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette2"
                    Caption ="By:"
                    GridlineColor =10921638
                    LayoutCachedLeft =2380
                    LayoutCachedTop =623
                    LayoutCachedWidth =3595
                    LayoutCachedHeight =938
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    OverlapFlags =85
                    Left =4425
                    Top =630
                    Width =1365
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette4"
                    Caption ="Validation:"
                    GridlineColor =10921638
                    LayoutCachedLeft =4425
                    LayoutCachedTop =630
                    LayoutCachedWidth =5790
                    LayoutCachedHeight =945
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    OverlapFlags =85
                    Left =7653
                    Top =623
                    Width =1410
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette6"
                    Caption ="Decsription:"
                    GridlineColor =10921638
                    LayoutCachedLeft =7653
                    LayoutCachedTop =623
                    LayoutCachedWidth =9063
                    LayoutCachedHeight =938
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    OverlapFlags =93
                    Left =623
                    Top =56
                    Width =5216
                    Height =340
                    FontSize =14
                    FontWeight =700
                    BorderColor =16777215
                    Name ="Étiquette7"
                    Caption ="Versions"
                    GridlineColor =10921638
                    LayoutCachedLeft =623
                    LayoutCachedTop =56
                    LayoutCachedWidth =5839
                    LayoutCachedHeight =396
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin CommandButton
                    OverlapFlags =215
                    Left =5499
                    Top =56
                    Width =1424
                    Height =343
                    ForeColor =4138256
                    Name ="cmd_ajout"
                    Caption ="New version"
                    OnClick ="[Event Procedure]"
                    GridlineColor =10921638

                    LayoutCachedLeft =5499
                    LayoutCachedTop =56
                    LayoutCachedWidth =6923
                    LayoutCachedHeight =399
                    BackColor =10855845
                    BorderColor =12835293
                    WebImagePaddingLeft =2
                    WebImagePaddingTop =2
                    WebImagePaddingRight =1
                    WebImagePaddingBottom =1
                    Overlaps =1
                End
                Begin CommandButton
                    OverlapFlags =215
                    Left =3798
                    Top =56
                    Width =1424
                    Height =343
                    TabIndex =1
                    ForeColor =4138256
                    Name ="cmd_actu"
                    Caption ="Refresh"
                    OnClick ="[Event Procedure]"
                    GridlineColor =10921638

                    LayoutCachedLeft =3798
                    LayoutCachedTop =56
                    LayoutCachedWidth =5222
                    LayoutCachedHeight =399
                    BackColor =10855845
                    BorderColor =12835293
                    WebImagePaddingLeft =2
                    WebImagePaddingTop =2
                    WebImagePaddingRight =1
                    WebImagePaddingBottom =1
                    Overlaps =1
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =56
                    Top =56
                    Width =501
                    Height =336
                    TabIndex =2
                    ForeColor =4210752
                    Name ="Commande1"
                    Caption ="Commande1"
                    ControlTipText ="Fermer formulaire"
                    GridlineColor =10921638
                    OnClickEmMacro = Begin
                        Version =196611
                        ColumnsShown =8
                        Begin
                            Action ="Close"
                            Argument ="-1"
                            Argument =""
                            Argument ="0"
                        End
                        Begin
                            Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
                                "nterfaceMacro For=\"Commande1\" xmlns=\"http://schemas.microsoft.com/office/acce"
                                "ssservices/2009/11/application\" xmlns:a=\"http://schemas.microsoft.com/office/a"
                                "ccessservices/2009/11/forms\"><"
                        End
                        Begin
                            Comment ="_AXL:Statements><Action Name=\"CloseWindow\"/></Statements></UserInterfaceMacro>"
                        End
                    End
                    ImageData = Begin
                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000010081080 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x000000000000000000000000000000000000000040485020100810e0104050ff ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000040404080405860ff106890ff2080a0f0 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000607070ff80a0b0ff4080a0ff20a0d0ff40a8e0ff2078a0ff ,
                        0x101020ff101020ff000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000708890ffa0d8f0ff60d0ffff50c0f0ff30a8e0ff1080b0ff ,
                        0xe0d8d0ff102020ff000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000708890ffb0e8f0ff80e0ffff60c8f0ff50b8f0ff1088c0ff ,
                        0xf0d8d0ff202830ff000000000000000090482030904820ff0000000000000000 ,
                        0x0000000000000000808890ffb0e8f0ff80e0ffff60d0ffff404050ff1090c0ff ,
                        0xf0e0d0ff303840ff0000000090482030a05030ffa05020ff0000000000000000 ,
                        0x00000000000000008090a0ffc0f0ffff90e0ffff70d8ffff60c8f0ff0090c0ff ,
                        0xf0e0e0ff404050ff90482030a05030ffd07840ffb05830ffa05020ffa04820ff ,
                        0x904820ff904820ff8090a0ffc0f0ffffa0e8ffff80d8ffff70d0f0ff40b0e0ff ,
                        0xf0e8e0ff605050ffa05830ffe08860fff09060fff08850ffe07850ffd07040ff ,
                        0xb06840ff904820ff8098a0ffc0f0ffffa0e8ffff90e8ffff80e0ffff80b8d0ff ,
                        0xf0e8e0ffe09870ffffc0a0ffffb090ffffa070fff09060fff08850ffe07850ff ,
                        0xd07040ffa05020ff8098a0ffc0f0ffffc0f8ffffa0e0f0ff90a8b0ffc0c8d0ff ,
                        0xf0f0e0ff908080fff0a070ffffc0a0ffffb090ffffb090ffffa880fff0a080ff ,
                        0xe09870ffb05030ff90a0a0ffe0f8ffffb0c8d0ff90a0b0fff0f0f0fffff8f0ff ,
                        0xf0f0f0ff607080ffe0987050f0a070ffffc0a0ffd06830ffe09870ffe09060ff ,
                        0xe08860ffe08050ff90a0b0ff90a8b0ffc0c8d0ffffffffffffffffffffffffff ,
                        0xffffffff708890ff00000000e0987050e09870ffd07040ff0000000000000000 ,
                        0x000000000000000090a0b0ff90a0b0ff90a0b0ff90a0b0ff90a0a0ff8098a0ff ,
                        0x8098a0ff9098a0ff0000000000000000e0987050e09870ff0000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End

                    LayoutCachedLeft =56
                    LayoutCachedTop =56
                    LayoutCachedWidth =557
                    LayoutCachedHeight =392
                    ForeThemeColorIndex =0
                    ForeTint =75.0
                    ForeShade =100.0
                    UseTheme =1
                    Shape =1
                    BackColor =16183539
                    BorderColor =12029087
                    BorderThemeColorIndex =-1
                    BorderShade =100.0
                    HoverColor =15060409
                    HoverThemeColorIndex =4
                    HoverTint =40.0
                    PressedColor =9592887
                    PressedThemeColorIndex =4
                    PressedShade =75.0
                    HoverForeColor =4210752
                    HoverForeThemeColorIndex =0
                    HoverForeTint =75.0
                    PressedForeColor =4210752
                    PressedForeThemeColorIndex =0
                    PressedForeTint =75.0
                    WebImagePaddingLeft =2
                    WebImagePaddingTop =2
                    WebImagePaddingRight =1
                    WebImagePaddingBottom =1
                End
            End
        End
        Begin Section
            Height =510
            BackColor =15527148
            Name ="Détail"
            AlternateBackColor =12566463
            Begin
                Begin TextBox
                    BorderWidth =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =226
                    Top =56
                    Width =1266
                    Height =315
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="VERSION"
                    ControlSource ="VERSION"
                    Format ="Short Date"
                    StatusBarText ="Date de la version (JJ/MM/AAAA)"
                    AfterUpdate ="[Event Procedure]"
                    GridlineColor =10921638

                    LayoutCachedLeft =226
                    LayoutCachedTop =56
                    LayoutCachedWidth =1492
                    LayoutCachedHeight =371
                End
                Begin TextBox
                    BorderWidth =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1587
                    Top =56
                    Width =681
                    Height =315
                    TabIndex =5
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="VERSION_lb"
                    ControlSource ="VERSION_lb"
                    StatusBarText ="Libellé de la version"
                    AfterUpdate ="[Event Procedure]"
                    GridlineColor =10921638

                    LayoutCachedLeft =1587
                    LayoutCachedTop =56
                    LayoutCachedWidth =2268
                    LayoutCachedHeight =371
                End
                Begin TextBox
                    BorderWidth =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =2437
                    Top =56
                    Height =315
                    TabIndex =1
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="Modifie_par"
                    ControlSource ="Modifie_par"
                    GridlineColor =10921638

                    LayoutCachedLeft =2437
                    LayoutCachedTop =56
                    LayoutCachedWidth =4138
                    LayoutCachedHeight =371
                End
                Begin TextBox
                    BorderWidth =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =4478
                    Top =56
                    Height =315
                    TabIndex =2
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="Valide_par"
                    ControlSource ="Valide_par"
                    GridlineColor =10921638

                    LayoutCachedLeft =4478
                    LayoutCachedTop =56
                    LayoutCachedWidth =6179
                    LayoutCachedHeight =371
                End
                Begin TextBox
                    BorderWidth =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =6235
                    Top =56
                    Width =1251
                    Height =315
                    TabIndex =3
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="Valide_le"
                    ControlSource ="Valide_le"
                    Format ="Short Date"
                    GridlineColor =10921638

                    LayoutCachedLeft =6235
                    LayoutCachedTop =56
                    LayoutCachedWidth =7486
                    LayoutCachedHeight =371
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    BorderWidth =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =7710
                    Top =56
                    Width =7485
                    Height =333
                    ColumnWidth =7215
                    TabIndex =4
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="Modifications"
                    ControlSource ="Modifications"
                    StatusBarText ="Modifications apportées par la nouvelle version"
                    GridlineColor =10921638

                    LayoutCachedLeft =7710
                    LayoutCachedTop =56
                    LayoutCachedWidth =15195
                    LayoutCachedHeight =389
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =15363
                    Top =56
                    Width =1134
                    Height =340
                    TabIndex =6
                    ForeColor =4138256
                    Name ="cmd_valider"
                    Caption ="Valider"
                    OnClick ="[Event Procedure]"
                    GridlineColor =10921638

                    LayoutCachedLeft =15363
                    LayoutCachedTop =56
                    LayoutCachedWidth =16497
                    LayoutCachedHeight =396
                    BackColor =10855845
                    BorderColor =16777215
                    BorderThemeColorIndex =-1
                    BorderShade =100.0
                    WebImagePaddingLeft =2
                    WebImagePaddingTop =2
                    WebImagePaddingRight =1
                    WebImagePaddingBottom =1
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =16781
                    Top =56
                    Width =1314
                    Height =340
                    TabIndex =7
                    ForeColor =4138256
                    Name ="cmd_suppr"
                    Caption ="Supprimer"
                    OnClick ="[Event Procedure]"
                    GridlineColor =10921638

                    LayoutCachedLeft =16781
                    LayoutCachedTop =56
                    LayoutCachedWidth =18095
                    LayoutCachedHeight =396
                    BackColor =10855845
                    BorderColor =16777215
                    BorderThemeColorIndex =-1
                    BorderShade =100.0
                    WebImagePaddingLeft =2
                    WebImagePaddingTop =2
                    WebImagePaddingRight =1
                    WebImagePaddingBottom =1
                End
            End
        End
        Begin FormFooter
            Height =0
            BackColor =10855845
            Name ="PiedFormulaire"
            AlternateBackThemeColorIndex =1
            AlternateBackShade =95.0
        End
    End
End
CodeBehindForm
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database
Option Explicit

Private Sub cmd_actu_Click()
  Me.Requery
  Me.Refresh
End Sub

Private Sub cmd_suppr_Click()
  Dim rs As DAO.Recordset

  Me.AllowDeletions = True
  Me.Refresh
  DoCmd.RunCommand acCmdDeleteRecord
  Me.AllowDeletions = False
  Call MAJ_Local(DLast("[VERSION_lb]", "ztblVersion", ""), DLast("[VERSION]", "ztblVersion", ""))
  Me.Refresh
End Sub

Private Sub cmd_valider_Click()
  Me.Valide_le = Date
  Me.Valide_par = Environ("USERNAME")
  Me.Refresh
End Sub

Private Sub cmd_ajout_Click()
  Dim rs As DAO.Recordset
  Set rs = CurrentDb.OpenRecordset("ztblVersion")
  rs.AddNew
  rs![VERSION] = Now()
  rs![VERSION_lb] = DLast("[VERSION_lb]", "ztblVersion", "")
  rs![Modifie_par] = Environ("USERNAME")
  rs![Modifications] = Nz(InputBox("Modifications apportées:"), "")
  rs.Update
  rs.Close
  Set rs = Nothing

  Call MAJ_Local(Nz(DLast("[VERSION_lb]", "ztblVersion", ""), ""), Date)

  Me.Requery
  Me.Refresh
End Sub

Private Sub Commande14_Click()
On Error GoTo Err_Commande14_Click

    If Me.Dirty Then Me.Dirty = False
    DoCmd.Close

Exit_Commande14_Click:
    Exit Sub

Err_Commande14_Click:
    MsgBox err.Description
    Resume Exit_Commande14_Click
    
End Sub

Private Sub Form_Current()
  If estAdmin() = False Then
    Me.cmd_ajout.Visible = False
    Me.cmd_suppr.Visible = False
    Me.cmd_valider.Visible = False

    Me.VERSION.Locked = True
    Me.VERSION_lb.Locked = True
    Me.Modifie_par.Locked = True
    Me.Valide_le.Locked = True
    Me.Valide_par.Locked = True
    Me.Modifications.Locked = True
  End If
End Sub

Private Sub VERSION_AfterUpdate()
  Me.Requery
  Call MAJ_Local("", Me.VERSION)
End Sub

Private Sub VERSION_lb_AfterUpdate()
  Me.Requery
  Call MAJ_Local(Me.VERSION_lb)
End Sub

Sub MAJ_Local(VERSION_lb As String, Optional VERSION As String)
  Dim rs As DAO.Recordset
  Dim k1, k2 As Integer

  k1 = 0
  k2 = 0

  If Not Len(VERSION_lb) > 0 Then k2 = 1
  If Not Len(VERSION) > 0 Then k1 = 1

  If k1 = 1 And k2 = 1 Then Exit Sub
  If MsgBox("Mettre à jour la table tbl_parametre (local)?", vbYesNo) = vbNo Then Exit Sub

  'mise à jour des champs s'il existent
  Set rs = CurrentDb.OpenRecordset("tbl_parametre")
  rs.MoveFirst
  Do Until rs.EOF = True
    If k1 = 0 And rs![Parametre] = "VERSION" Then
      rs.Edit
      rs![valeur] = VERSION
      rs.Update
      k1 = 1
    End If
    If k2 = 0 And rs![Parametre] = "VERSION_lb" Then
      rs.Edit
      rs![valeur] = VERSION_lb
      rs.Update
      k2 = 1
    End If
    rs.MoveNext
  Loop

  'création s'ils sont manquants
  If k1 = 0 Then
     rs.AddNew
     rs![Parametre] = "VERSION"
     rs![valeur] = VERSION
     rs.Update
  End If
  If k2 = 0 Then
     rs.AddNew
     rs![Parametre] = "VERSION_lb"
     rs![valeur] = VERSION_lb
     rs.Update
  End If
  rs.Close

End Sub