incrémenter une date par une période de temps

bonjour et merci à tous pour vos précieux conseils,

je vous explique mon probleme.

j'ai une table "qualification" avec les champs :date-de_qualification (date initiale), frequence (en mois), date_de_fin. j'ai récupéré un code sur ce forum qui permet d'incrémenter la date de début en ajoutant la fréquence en mois jusqu'a la date de fin. le code ci-dessous est utilisé dans une requete "requete qualification date" qui fait appel à une table "lignes" qui comporte 50 lignes avec les valeurs suivantes: 1,2,3,4,....,50

Code:

---

1 2 3

SELECT qualification.id_qualification, qualification.date_qualification, qualification.frequence, qualification.commentaire, lignes.lignes, stpmp([lignes]) AS Date_de_relecture FROM lignes, equipement INNER JOIN qualification ON equipement.id_equipement = qualification.id_equipement ORDER BY lignes.lignes;

---

code du module:

Code:

---

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

Function stpmp(lign As Long) As Date Dim base As DAO.Database Dim mesvaleurs As DAO.Recordset Dim sql As String Dim annif As Date Dim com As Date ' Initialisation de la date Dim cpte As Boolean cpte = True ' Requete Set base = CurrentDb sql = "SELECT id_qualification, date_qualification, frequence, lignes FROM [requete qualification date]" & _ "WHERE (lignes <= " & lign & ") ORDER BY lignes;" Set mesvaleurs = base.OpenRecordset(sql) While Not mesvaleurs.EOF ' prends Date de depart If cpte = True Then annif = mesvaleurs![date_qualification] cpte = False ' Sinon Ajoute fréquence Else annif = DateAdd("m", mesvaleurs![frequence], annif) End If   com = DateAdd("m", mesvaleurs![frequence], annif)   mesvaleurs.MoveNext   Wend stpmp = com End Function

---

si je met un seul enregistrement dans la table "qualification" le résultat de la requete est parfait. par contre si je met deux enregistrements, la requete me sort des abérations. j'aimerai savoir comment résoudre ce problème soit en changeant le code ou soit en envoyant le résultat de la requete dans ma table puis passer à un nouvelle enregistrement.
cela fait deux jours que je trime et je suis à bout.:cry:
merci à tous pour vos conseils

PS le code vient de hugo 69, merci à lui;)

Je n'ai pas compris :cry:

je vous explique, j'ai une table avec:

id_qualification/date_qualifiquation/frequence/date_de_fin
num auto / date /num /date

si je met date_qualification = 01/02/2000
frequence= 3 (mois)
date_de_fin 01/01/2001
je veux obtenir: 01/05/2000, 01/08/2000, 01/11/2000 comme résultat dans ma requete.
il faut que le résultat soit visible et exploitable dans un formulaire qualification (sous formulaire repris sur la requete).

l'objet du code est de donner les résultat suivant id_qualification.

mon prob est que quand je génère un nouvelle enregistrement, il me donne des résultats abérant alors qu'avec un seul enregistrement j'obtients les bon.

a+

Ce ne serait pas plus facile de donner la fréquence et le nombre d'occurrences.

Et ensuite faire un test pour être certains que les deux dates finales sont égales.

Ce serait plus facile.

si c'est plus facile je suis preneur, n'étant pas un programmteur mais plutot juste au niveau pour comprendre un code pré-écrit et le retranscrire pour mon application, si tu as un bout de code je me met à genoux car cela fait 2 jours que mon cerveau commence à réduire comme peau de chagrin.

merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

dim IntOcc as integer 'déclaration du nombre d'occurrence comme entier dim intFreq as integer dim strDates as string 'déclaration d'un variable qui contiendra les dates 'dans une chaîne dim dtQualif as date dtQualif = [date_qualification] strDates = "" 'attribution d'une valeur vide intFreq = [frequence] 'attribution de la valeur du contrôle fréquence intOcc = [occurences] 'attribution de la valeur occurences   Do until intOcc = 0 intOcc = intOcc -1 dtQualif = Dateserial(year(dtQualif);Month(dtQualif)+intFreq;Day(dtQualif) strDates = strDates & "|" & Format(dtQualif;"dd/mm/yyyy") Loop

---

La première partie concerne les déclarations de variables.
La seconde, le passage de valeurs aux variables
La dernière, le traitement.
Le traitement se déroule comme suit :
je diminue mon occurrence de 1 chaque fois qu'elle est traitée
A chaque traitement, j'ajoute la fréquence au mois de l'année et je convertis en texte pour n'avoir qu'une seule chaîne "strDates" contenant toutes les dates.
Si mon occurrence devient 0, la boucle s'arrête et le code continue.

J'ai choisis de transformer les dates en texte, parce que je ne sais pas au départ combien d'occurrence je vais avoir.
Mais avec une fonction split on peut les séparer.

merci pour ta réactivité, je me penche sur ton code et je reviens te dire ou j'en suis.
a+

au fait, ce code je le met ou? dans une requete?

Tu peux en faire une fonction ou encore le mettre dans un formulaire, Après Mise à jour d'un contrôle ou encore sur clic d'un bouton.

salut,

le code tel que donné ne fonctionne pas.j J'ai modifier des ";" en "," puis j'ai essayé d'en faire une fonction:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Function stpmp(strDates As String) As String Dim IntOcc As Integer 'déclaration du nombre d'occurrence comme entier Dim intFreq As Integer Dim strDates As String 'déclaration d'un variable qui contiendra les dates 'dans une chaîne Dim dtQualif As Date dtQualif = [date_qualification] strDates = "" 'attribution d'une valeur vide intFreq = [frequence] 'attribution de la valeur du contrôle fréquence IntOcc = [occurences] 'attribution de la valeur occurences   Do Until IntOcc = 0 IntOcc = IntOcc - 1 dtQualif = Dateserial(year(dtQualif), Month(dtQualif) + intFreq, Day(dtQualif)) strDates = strDates & "|" & Format(dtQualif, "dd/mm/yyyy") Loop End Function

---

après j'appel lela fonction dans une requete:

Code:

---

1 2	SELECT qualification.id_qualification, qualification.date_qualification, qualification.frequence, qualification.occurences, stpmp([strDates]) AS date_relecture FROM qualification;

---

mais il me dit qu'il ne connait pas strDates et que la synthaxe est trop compliquée.

je dois mal m'y prendre?
a+

pour info je fais mes essais avec juste une table qualification
id_qualification (num auto), date_qualification (date), frequence (num), occurences (num)

Pour ne pas te laisser dans l'embarras, voilà comment le code fonctionne.
Je l'ai mis sur l'évènement AfterUpdate du champ texte Date_Qualification.

Il faut entrer en premier lieu, les occurrences et les fréquences.

Ensuite la date et le résultat s'affiche dans le champs String_Dates.

C'est déjà un premier pas.

mr Heureux tu es un génie ;)

la dernière question à 100 franc:

peut on obtenir le résultat sous format date pour que je puisse utiliser les résultats dans une requete?

tu as écrit: "Mais avec une fonction split on peut les séparer.", on l'utilise comment cette fonction?

en tout cas je te remercie d'avoir consacré tout ce temps et sache que mon cerveau commence à dégonfler grace à toi.
a+

Là, on se trouve face à un autre problème.
Il faut inscrire les dates dans des champs pour pouvoir les utiliser.

Je ne connais pas ta DB, mais je pense qu'il te faudra une table supplémentaire pour y retrouver toues tes dates.

Ensuite, il ne te restera qu'a faire des requête pour extraire les données.

Je vais chercher pour Splitter les données.

je met en fichier joint l'exemple de base que j'avais récupéré initialement et qui permet de récupérer les résultats au format date. le prob de cette base c'est que tu ne peux pas ajouter de nouveaux enregistrements sans que les résultats deviennent abérants. tu comprendras quand tu l'ouvriras.
a+

Es-tu sûr que c'est le bon fichier ?
8O 8O

c'est effectivement le bon fichier mais là je t'envois le fichier avec les bons nom de champ. tu remarqueras que c'est la première requete qui appelle la fonction
a+

De toute façon je suis en train de regarder comment mettre les données dans une table.

J'espère avoir fini pour lundi.

t'es un chef, mais surtout ne consacre pas trop de temps à cela, le WE c'est sacré:lol:

Code:

---

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

Private Sub date_Qualification_AfterUpdate() Dim IntOcc As Integer 'déclaration du nombre d'occurrence comme entier Dim intFreq As Integer Dim strDates As String 'déclaration d'un variable qui contiendra les dates 'dans une chaîne Dim dtQualif As Date Dim stTableau() As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim fld As DAO.Field   Set db = CurrentDb Set rs = db.OpenRecordset("Qualif2")   dtQualif = [date_Qualification] strDates = "" 'attribution d'une valeur vide intFreq = [Frequence] 'attribution de la valeur du contrôle fréquence IntOcc = [Occurences] 'attribution de la valeur occurences   Do Until IntOcc = 0 IntOcc = IntOcc - 1 Debug.Print IntOcc dtQualif = DateSerial(Year(dtQualif), Month(dtQualif) + intFreq, Day(dtQualif)) rs.AddNew rs.Fields("id_Qualif").Value = Me.[id] rs.Fields("dtDate").Value = dtQualif rs.Update strDates = strDates & "|" & Format(dtQualif, "dd/mm/yyyy") Loop Me.String_date = strDates 'Debug.Print stTableau(1) & vbCrLf & stTableau(2) Me.Qualif2_sous_formulaire.Requery   db.Close 'rs.Close Set rs = Nothing Set db = Nothing   End Sub

---

Voilà le code utilisé.
On récupère les valeur dans les contrôles du formulaire.

On fait une boucle pour incrémenter la date du nombre d'occurrences.
Pour l'incrémentation de la date, j'ai choisis DateSerial, parce que je préfère.

On insère les résultat dans une autre table qui est liée.

On rafraîchit le sous-formulaire.

si il existe un dieu sur terre, c'est bien toi.
je me prosterne et surtout je te remercie du temps que tu m'a consacré.
c'est exactement ce que voulais faire. je suis sur que ton exemple pourra etre exploité par plein d'autre personne.
encore merci!:lol: :lol: :lol:

Ne me jette pas trop de fleurs, je ne suis pas le meilleur, mas collègues sont bien plus forts.

salut oli,
je reviens vers toi pour un prob avec ton code.
quand on met une date_qualif, on obtient le résultat dans le sous formulaire, si je change la date_qualif, il m'ajoute les résultats à la suite des premiers. sait tu si il est possible de supprimer juste les précédents résultats pour ne voir que les nouveaux.
j'ai fait une requete de suppression mais qui ne fonctionne pas.
a+

A toi de chercher un peu maintenant.

Une piste Ici.

Bonjour j’ai testé le code
Et j’ai une observation … lorsque la date_qualification est une date à plus de 29 jours…le mois de février ne s’affiche pas dans l’incrémentation..

Quelqu’un a t-il une solution??