学生信息管理系统问题——更新

问题（更新）：在学生信息管理系统中当我点击修改，更新，出现学号重复然后再点击更新就会出现错误提示框。

 

 

错误原因：

       mrc.Delete   这个代码的意思是删除以前那个表，然后重新输入，更新，但是再点击一边已经删除了，所以就会报错。

解决方法：

关于解决方法我找了很多，尤其是看

“学生信息管理系统之问题汇总”这篇博客，它上面是说加上一个判断，可是不知道为什么我的添加之后没有效果。如图：

 

于是殷伟涛帮我想了办法，就是一次修改对应着一次更新，无法点击第二次就行了。

于是在代码里面一共有四个地方进行修改：

第一个地方：

PrivateSub updateCommand_Click()

       updateCommand.Enabled= False '限制 更新1

               Dim mrcc As ADODB.Recordset

……

第二个地方：

 Call viewData

            Frame1.Enabled = True                          '使导航按钮有效       

           updateCommand.Enabled= False '限制 更新2

               mcclean = True

……

第三个地方：

PrivateSub Form_Load()

       updateCommand.Enabled= False '限制更新3

……

第四个地方：

Private Sub editCommand_Click()

updateCommand.Enabled = True '限制更新4

……

这样就可以继续运行了。