Question

Access简单编程

Private Sub 退出系统_Click()
On Error GoTo Err__Click
DoCmd.Quit acQuitSaveNone
Exit_退出系统_Click:
Exit Sub
Err_退出系统_Click:
MsgBox Err.Description
Resume Exit_退出系统_Click
End Sub

运行时，显示‘标签未定义’，并且在第一行变成了黄色，为什么呀，应该怎么修改？
谢谢~

Answer 1

按下代码运行
Private Sub 退出系统_Click()
On Error GoTo Err__Click
DoCmd.Quit acQuitSaveNone
Exit_退出系统_Click:
Exit Sub
Err_退出系统_Click:
MsgBox Err.Description
Resume Exit_退出系统_Click
Err__Click:
End Sub

Answer 2

“退出系统_Click()”你不能把这个中文的写成英文的吗？最基本的编程知识就是变量一类的尽量用英文来编写。