Discussion :

[J-33--]

Bonjour,

Désolé pour mon intitulé qui n'est pas très clair ...
Je créé actuellement une base access et je suis bloqué lors de l’exécution de l'une de mes requêtes

Contrainte : il s'agit de table fictive pour vous présenter mon problème, mais dans mon projet je n'ai pas la possibilité de modifier mes tables de données

J'ai actuellement 2 tables Attribution et Zone :

Attribution qui liste des numéros d'articles et leur dénomination


Zone qui liste numéro d'article et zone :


J'ai créé une requête simple qui rapatrie la zone en fonction du numéro d'article :


Le résultat qui sort est le suivant :


Mon problème est le suivant :
Lorsqu'aucune zone n'est trouvée, je souhaiterais que cela reprenne la zone précédemment trouvé.
Dans l'exemple cela donnerais
Article 11112 Zone -> A
Article 11113 Zone -> A
Article 22224 Zone -> B
Article 22225 Zone -> B


Merci pour votre aide

[marot_r]

Bonjour.

Le problème est qu'en Access la notion de "la zone précédemment trouvé.", cela n'existe pas.
Ce n'est pas comme en Excel ou tu peux regarder la ligne au dessus juste en faisant LigneCourante-1.

Je ne vois pas trop comment le faire en SQL, peut-être un peu comme les dates en trouvant la référence max du produit inférieure à la référence courant et pour lequel on a l'info.

Ça va faire une formule méga-compliquée et si tu as beaucoup de données ça va être probablement d'une lenteur effroyable.

Sinon faire la même chose avec un jeu de requêtes … compliqué pareil mais sans doute plus rapide.

La solution qui me paraît la plus simple est de faire une table temporaire où tu stocke les résultats de ta requête sans les valeurs, puis du code VBA qui parcourt les enregistrements en mémorisant la valeur dernière trouvée dans une variable et en l'assignant si le champ est vide.

Laisse savoir quelle solution a ta préférence.

A+

[J-33--]

Salut marot_r
Je remercie pour cette réponse rapide.

Malheureusement, je n'ai pas assez de notion SQL pour me lancer dans une giga-formule .. sans parler du fait que ma base de donnée "attribution" répertorie 300 000 lignes (d'où mon choix d'utiliser access)..

Ta seconde solution me parait plus abordable :
faire une table temporaire où tu stocke les résultats de ta requête, puis du code VBA qui parcourt les enregistrements en mémorisant la valeur trouvée dans une variable et en l'assignant si le champ est vide.

J'ai de bonne base en VBA (j'ai réussi à obtenir le résultats souhaités avec 2 boucles sous excel) mais je n'arrive pas à le reproduire sous access.

Peux tu m'aider sur le parcourt des enregistrement, est ce une boucle For/Next ?
Et comment traduire "enregistrement" dans VBA, je ne penses pas qu'il s'agissent de Range ou cells ...

Si tu as de bon site à me conseiller je suis preneuse ...

[marot_r]

Bonjour.

En passant peux-tu indiquer quelle version d'Access tu utilises ?

Pour la boucle en Access c'est assez simple … une fois qu'on sait :-).

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
dim db as dao.database: set db=currentdb
dim r as dao.recordset: set r=db.openrecordset("NomTaTableTempo", dbOpenDynaset) 'Ouvre la table de données en lecture écriture
 
dim memZone as string 'J'ai supposé, à la vue des données exemple, mettre le bon type.
 
do while not r.eof 'Tant qu'il reste des enregistrements
 
    if not isnull(r![Zone]) then
        memZone=r![Zone] 'Garde la dernière valeur en mémoire.
     else
        r.edit 'Passe en mode modification
        r![Zone]=memZone
        r.update 'Ne pas oublier, sinon la modification n'est pas prise en compte.
    end if
 
    r.movenext
loop
 
r.close:set r=nothing
db.close:set db=nothing

Pour le parcourt d'enregistrements il est extrêmement rare qu'on utilise For Next car on ne sait généralement pas combien il y en a et Access ne te le dit souvent qu'à la fin. Donc pour savoir combien il y a d'enregistrements il faut lire tous les enregistrements et ensuite les traiter donc faire en gros 2 fois le travail ce qui n'est pas rentable.

A+

[J-33--]

Re,

Au vue de tes explications une boucle For/Next serait non seulement inutile mais aussi fastidieux :-)

En effet le code VBA est assez simple en soit, même si j'ai un problème dès la déclaration des variables.

Le message d'erreur est "objet requis"





En espérant que tu acceptes que tu m'aides encore un peu ...

Pour répondre à ta question , j'utilise une version 2002

[marot_r]

Bonjour.

Pardon, c'est CurrentDB avec 2 "r".

Je vais corriger le code initial.

A+

[J-33--]

Re,

Vous êtes Génial, vous avez rentabilisé ma journée !!!!

Bon il va falloir que je fasses en sorte que tous cela se fasses en automatique, mais je vais chercher de mon coté.

Merci encore pour votre aide
Je vous souhaites une bonne soirée et à bientôt

[J-33--]

Bonjour marot_r,

J'ai un nouveau soucis avec l'alimentation de ma base de donnée via votre le code VBA ...
J'ai put essayer cette méthode sur ma vraie base (300 000 lignes).

Le problème est que la taille du fichier est devenue gigantesque (initialement de 520 ko celui ci passe à 334 000 Ko) et l’exécution du module ne se termine même pas.



Auriez vous une solution à me proposer pour résoudre cela ?
En espérant que vous me répondrez, je vous remercie.

[marot_r]

Bonjour.

Le code ne termine pas ? As-tu une erreur ou il prend finalement plus de temps que prévu ?

Là syntaxiquement parlant le code est optimal, il n'y a rien à faire pour faire mieux.
Et 300 Mo n'est pas vraiment un problème, une BD Access peut grossir jusqu'à 2 Go. Attention Access gère très mal la saturation et envoie des messages sans rapports avec le vrai problème. Donc si tu crains, cela il faut toi même surveiller attentivement.
Le "gonflement" est du aux objets temporaires internes créés par Access pour ses traitements.
On ne peut pas l'empêcher mais on peut demander à Access de faire ménage après en activant la compression en sortie. (Désolé je ne me souviens plus où c'est dans la version 2002).

Un truc pour patienter quand on a un code "lent" est d'afficher la progression au fur et à mesure.
Là cela affiche le compteur dans la fenêtre d'exécution immédiate.

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
dim db as dao.database: set db=currentdb
dim r as dao.recordset: set r=db.openrecordset("NomTaTableTempo", dbOpenDynaset) 'Ouvre la table de données en lecture écriture
 
dim memZone as string 'J'ai supposé, à la vue des données exemple, mettre le bon type.
dim nbEnr as long
 
do while not r.eof 'Tant qu'il reste des enregistrements
 
    nbEnr=nbEenr+1
 
    if nbEnr mod 1000=0 then
        debug.print "Enr : " & nbEnr:doevents
    end if
 
    if not isnull(r![Zone]) then
        memZone=r![Zone] 'Garde la dernière valeur en mémoire.
     else
        r.edit 'Passe en mode modification
        r![Zone]=memZone
        r.update 'Ne pas oublier, sinon la modification n'est pas prise en compte.
    end if
 
    r.movenext
loop
 
r.close:set r=nothing
db.close:set db=nothing

La seule autre solution que je vois c'est un export vers Excel, modification dans Excel, puis réimportation.
Au niveau code Access c'est plus simple puisque tu as juste à utiliser :

Code :

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

call docmd.TransferSpreadsheet(acExport, , "NomTaTableTempo", "X:\TonChemin\TonExcel.xls") 'Pour l'export tu peux utiliser la requête directement

puis :

Code :

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

1
2
3
 
call db.execute("Delete [TaTableTempo].* from [NomTaTableTempo]", dbFailOnError")  'Vide la table temporaire.
call docmd.TransferSpreadsheet(acImport, , "NomTaTableTempo", "X:\TonChemin\TonExcel.xls") 'Importe le résultat.

Bon entre les 2 il faut une manip dans EXcel, pour cela soit :

1. tu le fais manuellement dans le fichier d'export. Le plus simple évidement mais demandant si tu fais cela souvant.
2. tu écris du code Excel que tu gardes dans le Excel et tu l'appelles depuis Access ou manuellement dans Excel.
3. tu écris du code Excel puis tu le "transfert" dans Access et tu demandes à Access de l'exécuter.

Bon l'étape initiale est de faire un premier essai à la main avant de coder donc exporte le résultat de ta requête (soit la table, soit la requête) dans Excel.
Pour cela pas besoin de code Access t'offre l'export en standard dans ses menus.
Ajoute les formules nécessaires dans Excel et demande le calcul là.
Vois combien ce temps cela prend avec toutes tes données. Si c'est aussi long que Access, on n'a rien gagné.

A+

[marot_r]

Autre idée, si ta source n'est pas une base Access mais une "grosse" BD comme Oracle ou Ms-SQL Server, tu peux peut-être déléguer le calcul à ta source.

Ça peut considérablement accélérer le calcul. J'ai eu un cas où je suis passé de 1h à 5mn de traitement.

A+

[micniv]

bonjour,

Si je puis permettre,
il est recommandable d'initialiser le compteur, c'est tout bête mais nécessaire !

Code :

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

1
2
3
4
5
 nbEnr=0
do while not r.eof 'Tant qu'il reste des enregistrements
 
    nbEnr=nbEenr+1

Cdlt

[marot_r]

Bonjour.

il est recommandable d'initialiser le compteur, c'est tout bête mais nécessaire !

Ce n'est pas nécessaire, VBA initialise les variables numériques à 0 pour toi, mais c'est vrai que c'est une bonne idée.
Ça a le mérite d'être clair pour l'humain, j'avoue que ne le fait pas pour les nombres … ce qui tendrait à confirmer que je n'aime pas les humains :-).

A+