Discussion :

[Pandore32]

Bonjour

j'ai utilise plusieurs fois le code suivant qui permet de generer une table de 1 000 000 d enregistrements avec des numeros de 1 a 999999 :

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
Public Function MillionEnr()
Dim N As Integer
 
On Error Resume Next
With DoCmd
.SetWarnings False
.DeleteObject acTable, "c"
.DeleteObject acTable, "b"
On Error GoTo 0
.RunSQL "Create table b (num integer)"
For N = 0 To 9
.RunSQL "INSERT INTO b VALUES (" & N & ")"
Next
.RunSQL "SELECT DISTINCT Val([b]![num] & [b_1]![num] & [b_2]![num] &" _
& "[b_3]![num] & [b_4]![num] & [b_5]![num]) AS Expr1 INTO c FROM b, [b] AS [b_1], [b]" _
& "AS [b_2], [b] AS [b_3], [b] AS [b_4], [b] AS [b_5] ORDER BY Val([b]![num] & [b_1]![num] &" _
& "[b_2]![num] & [b_3]![num] & [b_4]![num] & [b_5]![num]);"
.SetWarnings True
End With

Cette procedure est super mais je suis oblige de supprimer la moitie des lignes avec une requete sql...

Ma question est :

Comment generer et remplir une table par vba avec un nombre defini d'enregistrements, par exemple avec 49999 enregistrements ?

[Robert1957]

Bonjour Pandore32,

Un moyen simple est d'ajouter dans votre requête un TOP avec le nombre désiré:

Code :

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

1
2
SELECT DISTINCT
    TOP 49999 Val.... (

Bonne journée

[Pandore32]

Bonjour

Merci pour votre reponse rapide.
La solution est toute simple c'est vrai que je n'avais pas du tout pense a TOP...
C'est parfait tout simplement !
Merci encore pour votre aide