跪求高手帮忙

gaopeng520

哪个高手请帮看下 怎么改！

问题描述： 当用户打开“用户注册一”窗体时，系统根据“系统用户”数据表中的用户记录

数量自动生成新用户注册的“用户ID”，并把生成的结果显示于“用户注册一”窗体的“用户ID”文本框内，

实现该功能的方法是“用户注册一”窗体的“激活”事件中添加如下带码：





Private Sub Form_Activate()
On Error GoTo Err_取消_Click
Dim i As Integer

Dim STemp As String

Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset

STemp = "select*from 系统用户"

'打开 “系统用户”数据表
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

'根据 “系统用户”数据表中的记录数量来自动生成 “用户ID”'
Select Case Rs.RecordCount

Case 0 To 9
Me![用户ID] = "000" & Rs.RecordCount
Case 10 To 99
Me![用户ID] = "00" & Rs.RecordCount
Case 100 To 999
Me![用户ID] = "0" & Rs.RecordCount
Case 1000 To 9999
Me![用户ID] = Rs.RecordCount
End Select
'释放RS数据集分配的空间'
Set Rs = Nothing

Exit_取消_Click:
Exit Sub
Err__取消_Click:
MsgBox Err.Description
Resume Exit_取消_Click
End Sub



系统提示

On Error GoTo Err_取消_Click
标签没有定义

sgrshh29

标签没有定义:   Err__取消_Click: 与 Err_取消_Click:  是不一样的。

gaopeng520

我爱你！ 真的太谢谢了！ 我真粗新！