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:\015\012<" End Begin Comment ="_AXL:Statements>" 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