Probleme de suppression enregistrement

Bonjour a tous.
Voila j'ai un gros souci, je n'arrive plus a supprimer un eregistrement de ma base de donnéé.
J'ai l'erreur 3021 (BOF ou EOF = true ou l'enregistrement actuel a ete supprimé)?
Alors que ça marchait très bien avant.
Je precise que la base est pleine.
 Voici un bout de mon code:


Private Sub Form_Load()
 
 
 
         ListView1.ColumnHeaders.Clear
        ListView1.ColumnHeaders.Add , , "Raison Sociale", (ListView1.Width * (20 / 40)), lvwColumnLeft
       
        ListView1.ColumnHeaders.Add , , "Date", (ListView1.Width * (5 / 22)), lvwColumnLeft
        ListView1.ColumnHeaders.Add , , "N° Devis", (ListView1.Width * (5 / 22)), lvwColumnLeft

 

       
        bd.Provider = "Microsoft.jet.oledb.4.0"
        bd.ConnectionString = App.Path & "\devis2.mdb"
        bd.Open
       
        cmdado.ActiveConnection = Me.bd
        cmdado.CommandText = "select * from devis"
       
        tb.CursorLocation = adUseClient
        tb.CursorType = adOpenDynamic
        tb.LockType = adLockPessimistic
        tb.Open cmdado
       
       
        cmdado.CommandText = "select * from devis"
        tb.Requery
       
     

     ComboRecherchePar.AddItem ("Raison Sociale"), 0

ComboRecherchePar.AddItem ("OT"), 1

ComboRecherchePar.ListIndex = 0

     
   Call load_list
   Call affiche_0
   End Sub


Et pour supprimer un enregistrement.

Private Sub CommandSupprimer_Click()
  msg1 = MsgBox("Etes-vous sûr de vouloir supprimer la sélection ?", vbQuestion + vbYesNo)
                
      If msg1 = vbYes Then
       
          If (tb.RecordCount > 0) Then
         
            tb.Delete
           
            tb.Update
           
            tb.Requery
           
            Call load_list
           
           
          End If
     End If

End Sub




Merci d'avance.



Stern

enleve   tb.Update
la suppression n'est pas besoin d'update

Salut amalVB et merci pour la reponse.
Malheuresement ça ne resoud pas mon probleme.

une petite precision: si j'efface la DB et que j'en creer une autre j'ai toujours le meme probleme.
je peux enregistrer mais pas supprimer.

J'ai aussi la meme erreur lorsque je veux modifier un enregistrement. existant ???



stern

salut sternisterne,
essai de mettre une requete qui cherche l'enregistrement à modifier ou à supprimer avant de modifier ou supprimer

Bonsoir,
l' erreur vient du fait que tb.CommandText
doit être avant tb.Open

Merci à vous.

ça remarche.

stern.

De rien...

A+
Exploreur