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
Partager