frm_acces.bas 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342
  1. Version =20
  2. VersionRequired =20
  3. Begin Form
  4. DividingLines = NotDefault
  5. AllowDesignChanges = NotDefault
  6. PictureAlignment =2
  7. DatasheetGridlinesBehavior =3
  8. GridY =10
  9. Width =10771
  10. DatasheetFontHeight =11
  11. ItemSuffix =16
  12. Right =11325
  13. Bottom =7920
  14. DatasheetGridlinesColor =14806254
  15. RecSrcDt = Begin
  16. 0xeb69d50b1638e440
  17. End
  18. RecordSource ="SELECT tbl_parametre.valeur2 AS Utilisateur, tbl_parametre.commentaire AS Accès,"
  19. " tbl_parametre.valeur AS CodeAcces, tbl_parametre.parametre FROM tbl_parametre W"
  20. "HERE (((tbl_parametre.parametre)='acces')) ORDER BY tbl_parametre.valeur2; "
  21. DatasheetFontName ="Calibri"
  22. FilterOnLoad =0
  23. ShowPageMargins =0
  24. DisplayOnSharePointSite =1
  25. DatasheetAlternateBackColor =15921906
  26. DatasheetGridlinesColor12 =0
  27. FitToScreen =1
  28. DatasheetBackThemeColorIndex =1
  29. BorderThemeColorIndex =3
  30. ThemeFontIndex =1
  31. ForeThemeColorIndex =0
  32. AlternateBackThemeColorIndex =1
  33. AlternateBackShade =95.0
  34. Begin
  35. Begin Label
  36. BackStyle =0
  37. FontSize =11
  38. FontName ="Calibri"
  39. ThemeFontIndex =1
  40. BackThemeColorIndex =1
  41. BorderThemeColorIndex =0
  42. BorderTint =50.0
  43. ForeThemeColorIndex =0
  44. ForeTint =50.0
  45. GridlineThemeColorIndex =1
  46. GridlineShade =65.0
  47. End
  48. Begin CommandButton
  49. Width =1701
  50. Height =283
  51. FontSize =11
  52. FontWeight =400
  53. FontName ="Calibri"
  54. ForeThemeColorIndex =0
  55. ForeTint =75.0
  56. GridlineThemeColorIndex =1
  57. GridlineShade =65.0
  58. UseTheme =1
  59. Shape =1
  60. Gradient =12
  61. BackThemeColorIndex =4
  62. BackTint =60.0
  63. BorderLineStyle =0
  64. BorderColor =16777215
  65. BorderThemeColorIndex =4
  66. BorderTint =60.0
  67. ThemeFontIndex =1
  68. HoverThemeColorIndex =4
  69. HoverTint =40.0
  70. PressedThemeColorIndex =4
  71. PressedShade =75.0
  72. HoverForeThemeColorIndex =0
  73. HoverForeTint =75.0
  74. PressedForeThemeColorIndex =0
  75. PressedForeTint =75.0
  76. End
  77. Begin TextBox
  78. AddColon = NotDefault
  79. FELineBreak = NotDefault
  80. BorderLineStyle =0
  81. Width =1701
  82. LabelX =-1701
  83. FontSize =11
  84. FontName ="Calibri"
  85. AsianLineBreak =1
  86. BackThemeColorIndex =1
  87. BorderThemeColorIndex =1
  88. BorderShade =65.0
  89. ThemeFontIndex =1
  90. ForeThemeColorIndex =0
  91. ForeTint =75.0
  92. GridlineThemeColorIndex =1
  93. GridlineShade =65.0
  94. End
  95. Begin ComboBox
  96. AddColon = NotDefault
  97. BorderLineStyle =0
  98. Width =1701
  99. LabelX =-1701
  100. FontSize =11
  101. FontName ="Calibri"
  102. AllowValueListEdits =1
  103. InheritValueList =1
  104. ThemeFontIndex =1
  105. BackThemeColorIndex =1
  106. BorderThemeColorIndex =1
  107. BorderShade =65.0
  108. ForeThemeColorIndex =2
  109. ForeShade =50.0
  110. GridlineThemeColorIndex =1
  111. GridlineShade =65.0
  112. End
  113. Begin FormHeader
  114. Height =1077
  115. BackColor =13611711
  116. Name ="EntêteFormulaire"
  117. AlternateBackThemeColorIndex =1
  118. AlternateBackShade =95.0
  119. Begin
  120. Begin Label
  121. OverlapFlags =85
  122. Left =623
  123. Top =56
  124. Width =2834
  125. Height =333
  126. FontSize =13
  127. BorderColor =8355711
  128. Name ="Étiquette0"
  129. Caption ="Gestion des droits d'accès"
  130. GridlineColor =10921638
  131. LayoutCachedLeft =623
  132. LayoutCachedTop =56
  133. LayoutCachedWidth =3457
  134. LayoutCachedHeight =389
  135. ForeTint =100.0
  136. End
  137. Begin CommandButton
  138. OverlapFlags =85
  139. Left =56
  140. Top =56
  141. Width =516
  142. Height =351
  143. ForeColor =4210752
  144. Name ="Commande1"
  145. Caption ="Commande1"
  146. OnClick ="[Event Procedure]"
  147. ControlTipText ="Fermer formulaire"
  148. GridlineColor =10921638
  149. ImageData = Begin
  150. 0x2800000010000000100000000100200000000000000000000000000000000000 ,
  151. 0x0000000000000000000000000000000000000000000000000000000010081080 ,
  152. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  153. 0x000000000000000000000000000000000000000040485020100810e0104050ff ,
  154. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  155. 0x0000000000000000000000000000000040404080405860ff106890ff2080a0f0 ,
  156. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  157. 0x0000000000000000607070ff80a0b0ff4080a0ff20a0d0ff40a8e0ff2078a0ff ,
  158. 0x101020ff101020ff000000000000000000000000000000000000000000000000 ,
  159. 0x0000000000000000708890ffa0d8f0ff60d0ffff50c0f0ff30a8e0ff1080b0ff ,
  160. 0xe0d8d0ff102020ff000000000000000000000000000000000000000000000000 ,
  161. 0x0000000000000000708890ffb0e8f0ff80e0ffff60c8f0ff50b8f0ff1088c0ff ,
  162. 0xf0d8d0ff202830ff000000000000000090482030904820ff0000000000000000 ,
  163. 0x0000000000000000808890ffb0e8f0ff80e0ffff60d0ffff404050ff1090c0ff ,
  164. 0xf0e0d0ff303840ff0000000090482030a05030ffa05020ff0000000000000000 ,
  165. 0x00000000000000008090a0ffc0f0ffff90e0ffff70d8ffff60c8f0ff0090c0ff ,
  166. 0xf0e0e0ff404050ff90482030a05030ffd07840ffb05830ffa05020ffa04820ff ,
  167. 0x904820ff904820ff8090a0ffc0f0ffffa0e8ffff80d8ffff70d0f0ff40b0e0ff ,
  168. 0xf0e8e0ff605050ffa05830ffe08860fff09060fff08850ffe07850ffd07040ff ,
  169. 0xb06840ff904820ff8098a0ffc0f0ffffa0e8ffff90e8ffff80e0ffff80b8d0ff ,
  170. 0xf0e8e0ffe09870ffffc0a0ffffb090ffffa070fff09060fff08850ffe07850ff ,
  171. 0xd07040ffa05020ff8098a0ffc0f0ffffc0f8ffffa0e0f0ff90a8b0ffc0c8d0ff ,
  172. 0xf0f0e0ff908080fff0a070ffffc0a0ffffb090ffffb090ffffa880fff0a080ff ,
  173. 0xe09870ffb05030ff90a0a0ffe0f8ffffb0c8d0ff90a0b0fff0f0f0fffff8f0ff ,
  174. 0xf0f0f0ff607080ffe0987050f0a070ffffc0a0ffd06830ffe09870ffe09060ff ,
  175. 0xe08860ffe08050ff90a0b0ff90a8b0ffc0c8d0ffffffffffffffffffffffffff ,
  176. 0xffffffff708890ff00000000e0987050e09870ffd07040ff0000000000000000 ,
  177. 0x000000000000000090a0b0ff90a0b0ff90a0b0ff90a0b0ff90a0a0ff8098a0ff ,
  178. 0x8098a0ff9098a0ff0000000000000000e0987050e09870ff0000000000000000 ,
  179. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  180. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  181. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  182. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  183. 0x0000000000000000
  184. End
  185. LayoutCachedLeft =56
  186. LayoutCachedTop =56
  187. LayoutCachedWidth =572
  188. LayoutCachedHeight =407
  189. Gradient =0
  190. BackColor =15921906
  191. BackThemeColorIndex =1
  192. BackTint =100.0
  193. BackShade =95.0
  194. BorderColor =14136213
  195. HoverColor =15060409
  196. PressedColor =9592887
  197. HoverForeColor =4210752
  198. PressedForeColor =4210752
  199. WebImagePaddingLeft =2
  200. WebImagePaddingTop =2
  201. WebImagePaddingRight =1
  202. WebImagePaddingBottom =1
  203. End
  204. Begin Label
  205. OverlapFlags =85
  206. Left =623
  207. Top =737
  208. Width =1050
  209. Height =315
  210. BorderColor =8355711
  211. ForeColor =8355711
  212. Name ="Étiquette2"
  213. Caption ="Utilisateur"
  214. GridlineColor =10921638
  215. LayoutCachedLeft =623
  216. LayoutCachedTop =737
  217. LayoutCachedWidth =1673
  218. LayoutCachedHeight =1052
  219. End
  220. Begin Label
  221. OverlapFlags =85
  222. Left =3004
  223. Top =737
  224. Width =600
  225. Height =315
  226. BorderColor =8355711
  227. ForeColor =8355711
  228. Name ="Étiquette3"
  229. Caption ="Accès"
  230. GridlineColor =10921638
  231. LayoutCachedLeft =3004
  232. LayoutCachedTop =737
  233. LayoutCachedWidth =3604
  234. LayoutCachedHeight =1052
  235. End
  236. Begin Label
  237. OverlapFlags =85
  238. Left =5385
  239. Top =737
  240. Width =1080
  241. Height =315
  242. BorderColor =8355711
  243. ForeColor =8355711
  244. Name ="Étiquette4"
  245. Caption ="CodeAcces"
  246. GridlineColor =10921638
  247. LayoutCachedLeft =5385
  248. LayoutCachedTop =737
  249. LayoutCachedWidth =6465
  250. LayoutCachedHeight =1052
  251. End
  252. End
  253. End
  254. Begin Section
  255. Height =566
  256. BackColor =13611711
  257. Name ="Détail"
  258. AlternateBackColor =15921906
  259. AlternateBackThemeColorIndex =1
  260. AlternateBackShade =95.0
  261. Begin
  262. Begin TextBox
  263. OverlapFlags =85
  264. IMESentenceMode =3
  265. Left =623
  266. Top =56
  267. Width =2271
  268. Height =390
  269. BorderColor =10921638
  270. ForeColor =4210752
  271. Name ="Utilisateur"
  272. ControlSource ="Utilisateur"
  273. GridlineColor =10921638
  274. LayoutCachedLeft =623
  275. LayoutCachedTop =56
  276. LayoutCachedWidth =2894
  277. LayoutCachedHeight =446
  278. End
  279. Begin TextBox
  280. OverlapFlags =85
  281. IMESentenceMode =3
  282. Left =5385
  283. Top =56
  284. Height =390
  285. ColumnWidth =7920
  286. TabIndex =1
  287. BorderColor =10921638
  288. ForeColor =4210752
  289. Name ="CodeAcces"
  290. ControlSource ="CodeAcces"
  291. GridlineColor =10921638
  292. LayoutCachedLeft =5385
  293. LayoutCachedTop =56
  294. LayoutCachedWidth =7086
  295. LayoutCachedHeight =446
  296. End
  297. Begin TextBox
  298. EnterKeyBehavior = NotDefault
  299. ScrollBars =2
  300. OverlapFlags =85
  301. IMESentenceMode =3
  302. Left =3061
  303. Top =56
  304. Width =2160
  305. Height =393
  306. ColumnWidth =7725
  307. TabIndex =2
  308. BorderColor =10921638
  309. ForeColor =4210752
  310. Name ="Accès"
  311. ControlSource ="Accès"
  312. GridlineColor =10921638
  313. LayoutCachedLeft =3061
  314. LayoutCachedTop =56
  315. LayoutCachedWidth =5221
  316. LayoutCachedHeight =449
  317. End
  318. End
  319. End
  320. Begin FormFooter
  321. Height =0
  322. Name ="PiedFormulaire"
  323. AlternateBackThemeColorIndex =1
  324. AlternateBackShade =95.0
  325. BackThemeColorIndex =1
  326. End
  327. End
  328. End
  329. CodeBehindForm
  330. Attribute VB_GlobalNameSpace = False
  331. Attribute VB_Creatable = True
  332. Attribute VB_PredeclaredId = True
  333. Attribute VB_Exposed = False
  334. Option Compare Database
  335. Private Sub Commande1_Click()
  336. DoCmd.Close
  337. End Sub