[ACCESS] ins. TOP utilisable avec variable ?

Salut :-)

Tu le récupères où, ton nombre ?
A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

Je le récupère dans une table dans la même base....

j'ai entre temps testé une solution, qui marche, qui m'a été soufflée sur un forum "ami" (je ne sais pas quel est le terme consacré !)

Il s'agit d'appeler par une macro une fonction définie dans un module, dont le code est

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

ça me convient bien.

Pour aller plus loin, j'en profite pour vous demander votre avis sur la faisabilité de faire en une seule opération la chose suivante :

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 P j'ai pour chaque famille A et B 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 d'avance!

J'allais te proposer un truc comme ça, une fois que tu m'aurais dit comment tu récupérais ton nombre à extraire...

Dans le cas du paramétrage, je pense qu'il faut faire une boucle sur la table P et envoyer autant de requêtes qu'il y a de lignes...
A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

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

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;

solution trouvée :

créer un module "garder" à l'intérieur duquel on créé la fonction "garde"

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
Exit Function
End Function

Dans la vue requête, créer une requête avec le code SQL :

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;

A+