Discussion :

[hyperion13]

Bonjour à toute la communauté,

Je viens vers vous pour un problème rédaction dans une procédure Access Vba pour supprimer une liste de requêtes si existantes.
Ayant peu de connaissance dans le domaine, j'ai rédigé le code suivant sur un évènement sur click, mais lorsque je l'exécute j'ai le message "L'indice n'appartient pas à la sélection". Et là, je suis un peu perdu. Si un spécialiste pouvait me dire ce qui cloche, je l'en remercie d'avance.

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
Dim dbs As DAO.Database
    Dim qdf  As DAO.QueryDef
    Dim reqliste() As String
    Dim i As Integer
 
    ReDim reqliste(i)
    reqliste(1) = "Nom1"
    reqliste(2) = "Nom2"
    reqliste(3) = "Nom3"
    reqliste(4) = "Nom4"
    reqliste(5) = "Nom5"
 
    For i = 1 To UBound(reqliste())
        If qdf.Name = reqliste(i) Then
            dbs.QueryDefs.Delete reqliste(i)
            Exit For
        End If
    Next i
 
    DoCmd.CLOSE

[ClaudeLELOUP]

Bonjour,

Ceci est en cause :

Code :

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

1
2
3
4
5
 
    Dim i As Integer
 
    ReDim reqliste(i)
    reqliste(1) = "Nom1"

à ce moment i vaut encore 0

N.B. la suite n'est non plus correcte, je te reviens.

[ClaudeLELOUP]

Ceci devrait faire l'affaire :

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
29
Option Compare Database
Option Explicit
 
 
Public Sub tst()
    On Error GoTo GestionErreurs
    Dim reqliste() As String
    Dim i As Integer
    i = 5
    ReDim reqliste(i)
    reqliste(1) = "Nom1"
    reqliste(2) = "Nom2"
    reqliste(3) = "Nom3"
    reqliste(4) = "Nom4"
    reqliste(5) = "Nom5"
 
    For i = 1 To UBound(reqliste)
        DoCmd.DeleteObject acQuery, reqliste(i)
    Next i
    Exit Sub
GestionErreurs:
    Select Case Err.Number
      Case 7874
         MsgBox "La requête " & reqliste(i) & " n'existe pas !"
         Resume Next
      Case Else
         MsgBox Err.Number & " " & Err.Description
    End Select
End Sub

[hyperion13]

Bonjour Claude,

Que dire ; Tout simplement génial.

Grand merci.

[ClaudeLELOUP]

N'exagère pas ! (De toute façon pour le Nobel, c'est encore foutu pour cette année.)