bonjour,
je sors un calendrier d'utilisation jour/jour de materiel a partir d'une table "tdate" (datecle,datedebut,heuredebut,datefin,heurefin) et une requete avec expression me renvoyant 1 ou 0 a chaque 1/2h mais je suis oblige de rentrer mes periodes jour/jour. je voudrait entrer les periodes completes et en faire decoule par code une table "tdatedecompose"(cledatedecompose(N°),cledate(lien),DD,HD,DF,HF) et une requete "diffdate+1". L'idee du code,je suis novice, serait :
Je crois avoir tous les elements de la salade mais j'ai des soucis pour faire la sauce . je patauge dans l'utilisation des boucles et la facon d'utiliser le compteur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49 Function Macro1() '1er passage If (Forms!tdate![date debut] = Forms!tdate![date fin]) Then Forms!tdate!tdatedecompose.Form!DD = Forms!tdate![date debut] Forms!tdate!tdatedecompose.Form!HD = Forms!tdate![heure debut] Forms!tdate!tdatedecompose.Form!DF = Forms!tdate![date fin] Forms!tdate!tdatedecompose.Form!HF = Forms!tdate![heure fin] Else Forms!tdate!tdatedecompose.Form!DD = Forms!tdate![date debut] Forms!tdate!tdatedecompose.Form!HD = "00:00" Forms!tdate!tdatedecompose.Form!DF = Forms!tdate![date debut] Forms!tdate!tdatedecompose.Form!HF = "23:59" End If '2eme passage If (Forms!tdate![date fin] = Forms!tdate![date debut] + 1) Then Forms!tdate!tdatedecompose.Form!DD = Forms!tdate![date debut] + 1 Forms!tdate!tdatedecompose.Form!HD = "00:00" Forms!tdate!tdatedecompose.Form!DF = Forms!tdate![date debut] + 1 Forms!tdate!tdatedecompose.Form!HF = Forms!tdate![heure fin] Else Forms!tdate!tdatedecompose.Form!DD = Forms!tdate![date debut] + 1 Forms!tdate!tdatedecompose.Form!HD = "00:00" Forms!tdate!tdatedecompose.Form!DF = Forms!tdate![date debut] + 1 Forms!tdate!tdatedecompose.Form!HF = "23:59" End If 'neme passage +1 If (Forms!tdate![date fin] = Forms!tdate![date debut] + (n + 1)) Then Forms!tdate!tdatedecompose.Form!DD = Forms!tdate![date debut] + (n + 1) Forms!tdate!tdatedecompose.Form!HD = "00:00" Forms!tdate!tdatedecompose.Form!DF = Forms!tdate![date debut] + (n + 1) Forms!tdate!tdatedecompose.Form!HF = Forms!tdate![heure fin] Else Forms!tdate!tdatedecompose.Form!DD = Forms!tdate![date debut] + (n + 1) Forms!tdate!tdatedecompose.Form!HD = "00:00" Forms!tdate!tdatedecompose.Form!DF = Forms!tdate![date debut] + (n + 1) Forms!tdate!tdatedecompose.Form!HF = "23:59" End If ' l'idee serait de passer chaque enregistrement de tdate dans une boucle ou le compteur irait de 0 a (n+1) (n+1)etant diffdate+1 End Function
je vous remercie de prendre le temps de lire ma bafouille en esperant vous avoir donne toutes les informations
Partager