Discussion :

[CCRNP]

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

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

La zone de liste s'appelle Lst_récents.


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

[Invité]

Salut,

Tu fermes ton recordset est-ce que tu le reouvre bien avant ?

Starec

[CCRNP]

oui puisque j'appuie a nouveau sur le bouton supprimer, qui relance la même procédure.

[CCRNP]

Personne ne peut me répondre ?

[jacma]

Bonjour

Pourquoi Find? Puisque tu sélectionnes un item dans ta liste pour le supprimer, un simple rs.delete y suffirait.