Bonjour,
voila avec se code je doit supprimer une enregistrement dans ma base access.
mais le probleme c'est qu'il supprime bien la ligne dans la listview mais pas dans ma base.
Private Sub Supprimer_Click()
If (MsgBox("Confirmez la Suppression du Chantier [" & ListC.ListItems(ListC.SelectedItem.Index).ListSubItems.Item(1).Text & "]?", vbYesNo + vbQuestion, "Suppression") = vbYes) Then
'Suppression dans la base
Call Connect
Sql = "Delete from client where Nom_Client='" & ListC.ListItems(ListC.SelectedItem.Index).Text & "'"
Rs.Open Sql, Db, adOpenKeyset, adLockOptimistic
Call Deconnect
ListC.ListItems.Remove (ListC.SelectedItem.Index)
End If
End Sub
auriez vous une idée ?
merci
@ plus