Version imprimable
Je me suis également permis de modifier le code de ConstruireReservation() pour permettre une réservation le jour même.
les agents géreront manuellement la possibilité ou non de sélectionner le jour même en fonction de l'heure de l'appel pour réserver.
reste également le problème du nombre de personnes pour les annulation ou je n'ai pas encore trouvé. je continue de chercher...
Comme ceci ?
http://claudeleloup.developpez.com/&99/L5684.jpg
ça me semble pas mal.
j'ai demandé confirmation à la personne qui s'occupera de vérifier la facturation.
Je te fais un retour dès que possible.
J'ai eu un retour de la personne : Avec le total (et les sous totaux, au cas ou), ça serait nickel.
Montre un exemple.Citation:
Avec le total (et les sous totaux, au cas ou), ça serait nickel.
juste le total d'une ligne et le total global, comme ça :
Pièce jointe 212181
Actuellement dans la db exemple :
http://claudeleloup.developpez.com/&99/L5685.jpg
J'ai demandé à la personne pour confirmation mais ça me semble très bien.
sinon, j'ai réussi à trouver pourquoi le nombre de personnes était tout le temps à 1 sur le formulaire d'annulation.
dans la requête "creatAnnulation", il manquait le champ NbrePers. je l'ai donc ajouté :
Citation:
INSERT INTO tAnnulation ( tClientsFK, ResDate, tArretsDepartFK, tArretsDestinationFK, NbrePers, Observations, CreaDate, Ligne, NumCircul, Depart, Destination, Taxi, TaxiMail )
SELECT tReservations.tClientsFK, tReservations.ResDate, tReservations.tArretsDepartFK, tReservations.tArretsDestinationFK, tReservations.NbrePers, tReservations.Observations, tReservations.CreaDate, tHorLignes.tLignesFK, tHorLignes.NumCirculation, tArrets.ArretNom, tArrets_1.ArretNom, [taxiNom] & Chr(13) & Chr(10) & "Tel : " & [taxiTelephone] & " / Portable : " & [taxiPortable] & " / Fax : " & [taxiFAX] & Chr(13) & Chr(10) & "Adresse : " & [taxiAdresse] & " " & [taxiCP] & " " & [taxiVille] & Chr(13) & Chr(10) & "Mail : " & [taxiMail] AS Taxi, tTaxis.taxiMail
FROM tTaxis INNER JOIN (((tReservations INNER JOIN tHorLignes ON tReservations.[tHorLignesFK] = tHorLignes.[tHorLignesPK]) INNER JOIN tArrets ON tReservations.[tArretsDepartFK] = tArrets.[tArretsPK]) INNER JOIN tArrets AS tArrets_1 ON tReservations.[tArretsDestinationFK] = tArrets_1.tArretsPK) ON tTaxis.[tTaxisPK] = tHorLignes.[tTaxisFK]
WHERE (((tReservations.tClientsFK)=[Formulaires]![fAnnulation]![cboClient]) AND ((tReservations.ResDate)>Date()) AND ((tReservations.AnnulDate) Is Null));
:ccool:Citation:
sinon, j'ai réussi à trouver pourquoi le nombre de personnes était tout le temps à 1 sur le formulaire d'annulation.
Db en ligne modifiée.
Bonjour jbachet,
Les taxis roulent toujours ?
Bonjour,
oui, les taxis roulent toujours.
Il me reste à intégrer les données sur les vrais clients, vrais taxis et finaliser de saisir les horaires.
Je n'ai pas rencontré d'autres problèmes. et ce qui a été fait semble parfaitement convenir.
en cas de besoin je reviendrais vers toi, (même si je pense pouvoir me débrouiller tout seul pour la suite, je te ferai savoir si j'apporte des corrections)
si tu veux de l'aide pour le tuto, je veux bien t'aider. (relecture, faire des remarques, simplifier la base pour enlever des particularités propres à mon activité...)
Merci pour ces bonnes nouvelles.
À propos du tuto, je suis occupé à rédiger.
À cette occasion, je modifie le code pour le rendre plus lisible, donc plus facile à expliquer… et à comprendre !
Tu peux voir le début ici : http://claudeleloup.developpez.com/t...ls/access/tad/
La db dans son état actuel : http://claudeleloup.developpez.com/t...d/TaxisTAD.mdb
Si la météo se maintient à la pluie, je devrais avoir terminé dans 4 ou 5 jours. Je reviendrai ici donner des nouvelles de l’avancement.
J’actualise au fur et à mesure.
Tes commentaires sont les bienvenus.
Bonne soirée.
Bonjour,
Le projet de tutoriel est ici : http://claudeleloup.developpez.com/t...ls/access/tad/
Bonjour,
j'ai enfin tout lu.
c'est top !
Les explications son claires.
Les renvois vers les autres tutoriaux est bien vu aussi afin d'avoir plus de précision sur comment cela a été fait.
C'est du beau boulot !
Merci.
Je mets le processus de publication en route.
Bonne continuation.
OK.
je referais une lecture dès que j'aurai plus de temps de disponible et je te ferai un retour si je trouve quelque chose.
bonne continuation également.
Bonjour,
j'ai fais une présentation "officielle" de l'application, qui a été très bien accueillie.
encore merci pour ton aide.
j'ai tout de même eu quelques demandes d'évolution :
1 : Pour une réservation, comment faire pour limiter les dates à la fin du mois N+1 (Exemple : aujourd'hui, limiter les réservation jusqu'au 31/08. et le 01/08, limiter les réservation au 30/09...)
je pensais ajouter ce code à ConstruireReservation() : (en rouge, ce que je rajoute ou modifie)
Code:
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
40Public Sub ConstruireReservation() Dim i As Integer Dim oRst As DAO.Recordset Dim strJoursExclus As String Dim DateValide As Date Dim strSQL As String Dim DateFinReservation As Date DoCmd.SetWarnings False '----------------------------------------------------' 'Garnir tUneReservation avec toutes les dates valides' '----------------------------------------------------' 'Vidanger tUneReservation '------------------------ DoCmd.RunSQL "Delete * from tUneReservation;" 'Garnir tDatesValides pour les périodes de validation '---------------------------------------------------- Set oRst = CurrentDb.OpenRecordset("SELECT ValidDu, ValidAu FROM tHorValid " _ & "WHERE tHorLignesFK=" & Me.cboLigne & ";") DateFinReservation = "dernier jour du mois N+1" (ce que je n'arrive pas à trouver) If DateFinReservation > oRst("ValidAu") Then DateFinReservation = oRst("ValidAu") End If Do While Not oRst.EOF If oRst("ValidAu") > Date Then DateValide = IIf(oRst("ValidDu") >= Date, oRst("ValidDu"), Date + 1) Do While DateValide <= DateFinReservation DoCmd.RunSQL "INSERT INTO tUneReservation ( ResDate, tArretsDepartFK, tArretsDestinationFK ) " _ & "SELECT #" & Format(DateValide, "mm/dd/yyyy") & "# AS LaDate, " _ & Me.cboDepart & " AS Depart," _ & Me.cboDestination & " AS Destination;" DateValide = DateValide + 1 Loop End If oRst.MoveNext Loop
2 : Est ce qu'il est possible de modifier l'expéditeur pour l'envoi des mails pour mettre une adresse générique plutôt que l'adresse des opérateurs ?
C'est juste un objMonMessage.From = "xxx@yyy.fr" ?
3 : Comment faire pour que les opérateurs ne voient pas les tables (liste des tales), mais qu'avec un mot de passe, certains puissent quand même les voir ?
Merci d'avance.
Bonjour,
Là où tu proposes ton code, tu n’élimeras pas tous les jours fériés ajoutés (si l’option est cochée).Citation:
1 : Pour une réservation, comment faire pour limiter les dates à la fin du mois N+1 (Exemple : aujourd'hui, limiter les réservations jusqu'au 31/08. et le 01/08, limiter les réservations au 30/09...)
Ajoute plutôt une requête à la fin du processus de création de tUneReservation
Code:
2
3
Ton code devient :
Vois les instructions N° 79 à 81Code:
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
N.B. Si tu veux presque tout connaitre sur la manipulation des dates avec Access, vois : http://mhubiche.developpez.com/vba/f...ions/datetime/
Je n’ai pas l’impression que ce sera aussi simple ! Ça revient à envoyer un e-mail… avec l’adresse de quelqu’un d’autre comme expéditeur !Citation:
2 : Est-ce qu'il est possible de modifier l'expéditeur pour l'envoi des mails pour mettre une adresse générique plutôt que l'adresse des opérateurs ?
C'est juste un objMonMessage.From = "xxx@yyy.fr" ?
À mon avis, il faudrait que la machine de chaque employé ait un Outlook avec
- un profil personnel (celui qu’ils ont sans doute maintenant)
et
- un profil professionnel avec les données professionnelles.
Tu aurais plus de chances d’obtenir une réponse en postant la question sur le forum Outlook.
J’ignore avec certitude, mais si tu ouvres une discussion dans Access IHM, une « pointure » pourra sans doute t’aider.Citation:
3 : Comment faire pour que les opérateurs ne voient pas les tables (liste des tales), mais qu'avec un mot de passe, certains puissent quand même les voir
Bonjour,
merci pour le point 1 (limiter à fin du mois M+1)
Effectivement, je ne faisais pas comme il faut.
pour le point 3 (masquer les tables et requêtes), j'ai trouvé un solution hyper basique, à voir avec les utilisateurs si cela convient.
Reste donc le point 2. j'ai ouvert un ticket dans la section outlook. on verra bien, mais je pense qu'il faudra installer un compte mail générique sur chaque poste et ensuite de faire en sorte d'utiliser celui la.
Bonjour,
:ccool: Bonne continuation !
