aide sur code VBA

Version imprimable

Voir 40 message(s) de cette discussion en une page

08/03/2019, 23h29
tee_grandbois

Citation:

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

Citation:

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 ?
08/03/2019, 23h44
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 :mouarf::mouarf::mouarf:

1 pièce(s) jointe(s)

Citation:

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 8O

Code:

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:

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:

Pièce jointe 456186

et de relancer le code VBA fNumeroterSerie()

13/03/2019, 21h31
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 ?8O

merci
13/03/2019, 21h47
tee_grandbois

bonsoir,

Citation:

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 ...) ?
13/03/2019, 21h49
omen123

1 pièce(s) jointe(s)

bien sur avec plaisir ,voila la base en piece jointe
13/03/2019, 21h56
tee_grandbois

et quels sont les enregistrements concernés ?
13/03/2019, 21h59
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 :mouarf:
13/03/2019, 22h01
tee_grandbois

Citation:

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

la table est vide ..
13/03/2019, 22h15
tee_grandbois

Citation:

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

il faut me donner quelques exemples
13/03/2019, 22h27
omen123

1 pièce(s) jointe(s)

voila la base , peux tu voir le client avec le num tiers : 5200001343790 plz
13/03/2019, 22h45
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 ) :calim2::calim2:

merci
13/03/2019, 22h49
tee_grandbois

1 pièce(s) jointe(s)

Citation:

Envoyé par omen123

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

et qu'est-ce qui est faux ?

Pièce jointe 457724

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
13/03/2019, 23h05
omen123

1 pièce(s) jointe(s)

Voila le bon résultat :

Pièce jointe 457731
13/03/2019, 23h07
tee_grandbois

regarde ma réponse précédente
14/03/2019, 16h14
omen123

bonjour tee

j'ai pas compris

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:

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:

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

14/03/2019, 22h32
omen123

Ok super j’essaye ca tout de suite
14/03/2019, 22h45
omen123

Alors la CHAPEAU ca marche a merveille :ptdr::ptdr::ptdr: 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
14/03/2019, 23h05
tee_grandbois

Citation:

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

Voir 40 message(s) de cette discussion en une page