pb lors d une suppression dans une listbox

Question

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

cs_casy · Answer

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) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_Exploreur · Answer

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

75ROLLER · Answer

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

cs_Exploreur · Answer

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+
Exploreurhttp://www.vbfrance.com/codes/TREM_40546.aspx

75ROLLER · Answer

ok merci je jet un oeil sur ta source

cs_Exploreur · Answer

De rien
A+
Exploreur

75ROLLER · Answer

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

75ROLLER · Answer

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

cs_Exploreur · Answer

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

zmoha40 · Answer

Salut
Apres le Delete met : Adodc1.Recordset.Refesh
pour raffraichir le record set
et positionne toi sur le record suivant par : Movenetx

ca doit marcher je crois

75ROLLER · Answer

salut et bien cela ne fonctionne pas,j ai pas l'impression de demander quelque chose de difficile.

Pb lors d une suppression dans une listbox

11 réponses

Votre réponse

Discussions similaires