VBA代码编写完之后运行出现的标签未定义怎么解决

代码是这样写的，出现标签未定义的是Resume Exit_cmdAcc_Click。
Option Compare Database
Private Sub cmdAcc_Click()
'添加记录
On Error GoTo Err_cmdAcc_Click
'DoCcm.GoToRecord,,acFirst
DoCmd.GoToRecord , , acNewRec
cmdMod.Enabled = True
cmdMod.SetFocus
cmdAdd.Enabled = False
Exit_cmdAdd_Clik:
Exit Sub
Err_cmdAdd_Click:
MsgBox Err.Description
Resume Exit_cmdAcc_Clik
End Sub

Priate SubCommand14_Click()
'查看库存报表
DoCmd.OpenReport "库存报表", acViewPreview
End Sub

看你的代码，是不是 Resume Exit_cmdAdd_Clik
不过，这个标签后就是退出函数了，本身resume后也没有代码了，就会退出，
这样写没有实际意义。

在录制的宏源程序里修改程序运行的起始行列就可以。 只要不运行宏程序，你的工作表内容就没问题，就算不小心运行了 ，只要不保存也没事。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息