Discussion :

[Mat08]

Bonjour, j'ai un formulaire et un bouton supprimer qui supprime l'enregistrement sur lequel je suis actuellement grâce à une macro par défaut mais je voudrais le faire en vba. J'ai recherché la ligne de code pour ça et après plusieurs tentatives rien ne fonctionne.
Pourriez-vous me donner une ligne de code simple qui supprimer l'enregistrement sur lequel on se trouve ?

Merci d'avance.

[Invité]

Bonjour

Faq http://access.developpez.com/faq/?pa...es#SupprEnrDep


Cela peut être complété comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub Cmd_Sup_Click()
    On Error GoTo Err_Cmd_Sup_Click
 
    If MsgBox("Etes vous certains de vouloir supprimer cet enregistrement?", vbYesNo + vbCritical, "ATTENTION") = vbYes Then
        DoCmd.SetWarnings False 'enlève les messages 
        Me.AllowEdits = True  'autorise les suppressions
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
        DoCmd.SetWarnings True
    Else
    End If
    Me.AllowEdits = False
    DoCmd.SetWarnings True
Exit_Cmd_Sup_Click:
    Exit Sub
 
Err_Cmd_Sup_Click:
    MsgBox err.Description
    Resume Exit_Cmd_Sup_Click
End Sub

[Mat08]

Ok merci mais n'y a-t-il pas une commande toute simple ? Juste en une ligne.
Du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.GoToRecord , , AcNewRec

mais pour supprimer.