Discussion :

[tee_grandbois]

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 .

Le code VBA est bon, c'est la requête et la table qui sont à modifier.
J'ai donné toutes les explications et la marche à suivre dans mes 2 posts précédents :
https://www.developpez.net/forums/d1.../#post10813196
https://www.developpez.net/forums/d1.../#post10813222

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)

par moments, j'ai du mal à te suivre: tu n'utilises pas le code pour mettre à jour les tables des 2 bases ?

[omen123]

par moments, j'ai du mal à te suivre: tu n'utilises pas le code pour mettre à jour les tables des 2 bases ?

bien sur après chaque importation j’exécute le module que tu m a fais pour mettre a jour les tables.

c 'est les code vba des deux posts que tu m a filé que je ne sais pas ou les mettre et ou les utiliser:

http://www.developpez.net/forums/d1.../#post10813196
http://www.developpez.net/forums/d1.../#post10813222

je vais esseye de copier la methode que tu as fais pour la derniere base SITGROUPE et de le faire sur IDCE

[tee_grandbois]

c 'est les code vba des deux posts que tu m a filé que je ne sais pas ou les mettre et ou les utiliser:

Ce sont des requêtes SQL

Code :

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

UPDATE IDCE SET REF_AUTO_GLOBAL_OLD = REF_AUTO_GLOBAL;

c'est la requête à lancer pour mettre à jour le champ REF_AUTO_GLOBAL_OLD
il suffit de copier/coller le texte du code dans une nouvelle requête en Mode Affichage SQL, l'enregistrer, puis la lancer.

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;

c'est la requête RQ_MAJ_REF_AUTO_GLOBAL en affichage Mode SQL, il suffit de copier/coller le texte en remplacement de l'ancien:



et de relancer le code VBA fNumeroterSerie()

[omen123]

bonsoir tee ,

j'espere que va bien ,je te remercie des deux requete que tu m a filer,je vais les tester demain car je viens de lire ton message a l instant .

je reviens vers toi a propos de la base sitgroupe j'ai copier le module et la requete dans une autre base (meem structure) j'ai constaté de que le numero de serie manque au dernier enregistrement est ce normal ?

merci

[tee_grandbois]

bonsoir,

j'ai constaté de que le numero de serie manque au dernier enregistrement est ce normal ?

je pense que non.
Cela fait 4 jours, j'ai donc perdu le fil. Aurais-tu plus d'informations (quelle version du code, quelle série ...) ?

[omen123]

bien sur avec plaisir ,voila la base en piece jointe

[tee_grandbois]

et quels sont les enregistrements concernés ?

[omen123]

j'ai pris le meme module et la meme requête dans une autre base (qui contient la meme table mais avec des champs en plus) , j'ai constaté que le champ cummulable n'est pas parfois juste , le dernier enregistrement manque.

concerant la base que je t ai mis dans la piece jointe , elle fonctionne a merveille

[tee_grandbois]

concerant la base que je t ai mis dans la piece jointe , elle fonctionne a merveille

la table est vide ..

[tee_grandbois]

j'ai constaté que le champ cummulable n'est pas parfois juste , le dernier enregistrement manque.

il faut me donner quelques exemples

[omen123]

voila la base , peux tu voir le client avec le num tiers : 5200001343790 plz

[omen123]

rebonsoir

pour rectifier ,meme la base que tu m'a envoyé le 07/03/2019, 23h28 a le meme souci (la version que j'ai cru qu elle fonctionnait bien )

merci

[tee_grandbois]

voila la base , peux tu voir le client avec le num tiers : 5200001343790 plz

et qu'est-ce qui est faux ?



je pense que c'est parce que la requête n'est pas triée, il faut ajouter tri croissant sur NUM_TIERS et CUMMULABLE_OLD

[omen123]

Voila le bon résultat :

[tee_grandbois]

regarde ma réponse précédente

[omen123]

bonjour tee

j'ai pas compris

[tee_grandbois]

bonsoir omen123,
désolé, je n'avais pas bien compris la colonne "Le bon résultat".
je te donne le bon code en remplacement de l'ancien ainsi que le code SQL de la requête car il manquait le tri:

Code SQL :

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

1
2
3
SELECT [situation des groupes d'affaires].NUM_TIERS, [situation des groupes d'affaires].CUMMULABLE_OLD, [situation des groupes d'affaires].CUMMULABLE, DCount("*","[situation des groupes d'affaires]","[NUM_TIERS] ='" & [situation des groupes d'affaires]![NUM_TIERS] & "' AND [CUMMULABLE_OLD] ='" & [situation des groupes d'affaires]![CUMMULABLE_OLD] & "'") AS NbOccur
FROM [situation des groupes d'affaires]
ORDER BY [situation des groupes d'affaires].NUM_TIERS, [situation des groupes d'affaires].CUMMULABLE_OLD;

Code VBA :

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
32
33
Function fNumeroterSerie()
Dim odb As DAO.Database
Dim oRst As DAO.Recordset
Dim stRupture As String, stRuptClient As String
Dim lgCompteur As Long
 
Set odb = CurrentDb
Set oRst = odb.OpenRecordset("RQ_MAJ_REF_AUTO_GLOBAL", dbOpenDynaset)
stRuptClient = ""
lgCompteur = 0
Do Until oRst.EOF
    If Nz(oRst!NUM_TIERS, "") <> stRuptClient Then
            ' rupture sur le client
            lgCompteur = 0
            stRuptClient = Nz(oRst!NUM_TIERS, "")
            stRupture = ""
    End If
            ' Rupture sur le code si nul ou même série
    If Nz(oRst.Fields("CUMMULABLE_OLD"), "") <> stRupture Then
        stRupture = Nz(oRst.Fields("CUMMULABLE_OLD"), "")
        If oRst.Fields("NbOccur") > 1 Then lgCompteur = lgCompteur + 1
    End If
    oRst.Edit
    ' 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
    oRst.Update
    oRst.MoveNext
Loop
oRst.Close
Set odb = Nothing
 
End Function

[omen123]

Ok super j’essaye ca tout de suite

[omen123]

Alors la CHAPEAU ca marche a merveille a dieu la saisie .demain je ferai quelque test .je pense que vais changer le code VBA pour ne pas changer le champs cumulable en cumulable old comme ca je vais pas refaire toute les requêtes

[tee_grandbois]

je pense que vais changer le code VBA pour ne pas changer le champs cumulable en cumulable old comme ca je vais pas refaire toute les requêtes

que veux-tu dire par là ?