Probleme d'index dans BD

Question

Bonjour a tous

j'ai un probleme d index dans ma base de donnée ADO access
Code erreur d execution 3021
quand je click sur une ligne de mon listview1 et ensuite sur mon bouton effacer j'ai ce messesage d erreur et je ne trouve pas mon probleme

en mode debogage le curseur s arrete sur tb.delete

Voici mon code :

Private Sub Command4_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
            
            Text1 = ""
            Text2 = ""
            Text3 = ""
            Text4.Text = ""

Merci beaucoup pour votre aide

            Text5.Text = ""
            Text6.Text = ""
            Text7.Text = ""
            Text8.Text = ""
            
            
          End If
     End If
     End Sub

cs_DARKSIDIOUS · Answer

Enlève le .Update, ca peut venir de là : ca sert à rien d'updater une ligne qui vient d'être effacée !

Probleme d'index dans BD

1 réponse

Votre réponse

Discussions similaires