f_main.bas 7.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233
  1. Version =20
  2. VersionRequired =20
  3. Begin Form
  4. DividingLines = NotDefault
  5. AllowDesignChanges = NotDefault
  6. DefaultView =0
  7. PictureAlignment =2
  8. DatasheetGridlinesBehavior =3
  9. GridY =10
  10. Width =6994
  11. DatasheetFontHeight =11
  12. ItemSuffix =6
  13. Right =11265
  14. Bottom =12135
  15. DatasheetGridlinesColor =14806254
  16. RecSrcDt = Begin
  17. 0x23ff439b958ae440
  18. End
  19. OnOpen ="[Event Procedure]"
  20. DatasheetFontName ="Calibri"
  21. FilterOnLoad =0
  22. ShowPageMargins =0
  23. DisplayOnSharePointSite =1
  24. DatasheetAlternateBackColor =15921906
  25. DatasheetGridlinesColor12 =0
  26. FitToScreen =1
  27. DatasheetBackThemeColorIndex =1
  28. BorderThemeColorIndex =3
  29. ThemeFontIndex =1
  30. ForeThemeColorIndex =0
  31. AlternateBackThemeColorIndex =1
  32. AlternateBackShade =95.0
  33. Begin
  34. Begin Label
  35. BackStyle =0
  36. FontSize =11
  37. FontName ="Calibri"
  38. ThemeFontIndex =1
  39. BackThemeColorIndex =1
  40. BorderThemeColorIndex =0
  41. BorderTint =50.0
  42. ForeThemeColorIndex =0
  43. ForeTint =50.0
  44. GridlineThemeColorIndex =1
  45. GridlineShade =65.0
  46. End
  47. Begin CommandButton
  48. Width =1701
  49. Height =283
  50. FontSize =11
  51. FontWeight =400
  52. FontName ="Calibri"
  53. ForeThemeColorIndex =0
  54. ForeTint =75.0
  55. GridlineThemeColorIndex =1
  56. GridlineShade =65.0
  57. UseTheme =1
  58. Shape =1
  59. Gradient =12
  60. BackThemeColorIndex =4
  61. BackTint =60.0
  62. BorderLineStyle =0
  63. BorderColor =16777215
  64. BorderThemeColorIndex =4
  65. BorderTint =60.0
  66. ThemeFontIndex =1
  67. HoverThemeColorIndex =4
  68. HoverTint =40.0
  69. PressedThemeColorIndex =4
  70. PressedShade =75.0
  71. HoverForeThemeColorIndex =0
  72. HoverForeTint =75.0
  73. PressedForeThemeColorIndex =0
  74. PressedForeTint =75.0
  75. End
  76. Begin Section
  77. Height =3741
  78. Name ="Détail"
  79. AlternateBackColor =15921906
  80. AlternateBackThemeColorIndex =1
  81. AlternateBackShade =95.0
  82. BackThemeColorIndex =1
  83. Begin
  84. Begin Label
  85. OverlapFlags =85
  86. TextAlign =2
  87. Left =2324
  88. Top =170
  89. Width =1927
  90. Height =453
  91. FontWeight =700
  92. BorderColor =8355711
  93. Name ="Étiquette0"
  94. Caption ="MAIN TITLE"
  95. GridlineColor =10921638
  96. LayoutCachedLeft =2324
  97. LayoutCachedTop =170
  98. LayoutCachedWidth =4251
  99. LayoutCachedHeight =623
  100. ForeTint =100.0
  101. End
  102. Begin CommandButton
  103. OverlapFlags =85
  104. Left =3968
  105. Top =2041
  106. Width =1531
  107. Height =457
  108. ForeColor =4210752
  109. Name ="btn_change_connexion"
  110. Caption ="Change"
  111. OnClick ="[Event Procedure]"
  112. GridlineColor =10921638
  113. LayoutCachedLeft =3968
  114. LayoutCachedTop =2041
  115. LayoutCachedWidth =5499
  116. LayoutCachedHeight =2498
  117. BackColor =14136213
  118. BorderColor =14136213
  119. HoverColor =15060409
  120. PressedColor =9592887
  121. HoverForeColor =4210752
  122. PressedForeColor =4210752
  123. WebImagePaddingLeft =2
  124. WebImagePaddingTop =2
  125. WebImagePaddingRight =1
  126. WebImagePaddingBottom =1
  127. End
  128. Begin Label
  129. OverlapFlags =85
  130. Left =3855
  131. Top =1247
  132. Width =2041
  133. Height =454
  134. BorderColor =8355711
  135. Name ="txtModeConnexion"
  136. Caption ="Current connexion"
  137. GridlineColor =10921638
  138. LayoutCachedLeft =3855
  139. LayoutCachedTop =1247
  140. LayoutCachedWidth =5896
  141. LayoutCachedHeight =1701
  142. ForeTint =100.0
  143. End
  144. Begin Label
  145. FontItalic = NotDefault
  146. OverlapFlags =93
  147. Left =340
  148. Top =1247
  149. Width =2326
  150. Height =349
  151. BorderColor =8355711
  152. Name ="lbVersion"
  153. Caption ="Nom version"
  154. GridlineColor =10921638
  155. LayoutCachedLeft =340
  156. LayoutCachedTop =1247
  157. LayoutCachedWidth =2666
  158. LayoutCachedHeight =1596
  159. ForeTint =100.0
  160. End
  161. Begin Label
  162. FontItalic = NotDefault
  163. OverlapFlags =87
  164. TextAlign =1
  165. Left =340
  166. Top =1587
  167. Width =2326
  168. Height =349
  169. BorderColor =8355711
  170. Name ="statVersion"
  171. Caption ="Statut version"
  172. GridlineColor =10921638
  173. LayoutCachedLeft =340
  174. LayoutCachedTop =1587
  175. LayoutCachedWidth =2666
  176. LayoutCachedHeight =1936
  177. ForeTint =100.0
  178. End
  179. Begin CommandButton
  180. OverlapFlags =85
  181. Left =397
  182. Top =2041
  183. Width =2039
  184. Height =453
  185. TabIndex =1
  186. ForeColor =4210752
  187. Name ="btn_versions"
  188. Caption ="Versions"
  189. OnClick ="[Event Procedure]"
  190. GridlineColor =10921638
  191. LayoutCachedLeft =397
  192. LayoutCachedTop =2041
  193. LayoutCachedWidth =2436
  194. LayoutCachedHeight =2494
  195. BackColor =14136213
  196. BorderColor =14136213
  197. HoverColor =15060409
  198. PressedColor =9592887
  199. HoverForeColor =4210752
  200. PressedForeColor =4210752
  201. WebImagePaddingLeft =2
  202. WebImagePaddingTop =2
  203. WebImagePaddingRight =1
  204. WebImagePaddingBottom =1
  205. End
  206. End
  207. End
  208. End
  209. End
  210. CodeBehindForm
  211. Attribute VB_GlobalNameSpace = False
  212. Attribute VB_Creatable = True
  213. Attribute VB_PredeclaredId = True
  214. Attribute VB_Exposed = False
  215. Option Compare Database
  216. Private Sub cmdMajConnexion_Click()
  217. DoCmd.OpenForm "zt_backdb"
  218. End Sub
  219. Private Sub Commande5_Click()
  220. DoCmd.OpenForm "zfrmSuiviVersions"
  221. End Sub
  222. Private Sub btn_versions_Click()
  223. DoCmd.OpenForm "zt_versions"
  224. End Sub
  225. Private Sub Form_Open(Cancel As Integer)
  226. Call LoadApp
  227. End Sub