Version =20 VersionRequired =20 Begin Form DividingLines = NotDefault AllowDesignChanges = NotDefault PictureAlignment =2 DatasheetGridlinesBehavior =3 GridY =10 Width =20807 DatasheetFontHeight =11 ItemSuffix =8 Right =13590 Bottom =12345 DatasheetGridlinesColor =14806254 Filter ="[user]='olivier'" RecSrcDt = Begin 0xb6942d1f1538e440 End RecordSource ="SELECT tbl_ParamUtil.Parametre, tbl_ParamUtil.Valeur, tbl_ParamUtil.Valeur2, tbl" "_ParamUtil.Description, tbl_ParamUtil.User FROM tbl_ParamUtil ORDER BY tbl_Param" "Util.User; " OnCurrent ="[Event Procedure]" DatasheetFontName ="Calibri" FilterOnLoad =0 ShowPageMargins =0 DisplayOnSharePointSite =1 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 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 FormHeader Height =1057 BackColor =14211288 Name ="EntêteFormulaire" AlternateBackThemeColorIndex =1 AlternateBackShade =95.0 Begin Begin Label OverlapFlags =93 Left =623 Top =56 Width =3402 Height =397 FontSize =13 BorderColor =8355711 Name ="Étiquette0" Caption ="Gestion des Paramètres" GridlineColor =10921638 LayoutCachedLeft =623 LayoutCachedTop =56 LayoutCachedWidth =4025 LayoutCachedHeight =453 ForeTint =100.0 End Begin CommandButton OverlapFlags =85 Left =56 Top =56 Width =516 Height =351 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 =572 LayoutCachedHeight =407 Gradient =0 BackColor =15921906 BackThemeColorIndex =1 BackTint =100.0 BackShade =95.0 BorderColor =14136213 HoverColor =15060409 PressedColor =9592887 HoverForeColor =4210752 PressedForeColor =4210752 WebImagePaddingLeft =2 WebImagePaddingTop =2 WebImagePaddingRight =1 WebImagePaddingBottom =1 End Begin Label OverlapFlags =85 Left =7880 Top =742 Width =690 Height =315 BorderColor =8355711 ForeColor =8355711 Name ="Étiquette3" Caption ="Valeur" GridlineColor =10921638 LayoutCachedLeft =7880 LayoutCachedTop =742 LayoutCachedWidth =8570 LayoutCachedHeight =1057 End Begin Label OverlapFlags =85 Left =12925 Top =680 Width =2280 Height =315 BorderColor =8355711 ForeColor =8355711 Name ="Étiquette4" Caption ="Valeur complémentaire" GridlineColor =10921638 LayoutCachedLeft =12925 LayoutCachedTop =680 LayoutCachedWidth =15205 LayoutCachedHeight =995 End Begin Label OverlapFlags =85 Left =113 Top =742 Width =2640 Height =315 BorderColor =8355711 ForeColor =8355711 Name ="Étiquette5" Caption ="Commentaire" GridlineColor =10921638 LayoutCachedLeft =113 LayoutCachedTop =742 LayoutCachedWidth =2753 LayoutCachedHeight =1057 End Begin Label OverlapFlags =85 Left =5835 Top =737 Width =1905 Height =315 BorderColor =8355711 ForeColor =8355711 Name ="Étiquette2" Caption =" Code du paramètre" GridlineColor =10921638 LayoutCachedLeft =5835 LayoutCachedTop =737 LayoutCachedWidth =7740 LayoutCachedHeight =1052 End Begin Label FontItalic = NotDefault OverlapFlags =215 Left =623 Top =340 Width =11115 Height =285 BorderColor =8355711 Name ="Étiquette6" Caption ="(Le cas échéant, un double clic sur la case 'valeur' ouvrira la fenêtre de sélec" "tion correspondante)" GridlineColor =10921638 LayoutCachedLeft =623 LayoutCachedTop =340 LayoutCachedWidth =11738 LayoutCachedHeight =625 ForeTint =100.0 End Begin Label OverlapFlags =85 Left =15987 Top =680 Width =495 Height =315 BorderColor =8355711 ForeColor =8355711 Name ="etiq_user" Caption ="User" GridlineColor =10921638 LayoutCachedLeft =15987 LayoutCachedTop =680 LayoutCachedWidth =16482 LayoutCachedHeight =995 End End End Begin Section Height =340 BackColor =14211288 Name ="Détail" AlternateBackColor =15921906 AlternateBackThemeColorIndex =1 AlternateBackShade =95.0 Begin Begin TextBox OverlapFlags =85 IMESentenceMode =3 Left =7880 Width =4986 Height =315 ColumnWidth =7920 BorderColor =10921638 ForeColor =4210752 Name ="valeur" ControlSource ="valeur" OnDblClick ="[Event Procedure]" GridlineColor =10921638 LayoutCachedLeft =7880 LayoutCachedWidth =12866 LayoutCachedHeight =315 End Begin TextBox OverlapFlags =85 IMESentenceMode =3 Left =12925 Width =3006 Height =315 TabIndex =1 BorderColor =10921638 ForeColor =4210752 Name ="valeur2" ControlSource ="valeur2" GridlineColor =10921638 LayoutCachedLeft =12925 LayoutCachedWidth =15931 LayoutCachedHeight =315 End Begin TextBox EnterKeyBehavior = NotDefault ScrollBars =2 OverlapFlags =85 IMESentenceMode =3 Left =114 Width =5610 Height =333 ColumnWidth =7725 TabIndex =2 BorderColor =10921638 ForeColor =4210752 Name ="commentaire" ControlSource ="Description" GridlineColor =10921638 LayoutCachedLeft =114 LayoutCachedWidth =5724 LayoutCachedHeight =333 End Begin TextBox OverlapFlags =85 IMESentenceMode =3 Left =5839 Width =1866 Height =315 TabIndex =3 BorderColor =10921638 ForeColor =4210752 Name ="parametre" ControlSource ="parametre" GridlineColor =10921638 LayoutCachedLeft =5839 LayoutCachedWidth =7705 LayoutCachedHeight =315 End Begin TextBox OverlapFlags =85 IMESentenceMode =3 Left =15987 Height =315 TabIndex =4 BorderColor =10921638 ForeColor =4210752 Name ="User" ControlSource ="User" GridlineColor =10921638 LayoutCachedLeft =15987 LayoutCachedWidth =17688 LayoutCachedHeight =315 End End End Begin FormFooter Height =453 BackColor =14211288 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 Private Sub Form_Current() 'on affiche le nom de l'utilisateur seulement lorsque l'affichage n'est pas filtré par utilisateur If Me.Filter <> "" And Me.FilterOn = True Then Me.User.Visible = False Me.etiq_user.Visible = False End If End Sub Private Sub valeur_DblClick(Cancel As Integer) Dim nouv As String If Me.parametre = "imprimante" Then nouv = NomImpr() ElseIf Me.parametre = "repPDF" Then nouv = Nz(SelectFolder("Selectionnez un dossier...", Me.hwnd), "") End If If nouv = "" Then Exit Sub Me.Valeur = nouv End Sub