Discussion :

[raphsss]

Bonjour,

Je doit gérer l'historique des envoies et des retours d'un dossier (un enregistrement d'une table dossier) dans différents services.

exemple : dossier 1

envoyé au service A le 16/10/2012
retour du service A le 16/10/2012

envoyé au service B le 17/10/2012
retour du service B le 18/10/2012

envoyé au service A le 19/10/2012
retour du service A le 21/10/2012

Je pense afficher sur le formulaire dossier la dernies dates d'envoie/ retour de chaque service. et logguer l'historique dans un table avec champ dossier / champs service / champs date envoie / champs date retour.

Mon problème est de vérifier la cohérence des dates : Exemple un dossier ne peut pas etre à deux endroits en meme temps , la date de retour ne peut pas etre inférieur à la date d'envoie.

Avez vous deja fait ce genre de test qui me semble assez classique en VBA ?
Exemple parcourir la table log historique est vérifier que chaque date est cohérente ?

Merci

[marot_r]

tu ne peux pas le faire directement au niveau de la table, du moins avec Access 2007 mais tu peux assez facilement le faire par code dans un formulaire de saisie.

Pour répondre à tes critère tu peux mettre du code de contrôle dans l'événement après (ou avant) MAJ.

Un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if not isnull(me.DateRetour) and not isnull(me.DateEnvoi) then
   if me.DateRetour < me.DatEnvoi then
        msgbox "Retour avant envoi"
   end if
end if

Et pour empéché l'ubiquité il faut mettre du code qui vérifie que pour un dossier donné il n'existe pas de période envoi-retour qui

• commence dans la nouvelle période (DateEnvoiP between DateEnvoiNouvP and DateRetourNouvP)
• finisse dans la nouvelle période (or DateRetourP between DateEnvoiNouvP and DateRetourNouvP)
• englobe la nouvelle période (or DateEnvoiNP <= DateEnvoiP and DateRetourP <= DateRetourNouvP)

La fonction DFirst() peut servir à cela, quelque chose comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if not isnull(DFirst("ClefMouvement","TaTableMouvement","TonCritereDePeriode")) then
   mgbox "Existe déjà à un autre endrois"
end if

A+

[raphsss]

Merci je vais rechercher au niveau de la fonction Dfirst.

je pensais faire un sorte de boucle en parcourant ma table de log avec un recordset et tester chaque date. Mais je n'arrive pas envore a voir comment.

a plus

[philben]

une solution de contrôle consiste à vérifier pour chaque colis :

• l'alternance entre un envoi et une reception;
• la date la plus ancienne est un envoi;
• qu'un envoi est suivi de la reception du même service sinon l'envoi doit être le dernier mouvement enregistré.

c'est possible en pur sql, mais complexe.

Bonne continuation,

Philippe