suppression d'un enregistrement

Question

bonjour,
j'ai un probl&#232;me lorsque je csupprime un enregistrement dans une table.
je vous donne ici une partie de mon code avant de vous exposer mon probl&#232;me
Option Explicit<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />


Dim db As dao.Database


Dim cli As dao.Recordset


Dim com As dao.Recordset


___________________________________________________________________________


Private Sub Form_Load()


Set db = dao.OpenDatabase("d:\GesCom1.mdb")


Set cli = db.OpenRecordset("Client", dbOpenTable)


Set com = db.OpenRecordset("Commercial", dbOpenTable)


Me.codeClient.Text =cli.RecordCount + 1


End Sub


 


___________________________________________________________________________


Private Sub Enregistrer_Click()


cli.Index = "Primarykey"


cli.Seek "=", Me.Num.Text


If cli.NoMatch = False Then


  MsgBox ("Ce code existe d&#233;j&#224;")


Else


  cli.AddNew


  cli!CodeClient = Me.codeClient.Text


  cli!NomClient = Me.nom.Text


  cli!VilleClient = Me.ville.Text


  cli!AdresseClient = Me.adresse.Text


  cli!TelClient = Me.tel.Text


  cli!CelClient = Me.cel.Text


  cli!CpClient = Me.cp.Text


  cli!N_Com = Me.Text1.Text


  If Text1.Text = cli!N_Com Then


    Combo1.Text = com!NomCom


  End If


  cli.Update


Me.codeClient.Text =cli.RecordCount + 1


End If


End Sub


___________________________________________________________________________


Private Sub Supprimer_Click()


Dim rep As Integer


cli.Index = "primarykey"


cli.Seek "=", Me.CodeClient.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


 


 


 


PROBL&#200;ME


Lorsque j&#146;ai 3 enregistrements, par exemple, et que je supprime le deuxi&#232;me, si je fais un autre enregistrement j&#146;ai un message d&#146;erreur.


Je crois que c&#146;est &#224; cause de l&#146;incr&#233;mentation automatique du code du client.


J&#146;aimerais donc savoir comment y rem&#233;dier.


Merci pour votre disponibilit&#233;

majnounmajda · Answer

Dim db As dao.Database
db.execute ("Delete * from Table")


C'est tt

aieeeuuuuu · Answer

salut,


c'est quoi ton message d'erreur ?

ca pourra nous aider...

Suppression d'un enregistrement

2 réponses

Discussions similaires