Salut,
J'ai créé un petit module qui contient une zone de liste qui stocke le chemin des derniers fichiers ouverts dans une base access (via un contrôle Data)
J'aimerai, via un bouton supprimer, inviduellement certains élement de cette liste
voici le code que j'ai écris
La zone de liste s'appelle Lst_récents.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 'met à jour la base des fichiers récents Data1.Recordset.OpenRecordset (dbOpenDynaset) Data1.Recordset.FindFirst "[nom] = '" & lst_récents.Text & "'" Data1.Recordset.Delete Data1.Recordset.Close 'met à jour la liste lst_récents.ReFill
Donc quand j'ouvre mon formulaire. Je clique sur la valeur souhaité et je clique sur supprimer. La ligne s'efface.
Lorsque je le fais tout de suite une autre fois j'obtiens le message d'erreur suivant :
Erreur d'exécution 3420 . L'objet est incorrect ou n'est plus définit.
Arrêt pour débogage sur la ligne :
Data1.Recordset.OpenRecordset (dbOpenDynaset)
Pouvez vous me dépanner ?
Merci beaucoup
Partager