请高手帮下忙

gaopeng520

问题描述： 完成用户确定注册信息无误，首先在"是否登录"选项组中选择是否立即登录系统，然后单击“完成”按纽，系统将把该用户的注册信息保存到“系统用户”数据表中，然后根据用户的要求来判断是否打开“用户登录”窗体。

Private Sub 完成_Click()
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, adLockBatchOptimistic
Rs.AddNew
Rs("用户ID") = SUserID
Rs("用户名") = SUserName
Rs("密码") = VarPassword
Rs("密码提示") = PasswordAsk
Rs("密码答案") = PasswordAsw
Rs.Update
Rs.Close
STemp = "select*from 系统权限"
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockBatchOptimistic
For i = 1 To 9
Rs.AddNew
Rs("用户ID") = SUserID
Rs("窗体ID") = i
Rs("权限") = False
Rs.Update
Next i
MsgBox "“您已经注册完成，目前您无权使用本系统中功能，请等待系统管理员审核！”", vbInformation, "注册成功"
If Me![是否登录].Value = 1 Then
DoCmd.Close
DoCmd.OpenForm "用户登录", acNormal, , , , acWindowNormal
End If
Set Rs = Nothing
Exit_完成_Click:
Exit Sub
Err_完成_Click:
MsgBox Err.Description
Resume Exit_完成_Click

End Sub



点击  完成  按纽后  系统 提示：有挂起更改的行数已经超过限制





请问高手 怎么改？

谢谢！

一点通

http://www.office-cn.net/forum.php?mod=viewthread&tid=27751