pb lors d une suppression dans une listbox

Bonne année à tous, je travail sur une base access et je me sers
  de l’ADO j ai le contrôle listbox que j ai alimenté en données,
  quand je veus supprimer un element de cet liste j ai une erreur ? ? 3021, voici
  le code</p>
<p>Private Sub Command2_Click()<br>
  r&eacute;p = MsgBox(&quot;Etes vous s&ucirc;r de supprimer cette entree O/N?&quot;,
  vbOKCancel)<br>
  If r&eacute;p = vbOK Then<br>
  Adodc1.Recordset.Delete<br>
  <br>
  'rafraichissement de la liste<br>
  <br>
  Do While Not (Adodc1.Recordset.EOF)<br>
  List1.AddItem Adodc1.Recordset(&quot;Fetes&quot;)<br>
  Adodc1.Recordset.MoveNext<br>
  Loop<br>
  <br>
  If Not Adodc1.Recordset.EOF Then<br>
  Adodc1.Recordset.MoveFirst<br>
  End If<br>
  end if

Décidément Opéra digère de plus en plus mal la FreeTextBox.

La prochaine fois essaye d'écrire tes messages avec IE ou Firefox.

Message décodé

Bonne année à tous, je travail sur une base access et je me sers
  de l'ADO j ai le contrôle listbox que j ai alimenté en données,
  quand je veus supprimer un element de cet liste j ai une erreur ? ? 3021, voici
  le code

Private Sub Command2_Click()
  rép = MsgBox("Etes vous sûr de supprimer cette entree O/N?",  vbOKCancel)
  If rép = vbOK Then
      Adodc1.Recordset.Delete
 
      'rafraichissement de la liste
 
      Do While Not (Adodc1.Recordset.EOF)
          List1.AddItem Adodc1.Recordset("Fetes")
          Adodc1.Recordset.MoveNext
      Loop
 
      If Not Adodc1.Recordset.EOF Then
      Adodc1.Recordset.MoveFirst
      End If
  End If

---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

Bonjour,
Est-ce que quand tu cliques sur ta listbox, tu récupère bien l'index de ton record à supprimer? Je pense de plus qu'il serait plus rapide(a mon goût) de récupérer ta position sur l'enregistrement à supprimer que de faire(si j'ai bien compris) une recherche dans ta base.....

A+
Exploreur

 

 

 

 

 

Ha oui d'accord comment on récupère l index du recorset de l'item choisi ? ?

Re, va voir si tu veux ma source, peut-être cela te sera utile(mois je récupère l'index via click_item listview)
A+
Exploreur

ok merci je jet un oeil sur ta source

De rien
A+
Exploreur

Au demarrage des erreurs de partout en plus programme important j ai du mal a me repairer, ci tu pense a un prog plus petit je suis preneuse

il y a un psw sur ton application difficile de la voir fonctionne

Créer sur C: >> X-Trem V1.2Fr, puis dans ce repertoire du copie tout les autres et tu créer >> Archivage, Users, Sauvegarde.
Il faut aussi déclarer les ocx(mon repertoire "Fichier ocx")
Password >> Exploreur et code : 123456
Je vais essayer de te faire une petite source pour comprendre le truc.
A+
Exploreur