学生信息管理系统

信息管理系统"/>

学生信息管理系统

在学生系统中，比较麻烦“难解决”的也就是3021错误了，在删除数据的时候，删除两条以上的记录时不会出现错误，但在删除最后一条记录时便会发生错误。

利用错误处理语句，（前提：虽然点击删除按钮后出错，但是重新打开时记录已经被删除了）
代码如下：
Private Sub deleteCommand_Click()
On Error GoTo d_Err
myBookmark = mrc.Bookmark '做标记
str2$ = MsgBox(“是否删除当前记录？”, vbOKCancel, “删除当前记录”)

If str2$ = vbOK Then
End If
d_EXIT:
Exit Sub
Unload Me
d_Err:
txtSID.Text = “” ’把各文本框清空(可选)
txtName.Text = “”
MsgBox “记录为空了。”, vbOKOnly + vbExclamation, “警告”

GoTo d_EXIT

End Sub