Discussion :

[omen123]

bonjour les amis ,

je sollicite votre aide afin de modifier mon code VBA car je suis bloqué. Un ami sur le forum m'a déjà orienté vers le début, voilà je vous explique :
J’ai un matricule par client champ nommé REF_TIERS ,chaque client a un montant champ nommé MONTANT_AUTO chaque montant a une référence champ nommé REF_AUTO_GLOBAL .
Sur la capture d’ecran il s’agit d’un seul client ,le resultat que je voudrai c est que si la valeur dans le champ REF_AUTO_GLOBAL est :
- vide le numero doit etre vide
- les champs avec le meme nombre doit affiche le nombre 1 et l’autre lot le nombre 2 et ainsi de suite
- les champs qui sont impaires doivent rien affiché

En principe voilà le résultat que doit affiché l’imprim ecran :

1
1
1
2
2
2
2
2
2
3
3
3

Le compte doit se refaire a zero pour le prochain client.avec le module que j’ai eu déjà ca ce fait déjà ,le probleme c’est que si le champ REF_AUTO_GLOBAL n’est pas en double ca se compte aussi

j'ai mis en piece jointe la base si vous le permettez et d avance je vous remercie bccccccccccccccccccccccpppp



voila le resultat que je devrai avoir

[tee_grandbois]

bonsoir,

- les champs qui sont impaires doivent rien affiché

si le champ REF_AUTO_GLOBAL n’est pas en double ca se compte aussi

qu'est-ce que tu entends par là ?

[omen123]

rebonsoir

je voulais dire si la valeur ne se repete pas le reseultat doit renvoyer la valeur null (vide)

merci bcp

[tee_grandbois]

si c'est pour ces 2 enregistrements:

ils ne font pas partie de la sélection par ces 2 conditions:

Code :

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

1
2
CODE_ETAT = "2" Ou "4" Ou "6"
CODE_PRODUIT <> "W 1003     M"

mais si cela doit être fait pour d'autres enregistrements, pas de souci, c'est possible de le faire.

[omen123]

rebonsoir

je suis tres null sur vba , dois-je ajouter ces deux ligne a mon ancien code svp ?

[tee_grandbois]

non ! c'est ce qu'il y a déjà dans le code et qui exclut ces 2 enregistrements :
dans la requête d'origine de la première base postée (celle qui ne fonctionnait pas car c'était une requête de regroupement et ne permettait pas la mise à jour) il y avait ces 2 clauses :


que j'ai transformé en :



car cela correspondait aux clauses de la requête d'origine.
Si il faut garder ou enlever ces clauses, dis-le avant que je modifie la requête pour que cela fonctionne comme tu l'as demandé

[omen123]

rebonsoir

tu peux les enlever si tu veux , apres moi je ferai une requete sur celle que tu va me faire

[tee_grandbois]

j'ai créé la requête RQ_MAJ_REF_AUTO_GLOBAL et j'ai changé le code fNumeroterSerie() du module Module1 CCM2
à mon avis il faudrait mettre l'ancienne valeur dans un autre champ (à ajouter dans la table) se serait plus facile pour contrôler.
base forum.rar

il n'y a plus qu'à tester

[omen123]

bonjour tee

je viens de rajouter d'autres client , et j'ai fais le test et voila le résultat :

1- le test sur 8 relations le résultat est impeccable
2- l’exécution du module prend environ 30 min ,après le fameux message "accès a cessé de fonctionné apparaît" et la création de série s’arrête . j'ai fait un exemple en pièce jointe

serai t'il possible de faire moins de temps et compléter tout le résultat (même si je dois créer d'autre requête) ?

merci bcp

[tee_grandbois]

bonsoir omen123,

l’exécution du module prend environ 30 min

c'est beaucoup 30mn mais il faut prendre en compte que le CpteDom est gourmand en ressources.

après le fameux message "accès a cessé de fonctionné apparaît" et la création de série s’arrête .

C'est plus embêtant, combien d'enregistrements au total sont à traiter ?

Je vais essayer de voir si je peux optimiser, en attendant ajoute un index à la table IDCE sur REF_AUTO_GLOBAL.

[tee_grandbois]

avec un index c'est NETTEMENT mieux ...

[omen123]

rebonjour tee

voila ce qui en est ce matin

avec un index c'est NETTEMENT mieux ...

,

l'execution du module se fait au bout de 17 min au lieu de 30min (c'est de le faire manuellement comme on le fait maintenant )

la base que tu as testé avant , le champ REF AUTO GLOBAL a été a moitie remplacé. c 'est pour ca je crois que le module s'est exécuté rapidement . voila les étapes que j'ai fais :

1-ajouté un index au niveau de la table IDCE --> indexé : oui avec doublon --> compression unicode :non

en ce qui me concerne a ce stade la je suis très satisfait .

[tee_grandbois]

bonjour omen123,

la base que tu as testé avant , le champ REF AUTO GLOBAL a été a moitie remplacé. c 'est pour ca je crois que le module s'est exécuté rapidement .

cela ne change rien, les enregistrements (16031), même modifiés sont inclus dans la requête et j'avais sauvegardé le fichier avant modification de l'index.
Résultat: temps de traitement avant création de l'index 24mn 30s, après création 1mn 10s.

Est-ce que pour toi c'est ?

[omen123]

bonjour tee ,

dessole pour le retard de la réponse



même si ça me prend encore une dizaine de minutes c mieux que 15 jours de saisie manuellement auparavant . je suis très reconnaissant pour ton aide si précieuse et j'en suis très satisfait du résultat .


j'ai fait le test sur quelque client le résultat est correcte


une dernière question si vous permettez



j'ai le même principe sur une autre table (une autre base) ,j'ai changer le code vba mais lors de l'execution du module il se plante si vous pouvez m orienter plz

[tee_grandbois]

bonsoir,
j'ai corrigé ton code, par contre le gros souci est que la partie de code ci-dessous ne semble pas fonctionner comme il faut:

Code :

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

1
2
3
    ' si le nombre d'occurences est égal à 1 on vide le champ sinon on met la valeur du compteur du groupe
    If oRst.Fields("NbOccur") = 1 Then oRst.Fields("CUMMULABLE") = Null _
        Else: oRst.Fields("CUMMULABLE") = lgCompteur

conséquence: le dernier enregistrement d'un groupe n'est pas mis à jour car NbOccur est à 1 à ce moment. Ce qui est préoccupant car je n'ai pas détecté ce souci avec la base précédente et la TABLE IDCE mais j'ai quand même un gros doute. Es-tu sûr que les vérifications ont été faites correctement ?
Je t'avais préconisé de créer un champ contenant l'ancienne valeur, il va falloir le faire au moins pour cette base et peut-être pour la précédente pour plus de sécurité.
Je te met la nouvelle base avec le code corrigé, le champ et les index ajoutés et la table mise à jour.
SIT GROUPE_UP.rar

Tiens-moi au courant pour la vérification de la base précédente.

[omen123]

bonsoir tee ,

alors concernant :

conséquence: le dernier enregistrement d'un groupe n'est pas mis à jour car NbOccur est à 1 à ce moment. Ce qui est préoccupant car je n'ai pas détecté ce souci avec la base précédente et la TABLE IDCE mais j'ai quand même un gros doute.

pour la dernière base j'ai copié avant hier le code et modifié ça a marché au début . mais j'ai détecte aussi ce problème pour le dernier enregistrement (il manque toujours 1).
concernant IDCE le problème ne se pressente pas (j'ai vérifier que quelque clients) reste a savoir pour les autres.


Es-tu sûr que les vérifications ont été faites correctement ? :

pour IDCE je crois que ça marche bien mais reste a revérifier


Je t'avais préconisé de créer un champ contenant l'ancienne valeur, il va falloir le faire au moins pour cette base et peut-être pour la précédente pour plus de sécurité

j'ai voulu le faire mais accès me remonte un résultat en double , pour chaque client le résultat est multiplié par 2 ce qui rend la tache assez difficile ,donc je fais la verification au hasard et manuelle .

Je te met la nouvelle base avec le code corrigé, le champ et les index ajoutés et la table mise à jour.

est ce que la base contient toujours le problème du dernier enregistrement manquant stp ?

[omen123]

Bonsoir tee,

je confirme le résultat n'est pas correcte .



Le résultat doit être :

- vide
-1
-1
-2
-2
-2
-2

[tee_grandbois]

Je te met la nouvelle base avec le code corrigé, le champ et les index ajoutés et la table mise à jour.

est ce que la base contient toujours le problème du dernier enregistrement manquant stp ?

non, c'est ce que je t'ai dit:

Je te met la nouvelle base avec le code corrigé, le champ et les index ajoutés et la table mise à jour.

tu peux le vérifier en ouvrant la requête RQ_MAJ_REF_AUTO_GLOBAL.

Je t'avais préconisé de créer un champ contenant l'ancienne valeur, il va falloir le faire au moins pour cette base et peut-être pour la précédente pour plus de sécurité

j'ai voulu le faire mais accès me remonte un résultat en double , pour chaque client le résultat est multiplié par 2 ce qui rend la tache assez difficile

Franchement, je ne vois pas comment cela peut remonter un résultat en double...

Pour refaire le traitement, il faudrait restaurer les anciennes données si tu as une sauvegarde.
Après, dans IDCE, il faudrait créer un champ REF_AUTO_GLOBAL_OLD, lui mettre un index, puis le mettre à jour avec la requête suivante:

Code :

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

UPDATE IDCE SET REF_AUTO_GLOBAL_OLD = REF_AUTO_GLOBAL;

Ensuite, il faut modifier la requête RQ_MAJ_REF_AUTO_GLOBAL et faire le DCount, non pas sur REF_AUTO_GLOBAL mais REF_AUTO_GLOBAL_OLD:

Code :

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

NbOccur: CpteDom("*";"[IDCE]";"[REF_TIERS] ='" & [IDCE]![REF_TIERS] & "' AND [REF_AUTO_GLOBAL_OLD] ='" & [IDCE]![REF_AUTO_GLOBAL_OLD] & "'")

Pour finir, on relance le traitement.

De ce fait, le nombre d'occurrences pour un REF_AUTO_GLOBAL_OLD ne changera jamais.

[tee_grandbois]

la requête RQ_MAJ_REF_AUTO_GLOBAL doit aussi être modifiée pour le tri :

Code :

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

1
2
3
4
SELECT IDCE.REF_TIERS, IDCE.REF_AUTO_GLOBAL, IDCE.REF_AUTO_GLOBAL_OLD, DCount("*","[IDCE]","[REF_TIERS] ='" & [IDCE]![REF_TIERS] & "' AND [REF_AUTO_GLOBAL_OLD] ='" & [IDCE]![REF_AUTO_GLOBAL_OLD] & "'") AS NbOccur
FROM IDCE
WHERE (((IDCE.REF_AUTO_GLOBAL_OLD) Is Not Null))
ORDER BY IDCE.REF_TIERS, IDCE.REF_AUTO_GLOBAL_OLD;

[omen123]

Rebonsoir tee,

j'ai télécharger la base que tu m'a fais et je vais pointer d'autres clients.je te remercie pour les codes VBA que tu m'a fournis mais malheureusement j'ai jamais fait ou connu le VBA (je ne sais même pas comment le lire) , donc je vais le faire manuellement ou pour éviter les doublons j’essayerai de créer des regroupement .(pour moi la deuxième base est la plus importante)

concernant IDCE dois recopier le nouveau code VBA ou bien garder l'ancien puisque je crois qu il généré de bon résultat ? reste a revérifier .

et enfin je te remercie pour tous le temps que tu as consacré a modifier et créer des solutions pour mon problème qui a durée plus de trois années de saisie ,qui sait peut être que je vais te renvoyer l’ascenseur un jour

je te tiendrai des vérifications demain .

merci tee