Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

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