Discussion :

[Milkamelia]

Bonjour,

J'ai créé une macro de prise en charge d'une table mais elle ne fonctionne que quand la table est assez petite (sinon, mon PC ne suit pas).
Du coup, je voudrais créer une macro qui fractionne ma table en n petite table.

Avez-vous en tête une façon simple de lui dire :

• prendre les enregistrement 1 à n et les mettre dans une table
• prendre les enregistrements n+1 à 2n et les mettre dans une table
• etc.

Merci !

[marot_r]

Bonjour.

À priori fractionner une table en plusieurs tables est une mauvaise idée et de plus ce n'est pas très simple à faire.

Peux-tu décrire ton processus qui nécessite un découpage ?

Peux-tu aussi succinctement expliquer le traitement qui met ton PC à genoux car Access ne consomme pas généralement suffisamment de ressource pour faire cela ?

A+

[Milkamelia]

Bonjour,

Tout d'abord merci pour ta réponse.

En fait, j'avais une base de 400 000 lignes dans une base et j'avais beaucoup de retravail à faire dessus (une longue série d'UPDATE) et ça faisait planter Access : ressources insuffisantes.
J'en ai fait l'objet d'un poste ici : http://www.developpez.net/forums/d15...insuffisantes/
Les indications qui m'ont été données m'ont permis d'optimiser mon code mais je n'avais plus le temps de complètement l'optimiser (notamment grâce à la méthode iff suggéré dans la conversation).

J'ai donc décider de garder mon programme tel qu'il était (manque de temps) et de diviser ma table en 4 et de faire tourner mon programme 4 fois...

Voilà comment je l'ai fractionnée :

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
28
Sub YFractionnementNEW(entree)
 
nb_enregistrements = DCount("*", entree)
 
nb_divisions = 4
n = Round(nb_enregistrements \ nb_divisions, 0)
reste = nb_enregistrements - nb_divisions * n
 
DoCmd.SetWarnings False
 
For i = 1 To nb_divisions
    nomtable = entree & "_" & i
    DoCmd.RunSQL " SELECT * into buffer FROM [" & entree & "] "
    m = (i - 1) * n
    If m > 0 Then DoCmd.RunSQL " delete * from (SELECT top " & m & " * FROM buffer) "
    If i <> nb_divisions Then
        DoCmd.RunSQL " SELECT top " & n & " * into [" & nomtable & "] FROM [buffer] "
    Else
        DoCmd.RunSQL " SELECT * into [" & nomtable & "] FROM [buffer] "
    End If
Next i
 
DoCmd.RunSQL "DROP TABLE [buffer]"
 
 
DoCmd.SetWarnings True
 
End Sub

Ce bout de code fonctionne très bien mais je pense qu'il peut être largement optimisé.
Je colle des enregistrements, puis je les supprime, etc.

Je suis sûre qu'il y a une meilleure façon de faire...

Merci !

Camille