Discussion :

[Nounours1]

Bonsoir à tous et bonne année 2010.

Voilà mon problème, je gére des interventions sanitaires sur des vaches laitières, lorsqu'on soigne une vache l'administration nous demande une traçabilité d'ou ma question sur un calcul qui parait simple.

Sur le médicament la durée de remise en vente du lait est exprimé en nombre de traites, comme les vaches sont traites matin et soir, je voudrais qu'Access me donne automatiquement la date et le matin ou le soir.

Un exemple :

Produit X durée 5 traites
je coche dans un groupe d'option la première injection le matin du 10 janvier 2010.

La remise en vente sera donc "remise en vente possible le 12 au soir car je prends une traite en plus pour la sécurité alimentaire.

sur l'image jointe les dates ne sont pas bonnes.
Merci d'avance

[Jeannot45]

Voici en lien le tuto sur les fonctions date et heure

Bonne lecture

[User]

Salut,

En plus des fonctions date et heure proposées par Jeannot45,
il te faudra probablement utiliser une division entière entre le nombre de traites et 2 qui renvoie le nombre de jours à ajouter à la date de la première traite:

Code :

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

1
2
 
NombreJours=NombreTraites \ 2

le reste de cette division devrai t'indiquer si la dernière traite est le matin ou l'après-midi:

Code :

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

1
2
3
4
5
if (NombreTraites mod 2)=0 then
'après-midi
else
'
end if

A+

[Nounours1]

Merci à vous deux, je vais faire des essais.

@+

[Nounours1]

Je dois avouer que je n'y arrive pas, vous n'auriez pas un exemple plus concret ?

Merci.

[User]

Re,

On peut juste t'aider en te donnant des pistes, à toi d'adapter ces infos à tes besoins:

Pour prendre un exemple hyper simple, à supposé que toutes tes infos soit sur le même formulaire (pas de sous-formulaire):

Une zone de texte DureeTraite pour la durée (nombre de traites).
Une zone de texte DatePremiereTraite
Une case à cocher DebutPeriode pour matin ou soir
Une zone de texte DateFinTraite
Une case à cocher FinPeriode pour matin ou soir

Ton code peux ressembler à ça:

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
Dim NbJours as integer 
Dim NbTraites as integer
 
NbTraites = Me!DureeTraite
 
   if (Me!DebutPeriode.Value=2) then ' si soir
       NbTraites=NbTraites-1 ' on enlève 1 traite au total des traites.
   else
       NbTraites=NbTraites-2 ' sinon on en enlève 2.
   end if
 
NbJours=NbTraites \ 2 ' nombre de jours jusqu'à la fin si on compte 2 traites
 par jour.
 
   if (NbTraite mod 2) =0 then
      Me!FinPeriode.Value = 2 'fin le soir
   else
      Me!FinPeriode.Value = 1 'fin le matin
      NbJours = NbJours + 1
   end if
 
Me!DateFinTraite = Me!DatePremiereTraite + NbJours

Voila comme tu peux le constater c'est pratiquement impossible de t'aider sans la base...

[Nounours1]

Merci beaucoup, c'est déjà très bien, je vais me débrouiller.

@+