
406 SOF T WARE ENGINEERING AND TESTING
7. If RST.EOF = True Then ‘ i.e. NO RECORD FOUND
8. MsgBox “This Id does not exist”, vbCritical, “Edit”
9. RST.Close ‘ CLOSE THE RECORDSET BEFORE EXIT
10. Exit Sub
11. End If
‘ASK FOR CONFIRMATION TO DELETE THE RECORD
12. Dim X As Integer ‘MsgBox RETURNS AN INTEGER
13. X = MsgBox(“Are you sure to Delete the record”, vbQuestion +
vbYesNo)
14. If X = 7 Then ‘ i.e. ‘NO’ BUTTON IS CLICKED
15. RST.Close ‘ CLOSE THE RECORDSET BEFORE EXIT
16. Exit Sub
17. Else
18. CONN.Execute “DELETE FROM STUDENT WHERE ID = “ & IDNO & “”
19. MsgBox “Record Deleted”, vbInformation, “Delete”
20. End If
21. RST.Close ...