[Formulaire]Insertion d'une liste de dates calculées dont le nombre est variable

**ancel17** · 21/03/2007, 09h58

Bonjour !

je suis stagiaire ingénieur environnement mais on m'a également attribué la casquette de développeur d'outils informatiques.

Je dois réaliser une base de données Access permettant de lister les dates des analyses à venir pour chaque client.

J'ai réussi à sortir sur un formulaire (Répartition des analyses) le nombre d'analyses prévus (nb_analyse) ainsi que l'intervalle en semaine entre chaque analyse(nb_semaine_analyse).

Mon problème est le suivant :
comment générer automatiquement dans le formulaire [Répartition des analyses] les dates d'analyse prévues en fonction du nombre d'analyses et de l'intervalle entre chaque analyse.

Le but étant d'avoir une liste des nb_analyse dates d'analyses en sachant que la première aura lieu à la semaine nb_semaine_analyse/2 et que les suivantes seront espacées de la précédente de la valeur nb_semaine_analyse.

Voila voila !

J'attends vos conseils parce que je commence à avoir mal à la tête à force de prendre des coups !!!

**Lou Pitchoun** · 21/03/2007, 10h25

Salut et bienvenue sur dvp.

Crée une requête ajout qui va créer les nouvelles dates en fonction des dernières connues. Pour cela utilise DateAdd.

**ancel17** · 21/03/2007, 12h22

Salut et merci d'avoir répondu !

juste une petite précision,

j'utilise access 2003 et il me semble que DateAdd ne s'applique qu'à access 2007. Mais je me trompe peut-être !

D'autre part, j'ai du mal à saisir comment dans un même champ d'une requête, je peux donner 2 formules différentes (1 pour la première date, 1 pour toutes les autres)

**Lou Pitchoun** · 21/03/2007, 12h47

Envoyé par ancel17

j'utilise access 2003 et il me semble que DateAdd ne s'applique qu'à access 2007. Mais je me trompe peut-être !

J'utilise principalement Access97

D'autre part, j'ai du mal à saisir comment dans un même champ d'une requête, je peux donner 2 formules différentes (1 pour la première date, 1 pour toutes les autres)

??
J'ai du mal à suivre.
Tu as des dates d'analyses avec un nombre de semaines (intervalle entre 2 analyses).

la première aura lieu à la semaine nb_semaine_analyse/2 et que les suivantes seront espacées de la précédente de la valeur nb_semaine_analyse

Je pense que là on a un soucis. Tu calcules ta 1ère date (semaine : nb_semaine_analyse/2) à partir de quelle date ?
Pour les suivantes c'est assez simple. Mais il faut le point de départ.

Si j'ai compris : il te faut utiliser DAO
Tu parcours la table qui recence nb_analyse et nb_semaine_analyse.
Pour chaque enregistrement, tu crées n enregistrements (où n = nb_analyse) dont le champ date du 1er aura pour valeur

Code :

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

DateAdd("ee", nb_semaine_analyse, DateDépart)

et les suivants

Code :

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

DateAdd("ee", nb_semaine_analyse, ValeurPrécédente)

**ancel17** · 21/03/2007, 14h26

le fait est que je n'ai pas de date !
le champ nb_semaine_analyse est calculé sur le champ nb_analyse qui est un champ numérique : nb_semaine_analyse = Ent(52/nb_analyse) ce qui nous donne un intervalle correspondant à des semaines.

pour avoir une répartition centrée sur l'année (soit 52 semaines) il faut que la première date d'analyse corresponde à la semaine nb_semaine_analyse/2.
je pense qu'il doit y avoir une fonction qui permet de convertir un nombre en date.

une fois que cette première date est calculée, on pourra calculer les dates suivantes avec DateAdd.

**random** · 21/03/2007, 14h28

dans chaque base je conseillerais de mettre une table index contenant les valeurs de 1 à 365 par exemple
ici on va nomlmer ce champ semaine

dés lors

Code :

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

1
2
3
4
5
 
PARAMETERS [periode] Short;
SELECT Int([periode]/2)+(([semaine]-1)*[periode]) AS analsemaine
FROM [index]
WHERE Int([periode]/2)+(([semaine]-1)*[periode])<=52;

devrait régler ton pb
si on veut transformer en date on fera

Code :

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

1
2
3
4
5
 
PARAMETERS [periode] Short, [quel an] Short;
SELECT (Int([periode]/2)+(([semaine]-1)*[periode])*7)+(DateSerial([quel an],1,1)) AS analsemaine
FROM [index]
WHERE ((((Int([periode]/2)+(([semaine]-1)*[periode])*7)+(DateSerial([quel an],1,1)))<=DateSerial([quel an],12,31)));

**ancel17** · 21/03/2007, 14h46

Envoyé par random

dans chaque base je conseillerais de mettre une table index contenant les valeurs de 1 à 365 par exemple
ici on va nomlmer ce champ semaine

dés lors

Code :

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

1
2
3
4
5
 
PARAMETERS [periode] Short;
SELECT Int([periode]/2)+(([semaine]-1)*[periode]) AS analsemaine
FROM [index]
WHERE Int([periode]/2)+(([semaine]-1)*[periode])<=52;

devrait régler ton pb

???
peux-tu détailler ce que tu me proposes, parce que là je ne comprends pas vraiment (je débute !)

**random** · 21/03/2007, 14h56

c'est po grave de débuter
cela n'est que transitoire
crée une table que tu nommes index avec un champ nommé semaine
(si tu ne sais pas voir un tutoriel)
dans le champ semaine saisis 1,2,3...52
ensuite fais requête nouveau ajouter une table index
affichage mode sql
efface select;
recopie le code et éxécute

**ancel17** · 21/03/2007, 15h16

Merci !!!
ça fonctionne du feu de dieu !!!

est-il possible que les paramètres soient liés à la valeur d'un champ d'un formulaire ?

Je m'explique :
j'ai un formulaire avec un champ calculé qui me donne la valeur correspondant au paramètre [période] (nb_semaine_analyse). Si j'insère la requête magique que tu m'as donné en tant que sous-formulaire, puis-je faire correspondre nb_semaine_analyse au paramètre [période de la requète] ?

**random** · 21/03/2007, 15h32

meme pas dur remplace
[periode] par forms("nomdemonformulaire").nomdemoncontrole

**ancel17** · 21/03/2007, 15h54

j'ai remplacé [période] par la formule que tu m'as donné et oté [période] de la déclaration des paramètres.
Ce qui me donne le code suivant :

Code :

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

1
2
3
4
5
 
PARAMETERS [quel an] Short;
SELECT (Int(forms("F_repartition_analyse_annee1").texte18/2)+(([semaine]-1)*forms("F_repartition_analyse_annee1").texte18)*7)+(DateSerial([quel an],1,1)) AS analsemaine
FROM [index]
WHERE ((((Int(forms("F_repartition_analyse_annee1").texte18/2)+(([semaine]-1)*forms("F_repartition_analyse_annee1").texte18)*7)+(DateSerial([quel an],1,1)))<=DateSerial([quel an],12,31)));

qd j'execute la requete, j'ai l'erreur suivante :
Utilisation non valide de '.', '!', ou '()' dans l'expression
'(Int(forms("F_repartition_analyse_annee1").texte18/2)+(([semaine]-1)*forms("F_repartition_analyse_annee1").texte18)*7)+(DateSerial([quel an],1,1))'

**random** · 21/03/2007, 16h10

hum c'est
[forms].[nomformulaire]![nomchamp]

pardon

**ancel17** · 21/03/2007, 16h23

merci, c'est ça !

j'avais essayé nomformulaire.forms!nomchamp mais en vain...

dernière petite question et je pense que mon problème sera résolu !

le paramètre [quel an] correspond à l'année en cours, comment faire pour automatiser cette valeur (2007 pour cette année, 2008 pour une utilisation l'année prochaine), et ne pas avoir à la rentrer manuellement ?

**random** · 21/03/2007, 16h36

le remplacer par year(date())

**ancel17** · 21/03/2007, 16h38

C'est bon j'ai trouvé la solution : je remplace [quel an] par Year(Date()) et ça fonctionne !

Voici le résultat final !

Code :

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

1
2
3
SELECT (Int([forms].[F_repartition_analyse_annee1]![texte18]/2)+(([semaine]-1)*[forms].[F_repartition_analyse_annee1]![texte18])*7)+(DateSerial(Year(Date()),1,1)) AS analsemaine
FROM [index]
WHERE ((((Int([forms].[F_repartition_analyse_annee1]![texte18]/2)+(([semaine]-1)*[forms].[F_repartition_analyse_annee1]![texte18])*7)+(DateSerial(Year(Date()),1,1)))<=DateSerial(Year(Date()),12,31)));

Merci beaucoup à random et Kikof !

**ancel17** · 21/03/2007, 16h40

Envoyé par random

le remplacer par year(date())

tu m'as devancé de 2 minutes sur la rédaction !!!

**ancel17** · 21/03/2007, 16h57

ok j'ai parlé un peu trop vite !

la requete fonctionne parfaitement.

je l'ai inséré en tant que sous-fomulaire dans mon formulaire qui va bien, mais j'aimerai qu'elle soit mise à jour automatiquement lorsque la valeur nb_analyse du formulaire change.
Est-ce possible ?

**Lou Pitchoun** · 21/03/2007, 17h02

Sur l'évènement "Sur activation" du sous formulaire:

Code :

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

Me.Requery

Je pense que ça devrait fonctionner.

**ancel17** · 21/03/2007, 18h45

Envoyé par Kikof

Sur l'évènement "Sur activation" du sous formulaire:

Code :

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

Me.Requery

Je pense que ça devrait fonctionner.

j'ai un souci, cela me donne l'erreur : module introuvable.

**Lou Pitchoun** · 22/03/2007, 10h32

j'ai un souci, cela me donne l'erreur : module introuvable.

Code :

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

Private Sub Form_Current()

Sinon à la place de

Code :

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

Me.requery

essaie

Code :

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

Forms!NomFormulaire!NomSousFormulaire.Requery

[Formulaire]Insertion d'une liste de dates calculées dont le nombre est variable

IHM

Discussions similaires

Partager

Partager