suppression d'un enregitrement dans une table

Question

Salut je suis un d&#233;butant en vb6 et j&#146;ai un probl&#232;me au niveau de la suppression d&#146;un enregistrement.


Je vous donne ici mon code et je vous dirai par la suit o&#249; se trouve mon probl&#232;me.


 


 


Option Explicit


Dim db As dao.Database


Dim cli As dao.Recordset






Private Sub Form_Load()


Set db =   dao.OpenDatabase ("d:\GesCom1.mdb")


Set cli  = db.OpenRecordset("Client", dbOpenTable)


Me.codeclient.Text =  cli.RecordCount + 1


End Sub






 Private Sub  Supprimer_Click()


Dim rep As Integer


cli.Index  = "primarykey"


cli.Seek "= ", Me.Num.Text


 If  cli.NoMatch  = False Then


rep =   MsgBox ("Voulez-vous vraiment supprimer cet enregistrement ?", vbYesNo + vbCritical, "Suppression")


If rep  = vbNo Then


Exit Sub


End If


If rep = vbYes Then


cli.Delete


MsgBox ("Suppresion effectu&#233;e")


End If


End If


End Sub


 


 


 


PROBLEME





Lorsque j&#146;ai 3 enregistrements que je supprime le deuxi&#232;me, j&#146;ai un message d&#146;erreur :


Risque de doublon&#133;&#133;..


 


 


Voici plus ou moins mon probl&#232;me


Je vous remercie d&#233;j&#224; votre disponibilit&#233; et pour la solution que vous me donnerez certainement.

cs_jperre · Answer

Il y a des erreurs dans le code. En plus, il est plus facile de retrouver un numéro existant lorsque l'on ne fourni que ceux qui existent à l'utilisateur.
Pour celà, utiliser une combobox (que nous appelerons cbCli)
Dans la zone de déclarations du module du formulaire
Dim db As DAO.Database
Dim cli As DAO.Recorset

Private Sub Form_Load()
  Set db=DBEngine(0).OpenDatabase("d:\GesCom1.mdb")
  Set cli=db.OpenRecordset("Select Num FROM Client ORDER BY Num;",dbOpenSnapshot)
  With cbCli
       .Clear
       If Not cli.EOF Then
          Do
            .AddItem cli("Num")
            cli.MoveNext
          Loop Until cli.EOF
       End If
       .Text=.List(0)
  End With
  cli.Close    
  Set cli=db.OpenRecordset("Client",dbOpenTable)
  codeclient.Text = cli.RecordCount + 1
End Sub

Private Sub Supprimer_Click()
   Dim rep As Integer
   Beep
   rep=MsgBox("Vous allez supprimer l'enregistrement de numéro " & cbCli.Text & vbCrLf & "Voulez vous continuer?...", vbQuestion+vbYesNo+vbDefaultButton2,"Suppression d'un enregistrement")
   If rep=vbYes Then
      cli.Close 'Fermer le recordset Client pour le réinitialiser après suppression
      db.Execute "DELETE * FROM Client WHERE Num=" & cbCli.Text & ";"
      Set cli=db.OpenRecordset("Client",dbOpenTable)
End Sub
Bon courage!...

Suppression d'un enregitrement dans une table

1 réponse

Discussions similaires