frm_ValidationDonneesPeriple.bas 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641
  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 =18792
  10. DatasheetFontHeight =11
  11. ItemSuffix =17
  12. Right =17115
  13. Bottom =7890
  14. DatasheetGridlinesColor =14806254
  15. RecSrcDt = Begin
  16. 0xdc7c9924d288e440
  17. End
  18. RecordSource ="PDE_PERIPLE"
  19. DatasheetFontName ="Calibri"
  20. FilterOnLoad =0
  21. ShowPageMargins =0
  22. DisplayOnSharePointSite =1
  23. DatasheetAlternateBackColor =15921906
  24. DatasheetGridlinesColor12 =0
  25. FitToScreen =1
  26. DatasheetBackThemeColorIndex =1
  27. BorderThemeColorIndex =3
  28. ThemeFontIndex =1
  29. ForeThemeColorIndex =0
  30. AlternateBackThemeColorIndex =1
  31. AlternateBackShade =95.0
  32. Begin
  33. Begin Label
  34. BackStyle =0
  35. FontSize =11
  36. FontName ="Calibri"
  37. ThemeFontIndex =1
  38. BackThemeColorIndex =1
  39. BorderThemeColorIndex =0
  40. BorderTint =50.0
  41. ForeThemeColorIndex =0
  42. ForeTint =50.0
  43. GridlineThemeColorIndex =1
  44. GridlineShade =65.0
  45. End
  46. Begin CommandButton
  47. Width =1701
  48. Height =283
  49. FontSize =11
  50. FontWeight =400
  51. FontName ="Calibri"
  52. ForeThemeColorIndex =0
  53. ForeTint =75.0
  54. GridlineThemeColorIndex =1
  55. GridlineShade =65.0
  56. UseTheme =1
  57. Shape =1
  58. Gradient =12
  59. BackThemeColorIndex =4
  60. BackTint =60.0
  61. BorderLineStyle =0
  62. BorderColor =16777215
  63. BorderThemeColorIndex =4
  64. BorderTint =60.0
  65. ThemeFontIndex =1
  66. HoverThemeColorIndex =4
  67. HoverTint =40.0
  68. PressedThemeColorIndex =4
  69. PressedShade =75.0
  70. HoverForeThemeColorIndex =0
  71. HoverForeTint =75.0
  72. PressedForeThemeColorIndex =0
  73. PressedForeTint =75.0
  74. End
  75. Begin TextBox
  76. AddColon = NotDefault
  77. FELineBreak = NotDefault
  78. BorderLineStyle =0
  79. Width =1701
  80. LabelX =-1701
  81. FontSize =11
  82. FontName ="Calibri"
  83. AsianLineBreak =1
  84. BackThemeColorIndex =1
  85. BorderThemeColorIndex =1
  86. BorderShade =65.0
  87. ThemeFontIndex =1
  88. ForeThemeColorIndex =0
  89. ForeTint =75.0
  90. GridlineThemeColorIndex =1
  91. GridlineShade =65.0
  92. End
  93. Begin ListBox
  94. BorderLineStyle =0
  95. Width =1701
  96. Height =1417
  97. LabelX =-1701
  98. FontSize =11
  99. FontName ="Calibri"
  100. AllowValueListEdits =1
  101. InheritValueList =1
  102. ThemeFontIndex =1
  103. BackThemeColorIndex =1
  104. BorderThemeColorIndex =1
  105. BorderShade =65.0
  106. ForeThemeColorIndex =0
  107. ForeTint =75.0
  108. GridlineThemeColorIndex =1
  109. GridlineShade =65.0
  110. End
  111. Begin FormHeader
  112. Height =1190
  113. BackColor =15527148
  114. Name ="EntêteFormulaire"
  115. AlternateBackThemeColorIndex =1
  116. AlternateBackShade =95.0
  117. Begin
  118. Begin Label
  119. OverlapFlags =85
  120. TextAlign =2
  121. Left =907
  122. Top =113
  123. Width =7830
  124. Height =405
  125. FontSize =12
  126. FontWeight =700
  127. BorderColor =8355711
  128. Name ="Étiquette1"
  129. Caption ="Validation des données avant export vers PERIPLE"
  130. GridlineColor =10921638
  131. LayoutCachedLeft =907
  132. LayoutCachedTop =113
  133. LayoutCachedWidth =8737
  134. LayoutCachedHeight =518
  135. ForeTint =100.0
  136. End
  137. Begin Label
  138. OverlapFlags =85
  139. TextAlign =2
  140. Top =850
  141. Width =1110
  142. Height =315
  143. BorderColor =8355711
  144. Name ="Étiquette2"
  145. Caption ="IDF_AGENT"
  146. GridlineColor =10921638
  147. LayoutCachedTop =850
  148. LayoutCachedWidth =1110
  149. LayoutCachedHeight =1165
  150. ForeTint =100.0
  151. End
  152. Begin Label
  153. OverlapFlags =85
  154. TextAlign =2
  155. Left =1360
  156. Top =850
  157. Width =1605
  158. Height =315
  159. BorderColor =8355711
  160. Name ="Étiquette3"
  161. Caption ="DATE_DEMANDE"
  162. GridlineColor =10921638
  163. LayoutCachedLeft =1360
  164. LayoutCachedTop =850
  165. LayoutCachedWidth =2965
  166. LayoutCachedHeight =1165
  167. ForeTint =100.0
  168. End
  169. Begin Label
  170. OverlapFlags =85
  171. TextAlign =2
  172. Left =3118
  173. Top =850
  174. Width =2130
  175. Height =315
  176. BorderColor =8355711
  177. Name ="Étiquette4"
  178. Caption ="MOTIF_DEPLACEMENT"
  179. GridlineColor =10921638
  180. LayoutCachedLeft =3118
  181. LayoutCachedTop =850
  182. LayoutCachedWidth =5248
  183. LayoutCachedHeight =1165
  184. ForeTint =100.0
  185. End
  186. Begin Label
  187. OverlapFlags =85
  188. TextAlign =2
  189. Left =5385
  190. Top =850
  191. Width =2490
  192. Height =315
  193. BorderColor =8355711
  194. Name ="Étiquette5"
  195. Caption ="ITINERAIRE"
  196. GridlineColor =10921638
  197. LayoutCachedLeft =5385
  198. LayoutCachedTop =850
  199. LayoutCachedWidth =7875
  200. LayoutCachedHeight =1165
  201. ForeTint =100.0
  202. End
  203. Begin Label
  204. OverlapFlags =85
  205. TextAlign =2
  206. Left =7942
  207. Top =850
  208. Width =945
  209. Height =315
  210. BorderColor =8355711
  211. Name ="Étiquette6"
  212. Caption ="CP_DEP"
  213. GridlineColor =10921638
  214. LayoutCachedLeft =7942
  215. LayoutCachedTop =850
  216. LayoutCachedWidth =8887
  217. LayoutCachedHeight =1165
  218. ForeTint =100.0
  219. End
  220. Begin Label
  221. OverlapFlags =85
  222. TextAlign =2
  223. Left =8957
  224. Top =850
  225. Width =1890
  226. Height =315
  227. BorderColor =8355711
  228. Name ="Étiquette7"
  229. Caption ="DATE_DEPART"
  230. GridlineColor =10921638
  231. LayoutCachedLeft =8957
  232. LayoutCachedTop =850
  233. LayoutCachedWidth =10847
  234. LayoutCachedHeight =1165
  235. ForeTint =100.0
  236. End
  237. Begin Label
  238. OverlapFlags =85
  239. TextAlign =2
  240. Left =10929
  241. Top =850
  242. Width =1890
  243. Height =315
  244. BorderColor =8355711
  245. Name ="Étiquette8"
  246. Caption ="DATE_RETOUR"
  247. GridlineColor =10921638
  248. LayoutCachedLeft =10929
  249. LayoutCachedTop =850
  250. LayoutCachedWidth =12819
  251. LayoutCachedHeight =1165
  252. ForeTint =100.0
  253. End
  254. Begin Label
  255. OverlapFlags =85
  256. TextAlign =2
  257. Left =12870
  258. Top =850
  259. Width =2040
  260. Height =315
  261. BorderColor =8355711
  262. Name ="Étiquette9"
  263. Caption ="MOYEN_TRANSPORT"
  264. GridlineColor =10921638
  265. LayoutCachedLeft =12870
  266. LayoutCachedTop =850
  267. LayoutCachedWidth =14910
  268. LayoutCachedHeight =1165
  269. ForeTint =100.0
  270. End
  271. Begin Label
  272. OverlapFlags =85
  273. TextAlign =2
  274. Left =14966
  275. Top =850
  276. Width =1995
  277. Height =315
  278. BorderColor =8355711
  279. Name ="Étiquette10"
  280. Caption ="NB_KM_PARCOURUS"
  281. GridlineColor =10921638
  282. LayoutCachedLeft =14966
  283. LayoutCachedTop =850
  284. LayoutCachedWidth =16961
  285. LayoutCachedHeight =1165
  286. ForeTint =100.0
  287. End
  288. Begin Label
  289. OverlapFlags =85
  290. TextAlign =2
  291. Left =17007
  292. Top =850
  293. Width =1785
  294. Height =315
  295. BorderColor =8355711
  296. Name ="Étiquette11"
  297. Caption ="NBR_REPAS_PLEIN"
  298. GridlineColor =10921638
  299. LayoutCachedLeft =17007
  300. LayoutCachedTop =850
  301. LayoutCachedWidth =18792
  302. LayoutCachedHeight =1165
  303. ForeTint =100.0
  304. End
  305. End
  306. End
  307. Begin Section
  308. Height =396
  309. Name ="Détail"
  310. AlternateBackColor =15921906
  311. AlternateBackThemeColorIndex =1
  312. AlternateBackShade =95.0
  313. BackThemeColorIndex =1
  314. Begin
  315. Begin TextBox
  316. DecimalPlaces =0
  317. OldBorderStyle =0
  318. OverlapFlags =85
  319. TextAlign =2
  320. IMESentenceMode =3
  321. Width =1146
  322. Height =315
  323. BorderColor =10921638
  324. ForeColor =4210752
  325. Name ="IDF_AGENT"
  326. ControlSource ="IDF_AGENT"
  327. GridlineColor =10921638
  328. LayoutCachedWidth =1146
  329. LayoutCachedHeight =315
  330. End
  331. Begin TextBox
  332. OldBorderStyle =0
  333. OverlapFlags =85
  334. TextAlign =2
  335. IMESentenceMode =3
  336. Left =1360
  337. Width =1596
  338. Height =315
  339. TabIndex =1
  340. BorderColor =10921638
  341. ForeColor =4210752
  342. Name ="DATE_DEMANDE"
  343. ControlSource ="DATE_DEMANDE"
  344. Format ="dd/mm/yyyy"
  345. GridlineColor =10921638
  346. LayoutCachedLeft =1360
  347. LayoutCachedWidth =2956
  348. LayoutCachedHeight =315
  349. End
  350. Begin TextBox
  351. OldBorderStyle =0
  352. OverlapFlags =85
  353. TextAlign =2
  354. IMESentenceMode =3
  355. Left =3118
  356. Width =2106
  357. Height =315
  358. TabIndex =2
  359. BorderColor =10921638
  360. ForeColor =4210752
  361. Name ="MOTIF_DEPLACEMENT"
  362. ControlSource ="MOTIF_DEPLACEMENT"
  363. GridlineColor =10921638
  364. LayoutCachedLeft =3118
  365. LayoutCachedWidth =5224
  366. LayoutCachedHeight =315
  367. End
  368. Begin TextBox
  369. OldBorderStyle =0
  370. OverlapFlags =85
  371. TextAlign =2
  372. IMESentenceMode =3
  373. Left =5385
  374. Width =2496
  375. Height =315
  376. TabIndex =3
  377. BorderColor =10921638
  378. ForeColor =4210752
  379. Name ="ITINERAIRE"
  380. ControlSource ="ITINERAIRE"
  381. GridlineColor =10921638
  382. LayoutCachedLeft =5385
  383. LayoutCachedWidth =7881
  384. LayoutCachedHeight =315
  385. End
  386. Begin TextBox
  387. OldBorderStyle =0
  388. OverlapFlags =85
  389. TextAlign =2
  390. IMESentenceMode =3
  391. Left =7933
  392. Width =966
  393. Height =315
  394. TabIndex =4
  395. BorderColor =10921638
  396. ForeColor =4210752
  397. Name ="CP_DEP"
  398. ControlSource ="CP_DEP"
  399. GridlineColor =10921638
  400. LayoutCachedLeft =7933
  401. LayoutCachedWidth =8899
  402. LayoutCachedHeight =315
  403. End
  404. Begin TextBox
  405. OldBorderStyle =0
  406. OverlapFlags =85
  407. TextAlign =2
  408. IMESentenceMode =3
  409. Left =8957
  410. Width =1866
  411. Height =315
  412. ColumnWidth =1725
  413. TabIndex =5
  414. BorderColor =10921638
  415. ForeColor =4210752
  416. Name ="DATE_DEPART"
  417. ControlSource ="DATE_DEPART"
  418. Format ="dd/mm/yyyy hh:nn"
  419. GridlineColor =10921638
  420. LayoutCachedLeft =8957
  421. LayoutCachedWidth =10823
  422. LayoutCachedHeight =315
  423. End
  424. Begin TextBox
  425. OldBorderStyle =0
  426. OverlapFlags =85
  427. TextAlign =2
  428. IMESentenceMode =3
  429. Left =10928
  430. Width =1911
  431. Height =315
  432. ColumnWidth =1740
  433. TabIndex =6
  434. BorderColor =10921638
  435. ForeColor =4210752
  436. Name ="DATE_RETOUR"
  437. ControlSource ="DATE_RETOUR"
  438. Format ="dd/mm/yyyy hh:nn"
  439. GridlineColor =10921638
  440. LayoutCachedLeft =10928
  441. LayoutCachedWidth =12839
  442. LayoutCachedHeight =315
  443. End
  444. Begin TextBox
  445. DecimalPlaces =0
  446. OldBorderStyle =0
  447. OverlapFlags =85
  448. TextAlign =2
  449. IMESentenceMode =3
  450. Left =14966
  451. Width =1986
  452. Height =315
  453. TabIndex =7
  454. BorderColor =10921638
  455. ForeColor =4210752
  456. Name ="NB_KM_PARCOURUS"
  457. ControlSource ="NB_KM_PARCOURUS"
  458. GridlineColor =10921638
  459. LayoutCachedLeft =14966
  460. LayoutCachedWidth =16952
  461. LayoutCachedHeight =315
  462. End
  463. Begin TextBox
  464. DecimalPlaces =0
  465. OldBorderStyle =0
  466. OverlapFlags =85
  467. TextAlign =2
  468. IMESentenceMode =3
  469. Left =17007
  470. Height =315
  471. TabIndex =8
  472. BorderColor =10921638
  473. ForeColor =4210752
  474. Name ="NBR_REPAS_PLEIN"
  475. ControlSource ="NBR_REPAS_PLEIN"
  476. GridlineColor =10921638
  477. LayoutCachedLeft =17007
  478. LayoutCachedWidth =18708
  479. LayoutCachedHeight =315
  480. End
  481. Begin TextBox
  482. OldBorderStyle =0
  483. OverlapFlags =85
  484. TextAlign =2
  485. IMESentenceMode =3
  486. Left =12869
  487. Width =2041
  488. Height =315
  489. TabIndex =9
  490. BorderColor =10921638
  491. ForeColor =4210752
  492. Name ="MOYEN_TRANSPORT"
  493. ControlSource ="MOYEN_TRANSPORT"
  494. GridlineColor =10921638
  495. LayoutCachedLeft =12869
  496. LayoutCachedWidth =14910
  497. LayoutCachedHeight =315
  498. End
  499. End
  500. End
  501. Begin FormFooter
  502. Height =737
  503. BackColor =15527148
  504. Name ="PiedFormulaire"
  505. AlternateBackThemeColorIndex =1
  506. AlternateBackShade =95.0
  507. Begin
  508. Begin CommandButton
  509. OverlapFlags =85
  510. Left =15250
  511. Top =59
  512. Width =2829
  513. Height =510
  514. ForeColor =16777215
  515. Name ="Commande14"
  516. Caption ="Créer et envoyer le XML"
  517. OnClick ="[Event Procedure]"
  518. GridlineColor =10921638
  519. LayoutCachedLeft =15250
  520. LayoutCachedTop =59
  521. LayoutCachedWidth =18079
  522. LayoutCachedHeight =569
  523. ForeThemeColorIndex =1
  524. ForeTint =100.0
  525. Gradient =0
  526. BackColor =4626167
  527. BackThemeColorIndex =9
  528. BackTint =100.0
  529. BorderColor =4626167
  530. BorderThemeColorIndex =9
  531. BorderTint =100.0
  532. HoverColor =7056377
  533. HoverThemeColorIndex =9
  534. HoverTint =80.0
  535. PressedColor =750835
  536. PressedThemeColorIndex =9
  537. PressedShade =80.0
  538. HoverForeThemeColorIndex =1
  539. HoverForeTint =100.0
  540. PressedForeThemeColorIndex =1
  541. PressedForeTint =100.0
  542. QuickStyle =14
  543. QuickStyleMask =-1
  544. WebImagePaddingLeft =1
  545. WebImagePaddingTop =1
  546. End
  547. Begin CommandButton
  548. OverlapFlags =85
  549. Left =12982
  550. Top =56
  551. Height =513
  552. TabIndex =1
  553. Name ="Commande15"
  554. Caption ="Annuler"
  555. OnClick ="[Event Procedure]"
  556. LeftPadding =60
  557. RightPadding =75
  558. BottomPadding =120
  559. GridlineColor =10921638
  560. LayoutCachedLeft =12982
  561. LayoutCachedTop =56
  562. LayoutCachedWidth =14683
  563. LayoutCachedHeight =569
  564. ForeTint =100.0
  565. BackColor =0
  566. BackThemeColorIndex =0
  567. BackTint =100.0
  568. BorderColor =0
  569. BorderThemeColorIndex =0
  570. BorderTint =100.0
  571. HoverColor =3355443
  572. HoverThemeColorIndex =0
  573. HoverTint =80.0
  574. PressedColor =0
  575. PressedThemeColorIndex =0
  576. PressedShade =80.0
  577. HoverForeColor =0
  578. HoverForeTint =100.0
  579. PressedForeColor =0
  580. PressedForeTint =100.0
  581. Shadow =-1
  582. QuickStyle =22
  583. QuickStyleMask =-1
  584. WebImagePaddingTop =1
  585. End
  586. Begin Label
  587. Visible = NotDefault
  588. FontItalic = NotDefault
  589. OverlapFlags =85
  590. Left =170
  591. Top =170
  592. Width =4308
  593. Height =340
  594. FontSize =10
  595. FontWeight =700
  596. BorderColor =8355711
  597. ForeColor =683236
  598. Name ="txt_msgConnexion"
  599. Caption ="Connexion: tentative 1 sur 3"
  600. FontName ="Verdana"
  601. GridlineColor =10921638
  602. LayoutCachedLeft =170
  603. LayoutCachedTop =170
  604. LayoutCachedWidth =4478
  605. LayoutCachedHeight =510
  606. ThemeFontIndex =-1
  607. ForeThemeColorIndex =9
  608. ForeTint =100.0
  609. ForeShade =75.0
  610. End
  611. End
  612. End
  613. End
  614. End
  615. CodeBehindForm
  616. Attribute VB_GlobalNameSpace = False
  617. Attribute VB_Creatable = True
  618. Attribute VB_PredeclaredId = True
  619. Attribute VB_Exposed = False
  620. Option Compare Database
  621. Private Sub Commande14_Click()
  622. Call Periple_ExportXML(False)
  623. DoCmd.Close acForm, Me.Name
  624. End Sub
  625. Private Sub Commande15_Click()
  626. DoCmd.Close acForm, Me.Name
  627. End Sub