code pour supprimer un enregistrement

[azzouz.mustapha]

salut

l'assistance boutton de commande me cause des problémes et je veux écrire le code moi même.

je veux supprimer l'enregistrement en cours dans un formulaire.

quel est le code. (j'ai oublier à§a)

merci de m'apprendre en maîne.

[appm30]

Il faut supprimer l'enregistrement directement dans la table.

[appm30]

Voici un exemple de code

Fiche = Forms!facturemoteur!Fiche
Dim Db As Database
Dim ft As Recordset
Set Db = CurrentDb
Set ft = Db.OpenRecordset("Facture", dbOpenDynaset)
ft.MoveLast
critere = "Fiche='" & Me.Fiche.Value & "'"
ft.FindFirst critere
N = MsgBox("Voulez vous vraiment supprimer l'enregistrement", vbYesNo)
If N = 7 Then
Exit Sub
End If
If N = 6 Then
ft.Delete
DoCmd.Close
DoCmd.OpenForm "facture"
End If
ft.Close

[nicopan]

Salut,
Autre faà§on:

Private Sub BSup_Click()
On Error GoTo Err_BSup_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_BSup_Click:
Exit Sub

Err_BSup_Click:
MsgBox Err.Description
Resume Exit_BSup_Click

End Sub

à§a c'est le code généré par l'assistant.