Problème de data grid, en effet je ne comprend pas, en effet

Question

En fait, je vais chercher dans une bdd des donn&#233;es qui remplissent un datagrid et lors de la suppression d'un &#233;l&#233;ment, j'ai &#231;&#224; qui s'affiche : 

Ttitre de la box : "Microsoft data grid"
Contenu :"Le descipteur de ligne faisait r&#233;f&#233;rence &#224; une ligne supprim&#233;e ou &#224; une ligne marqu&#233;e comme devant &#234;tre supprim&#233;e"

Lors de la suppresion j'effectue cela : 
Private Sub Supprimer_Click()
Annuler.Enabled = True


If (Rst.EOF = True) Then
GoTo fin
End If


  If MsgBox("Supprimer l'&#233;l&#233;ment?", vbQuestion + vbYesNo + vbDefaultButton2, "Validation") <> vbYes Then
     Exit Sub
  End If


  With Rst
    .Delete
    .MoveNext
  End With


  Exit Sub
 
fin:


End Sub

O&#249; rst est d&#233;clar&#233; comme suit : Dim Rst As New ADODB.Recordset
La ligne est cependant bien supprim&#233;e, j'ai a peu pr&#233;s tout essay&#233;, si quelqu'un a d&#233;j&#224; eu le m&#234;me soucis merci de m'aider.
L'erreur n'apparait pas lorsque je sellectionne la ligne enti&#232;re avec la fl&#232;che &#224; gauche.

Cordialement

cs_pazou · Answer

En effet permettez moi d'&#234;tre con, merci

Il suffit de rajouter :

Private Sub DataGrid1_BeforeDelete(Cancel As Integer)
DataGrid1.Row = DataGrid1.Row + 1
End Sub

voil&#224;, je fais les questions et les r&#233;ponses, trop fort

Problème de data grid, en effet je ne comprend pas, en effet

1 réponse

Discussions similaires