Office中国论坛/Access中国论坛

标题: 跪求高手帮忙 [打印本页]

作者: gaopeng520 时间: 2006-3-10 20:17
标题: 跪求高手帮忙
哪个高手请帮看下怎么改！

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

数量自动生成新用户注册的“用户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 时间: 2006-3-10 20:27
标签没有定义: Err__取消_Click: 与 Err_取消_Click: 是不一样的。

作者: gaopeng520 时间: 2006-3-10 20:49
我爱你！真的太谢谢了！我真粗新！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)