Discussion :

[bilouk]

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 :

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

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 :

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
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.
merci à tous pour vos conseils

PS le code vient de hugo 69, merci à lui

[Tofalu]

Je n'ai pas compris

[bilouk]

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+

[Heureux-oli]

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.

[bilouk]

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

[Heureux-oli]

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
 
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.

[gbakayves]

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??