Discussion :

[16-Marco]

Bonjour à tous,

mon problème, dans Access 2003, s'exprime assez simplement :

comment ajouter à une table T' les N premiers enregistrements d'une table T où N est une donnée contenue dans le champ p d'une table Paramètre ?

J'ai testé sans succès le code suivant :

Code sql :

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

1
2
3
INSERT INTO T_Prime
SELECT TOP P.p *
FROM T,P;

Merci par avance de votre aide !

[cafeine]

Hello,

as-tu essayé une imbrication (non testé)

Code :

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

1
2
3
INSERT INTO T_Prime
SELECT TOP (SELECT P.p FROM P) T.*
FROM T;

Sinon c'est faisable en VBA.

Bonjour à tous,

mon problème, dans Access 2003, s'exprime assez simplement :

comment ajouter à une table T' les N premiers enregistrements d'une table T où N est une donnée contenue dans le champ p d'une table Paramètre ?

J'ai testé sans succès le code suivant :

Code sql :

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

1
2
3
INSERT INTO T_Prime
SELECT TOP P.p *
FROM T,P;

Merci par avance de votre aide !

[mout1234]

Salut,

Je ne crois que tu puisses utiliser un paramètre pour la clause TOP... mais rien ne t'empêche de construire à la volée ta commande SQL en VBA.

Un code du genre (non testé)

Code vba :

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

1
2
3
4
5
6
7
8
9
Dim lTop As Long
Dim sSQL As String
 
lTop = DLookup("P", "P")
sSQL = "INSERT INTO T_Prime" & _
        "SELECT TOP " & lTop & " *" & _
        "FROM T"
 
CurrentDb.Execute sSQL, dbFailOnError

[loufab]

Bonjour,

Sous vba créer la requete suivante :

Code :

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

1
2
sql = "INSERT INTO T_Prime 
SELECT TOP " & dlookup("nom_champ","table_Parametre","condition where valide") & " FROM T;"

puis faire un

Code :

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

currentdb.execute sql

Le dlookup va chercher le paramètre.

Cordialement,

[mcdotta]

Hello,


Oui, mais à mon avis il faut passer par du code VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim i as integer
Dim strSQL as string
 
i = CInt(DLookup("[p]","P"))
 
strSQL = "INSERT INTO T_Prime
strSQL = strSQL & " SELECT TOP " &  i & " *"
strSQL = strSQL & " FROM T"
 
CurrentDb.Execute strSQL

Attention : j'ai saisi le code directement ici dont il n'a pas été testé....

[16-Marco]

merci pour vos réponses

Je vais étudier les faq et autres tutoriels ayant trait à VBA dans Access (j'imagine qu'il faut passer par un module) et reviendrai cloturer la discussion dès que j'ai trouvé

[16-Marco]

Hello,


Oui, mais à mon avis il faut passer par du code VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim i as integer
Dim strSQL as string
 
i = CInt(DLookup("[p]","P"))
 
strSQL = "INSERT INTO T_Prime
strSQL = strSQL & " SELECT TOP " &  i & " *"
strSQL = strSQL & " FROM T"
 
CurrentDb.Execute strSQL

Attention : j'ai saisi le code directement ici dont il n'a pas été testé....

merci à toi : ton code marche !
Bye

[16-Marco]

Hello,


Oui, mais à mon avis il faut passer par du code VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim i as integer
Dim strSQL as string
 
i = CInt(DLookup("[p]","P"))
 
strSQL = "INSERT INTO T_Prime
strSQL = strSQL & " SELECT TOP " &  i & " *"
strSQL = strSQL & " FROM T"
 
CurrentDb.Execute strSQL

Attention : j'ai saisi le code directement ici dont il n'a pas été testé....

Je reviens en fait sur le sujet pour l'enrichir d'une question :

En réalité dans ma table T j'ai par exemple 100 enregistrements de 2 familles : 75 de la famille A suivis de 25 de la famille B.

Dans ma table de paramètre P j'ai 2 valeurs pour mon paramètre: pour chaque famille A et B j'ai le nombre de lignes que je dois extraire à partir de la table T, respectivement dans les familles A et B, par exemple 6 et 10

Comment modifier l'instruction ci-dessus pour extraire du même coup les 6 premières enre. de la table qui sont de famille A (autrement dit les lignes 1 à 6) et les 10 premiers enre. qui sont de la famille B (autrement dit les lignes 76 à 85) ?

Merci!

[random]

si j'ajoute cette fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Function garde(famille As String, nb As Long) As Boolean
Static fam As String
Static compteur As Long
If fam = famille Then
   compteur = compteur + 1
   Else
   fam = famille
   compteur = 1
End If
garde = compteur <= nb
End Function

la requête suivante

Code sql :

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

1
2
3
4
5
6
7
 
SELECT matable.famille, 
matable.valeur
FROM matable INNER JOIN param 
ON matable.famille = param.famille
WHERE garde([matable].[famille],[nb])=True
ORDER BY matable.famille, matable.valeur;

devrait donner satisfaction
nb la clause order by famille en première clef de tri est indispensable

nb on peut réinitialiser en faisant un appel à garde("zwchpountz";123)

[16-Marco]

merci random,
mais question bête : j'ai créé la fonction garde dans un module, puis la requête en rentrant le code SQL.
Par contre je n'arrive pas à l'exécuter : je reçois le message

"fonction garde non définie dans l'expression".

Quelle fausse manip ai-je faite ?

[random]

copie nous ton sql

[16-Marco]

autant pour moi : j'avais intitulé mon module du même nom que la fonction que tu proposais.

Le tout marche très bien et évite de passer par des créations de table.

En résumé :

dans un module créer la fonction garde décrite ci-dessus. Donner au module un nom différent de "garde"

dans la vue requete, créer une requete avec le code sql proposé.

s'assurer que la table "matable" soit déjà bien classée pour obtenir le résultat souhaité (la clause order by est à mon sens un luxe)

Cette requete permet de n'afficher que les X premières lignes de chaque ensemble d'enregistrements de "matable", identifiés par le critère "famille"
Merci beaucoup

[16-Marco]

Je recreuse encore le problème !
En réalité la sélection des x 1eres lignes ne se fera pas sur 1 seul critère (la famille), mais sur plusieurs :

"matable" ressemblera donc à :
famille1
famille2
valeur

"param" ressemblera donc à :
famille1
famille2
nombre lignes à selectionner dans "matable" lorsque les 2 critères matchent.

j'ai modifié de la façon suivante le code de la fonction :

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
Function gardemarc(famille1 As String, famille2 As String, nb As Long) As Boolean
 
Static fam1 As String
Static fam2 As String
Static compteur As Long
If fam1 = famille1 Then
   If fam2 = famille2 Then
   compteur = compteur + 1
        Else
        fam1 = famille1
        fam2 = famille2
        compteur = 1
    End If
    Else
    fam1 = famille1
    fam2 = famille2
    compteur = 1
End If
garde = compteur <= nb
Exit Function
End Function

et la requête sql:

Code :

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

1
2
3
4
SELECT matable.famille1, matable.famille2, matable.valeur
FROM matable INNER JOIN param ON (matable.famille1=param.famille1) AND( matable.famille2=param.famille2)
WHERE gardemarc([matable].[famille1],[matable].[famille2],[param])=True
ORDER BY matable.famille1, matable.famille2;

Pour autant j'ai le message d'erreur à l'execution de la requête :
"erreur de compilation dans l'expression gardemarc([matable].[famille1],[matable].[famille2],[param])=True

Quelqu'un sait pourquoi ?
merci d'avance !

[16-Marco]

si j'ajoute cette fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Function garde(famille As String, nb As Long) As Boolean
Static fam As String
Static compteur As Long
If fam = famille Then
   compteur = compteur + 1
   Else
   fam = famille
   compteur = 1
End If
garde = compteur <= nb
End Function

la requête suivante

Code sql :

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

1
2
3
4
5
6
7
 
SELECT matable.famille, 
matable.valeur
FROM matable INNER JOIN param 
ON matable.famille = param.famille
WHERE garde([matable].[famille],[nb])=True
ORDER BY matable.famille, matable.valeur;

devrait donner satisfaction
nb la clause order by famille en première clef de tri est indispensable

nb on peut réinitialiser en faisant un appel à garde("zwchpountz";123)

Hello again
question subsidiaire : ceci marche impec à partir d'une table, par contre si je remplace la table par une requête R issue de plusieurs calculs, et à la base de tables, j'ai beau trier comme je le souhaite l'affichage de R, la fonction n'extrait pas toujours les bonnes lignes car elle semble ignorer le tri 'artificiel' que j'ai mis dans ma requête R...ça m'embête drolement car cela signifie qu'à chaque fois que je vais devoir utiliser la fonctionnalité garde il va falloir passer par une table temporaire..A moins qu'il n'y ait une parade ?
Thanks again !