Discussion :

[s.rais]

Bonjour à tous.
j'ai un problème avec de code suivant qui génère "Erreur d'exécution '9' l'indice n'appartient pas à la sélection"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
chrSQL = "select numproduit from produits"
Set rSt = CurrentDb.OpenRecordset(chrSQL)
rSt.MoveLast
rSt.MoveFirst
 
Dim nProduit() As Integer
For i = 0 To rSt.RecordCount
    nProduit(i) = rSt("numproduit")
    rSt.MoveNext
Next

C'est nProduit(i) qui génère l'erreur.
Je n'arrive pas à voir d'où est l'erreur.
Merci de votre aide.

[ClaudeLELOUP]

Bonjour,

Tu n'as pas défini la dimension de ton tableau !

[s.rais]

Bonjour,

Tu n'as pas défini la dimension de ton tableau !

Bonjour et merci ClaudeLELOUP pour la réponse en effet je n'ai pas défini la dimension du tableau la dimension du tableau est déterminée suivant le nombre d'enregistrement trouvé par la requête.

[ClaudeLELOUP]

Je veux bien comprendre... mais c'est la cause de ton erreur !

Ne peux-tu t'en tirer en indiquant une dimension arbitraire suffisamment grande pour ne pas risquer le dépassement ?

[Thierry_PALLIER]

Bonjour le forum.
Quitte à déclarer ton tableau à la volée ,tu pourrais à la ligne 7

Code :

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

Dim nProduit(1 to rSt.RecordCount) As Integer

A+

[ClaudeLELOUP]

Voir dans l'aide (F1), l'instruction « ReDim [Preserve] ».

Le principe : on définit une tableau à dimension dynamique (comme tu l'as fait) et avant chaque ajout on le redimensionne avec l'instruction

ReDim [Preserve]

Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Explicit
 
 
Public Sub tst()
 Dim sTab() As String
 Dim n As Integer
 n = 5
 ReDim sTab(n)
 sTab(0) = "aa"
 Debug.Print sTab(0)
End Sub

[s.rais]

Merci beaucoup !