通过VBA编写练习程序，结果报自动化错误

shawn_chen_si

本想使用VBA编写录入练习程序，基本思想是：

10min内正确录入15个为及格，否则不及格，超时后程序自动终止，并弹出练习成绩。程序写完之后，录入部分正常，但是关闭成绩弹窗后会报自动化错误。通过“调试”定位错误语句也是没有理解问题所在，仍然一头雾水，希望有大神指点迷津。

山菊花

AfterUpdate、BeforeUpdate事件中不适宜使用Unload语句删除当前窗体，如果当前过程中运行了Unload语句，在运行完“End sub"后就会发生该错误，大概是执行完AfterUpdate过程后它还有后续任务，如跳转到下一控件等，而此时窗体已经不存在了，不能成功完成下一任务，而发生错误。

解决的办法也很简单，在End sub之前，添加一”End"命令结束过程即可。

Private Sub txtWay_AfterUpdate()

If txtID.Text = lbID3.Caption And _
txtName.Text = lbName3.Caption And _
txtAddr.Text = lbAddr3.Caption And _
txtTel.Text = lbTel3.Caption And _
txtDate.Text = lbDate3.Caption And _
txtTime.Text = lbTime3.Caption And _
txtMoney.Text = lbMoney3.Caption And _
txtNum.Text = lbNum3.Caption And _
txtWay.Text = lbWay3.Caption Then
m.num = m.num + 1

End If

If Timer - m.timedelta <= 60 Then
    Unload UserForm1
   
    UserForm1.Show
   
Else
    Unload UserForm1
    If m.num > 15 Then
        MsgBox "在10min内正确录入" & m.num & "道题，合格。"
    Else
        MsgBox "10min内正确录入题目" & m.num & "道，不足15道，不合格，需要继续努力。"
    End If
    End
End If
   
End Sub

shawn_chen_si

山菊花 发表于 2022-11-28 14:18
AfterUpdate、BeforeUpdate事件中不适宜使用Unload语句删除当前窗体，如果当前过程中运行了Unload语句，在 ...

好的，十分感谢您的解惑