信息管理系统"/>
学生信息管理系统
在学生系统中,比较麻烦“难解决”的也就是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
更多推荐
学生信息管理系统
发布评论