Forms: Effacer l'enregistrement actuel	Author(s) Dev Ashish

Si vous n'aimez pas passer par la commande DoMenuItem, tel que le fait le Wizard dans son code créé pour Effacer un enregistrement (Delete Record), vous pouvez toujours faire usage d'une fonction à cette effet.

Voici un exemple d'utilisation

Private Sub DeleteCurrentRecord_Click()
    If Not (fDelCurrentRec(Me)) Then
        MsgBox "An Error occurred!"
    End If
End Sub

'************** Code Start *************
      Function fDelCurrentRec(ByRef frmSomeForm As Form) As Boolean
        On Error GoTo Err_Section
       
        With frmSomeForm
            If .NewRecord Then
                .Undo
                fDelCurrentRec = True
                GoTo Exit_Section
            End If
        End With
       
        With frmSomeForm.RecordsetClone
            .Bookmark = frmSomeForm.Bookmark
            .Delete
            frmSomeForm.Requery
        End With
        fDelCurrentRec = True
      Exit_Section:
        Exit Function

      Err_Section:
        fDelCurrentRec = False
        Resume Exit_Section
      End Function
'************** Code End *************