openaccess/test/source/forms/frm_SuiviVersions.bas

Version =20
VersionRequired =20
Begin Form
    AllowDeletions = NotDefault
    DividingLines = NotDefault
    AllowAdditions = NotDefault
    AllowDesignChanges = NotDefault
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =18481
    DatasheetFontHeight =11
    ItemSuffix =17
    Right =16665
    Bottom =7890
    DatasheetGridlinesColor =15062992
    RecSrcDt = Begin
        0xc8ae16b46f22e440
    End
    RecordSource ="SELECT ztblVersion.VERSION, ztblVersion.VERSION_lb, ztblVersion.Modifie_par, ztb"
        "lVersion.Valide_par, ztblVersion.Valide_le, ztblVersion.Modifications FROM ztblV"
        "ersion ORDER BY ztblVersion.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 ="Modifié par:"
                    GridlineColor =10921638
                    LayoutCachedLeft =2380
                    LayoutCachedTop =623
                    LayoutCachedWidth =3595
                    LayoutCachedHeight =938
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    OverlapFlags =85
                    Left =4421
                    Top =623
                    Width =1080
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette4"
                    Caption ="Validé par:"
                    GridlineColor =10921638
                    LayoutCachedLeft =4421
                    LayoutCachedTop =623
                    LayoutCachedWidth =5501
                    LayoutCachedHeight =938
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    OverlapFlags =85
                    Left =6179
                    Top =623
                    Width =960
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette5"
                    Caption ="Validé le:"
                    GridlineColor =10921638
                    LayoutCachedLeft =6179
                    LayoutCachedTop =623
                    LayoutCachedWidth =7139
                    LayoutCachedHeight =938
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    OverlapFlags =85
                    Left =7653
                    Top =623
                    Width =1410
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette6"
                    Caption ="Modifications:"
                    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 ="Suivi des 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 ="Ajouter"
                    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 ="Actualiser"
                    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 =453
            BackColor =10855845
            Name ="PiedFormulaire"
            AlternateBackThemeColorIndex =1
            AlternateBackShade =95.0
            Begin
                Begin Label
                    Visible = NotDefault
                    OverlapFlags =93
                    Left =113
                    Top =56
                    Width =5783
                    Height =284
                    BorderColor =16777215
                    Name ="txt_npo"
                    Caption ="NPO: Mettre à jour la table tbl_parametre"
                    GridlineColor =10921638
                    LayoutCachedLeft =113
                    LayoutCachedTop =56
                    LayoutCachedWidth =5896
                    LayoutCachedHeight =340
                    ForeThemeColorIndex =-1
                    ForeTint =100.0
                End
                Begin CommandButton
                    Visible = NotDefault
                    OverlapFlags =215
                    Left =4422
                    Top =56
                    Width =1417
                    Height =329
                    ForeColor =4138256
                    Name ="cmd_acces"
                    Caption ="Accès"
                    OnClick ="[Event Procedure]"
                    GridlineColor =10921638

                    LayoutCachedLeft =4422
                    LayoutCachedTop =56
                    LayoutCachedWidth =5839
                    LayoutCachedHeight =385
                    BorderColor =12835293
                    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 cmd_acces_Click()
DoCmd.OpenTable "tbl_parametre"
End Sub

Private Sub cmd_actu_Click()

Me.Requery
Me.Refresh

End Sub

Private Sub cmd_suppr_Click()
Dim k1, k2 As Integer
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()
Dim rs As DAO.Recordset

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

Private Sub cmd_ajout_Click()
Dim rs As DAO.Recordset
Dim k1, k2 As Integer

Set rs = CurrentDb.OpenRecordset("ztblVersion")
rs.AddNew
rs![VERSION] = Date
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(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 Not DCount("valeur", "tbl_parametre", "valeur='admin' AND valeur2='" & CurrentUser & "'") > 0 Then
 Me.cmd_ajout.Visible = False
 Me.cmd_suppr.Visible = False
 Me.cmd_valider.Visible = False
 Me.cmd_acces.Visible = False
 Me.txt_npo.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 VERSION > #1/1/1990# Then k1 = 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

'message "nouvelle version"
Call CreerMsg(21)

End Sub