Deleting a Record : Form Events « Forms « VBA / Excel / Access / Word






Deleting a Record

 
Private Sub cmdDelete_Click()
    'Ask user if he really wants to delete the row
    intAnswer = MsgBox("Are You Sure???", _
        vbYesNo + vbQuestion, _
        "Delete Current Record?")
    'If he responds yes, delete the row and
    'move to the next row
    If intAnswer = vbYes Then
        Me.Recordset.Delete
        Call cmdNext_Click
        Me.Refresh
    End If
End Sub

 








Related examples in the same category

1.Writing the Form_Error Event Procedure
2.Assign form Recordset in its open action
3.CancelEvent: DoCmd.CancelEvent()
4.IsLoad function
5.Form Before Update action
6.The Undo event executes before changes to a row are undone.
7.Key down event
8.If the data in the form dirty
9.Form_Filter
10.You can not only check how the filter was invoked, but you can also intercept the process when the filter is applied.
11.The Load Event Assigning a Recordset Object to the Form
12.Code for the Move Previous Button
13.Code for the Move Next Button
14.Code for the Add Button
15.Code for the Find Button