伟汶　发表于：2011-10-02 21:41:34 　

求助~把数据库转了SQL2000数据库后出错了

Private Sub cmdOK_Click()
Dim strSQL As String

If Nz(Me.txtUserName) = "" Then
      MsgBox "请输入用户！", vbCritical, ""
      Me.txtUserName.SetFocus
      Exit Sub
End If

If Nz(Me.txtPassword) = "" Then
      MsgBox "请输入密码！", vbCritical, ""
      Me.txtPassword.SetFocus
      Exit Sub
End If

If Len(Me.txtPassword) < 6 Then
      MsgBox "密码不能少于6位！", vbCritical, ""
      Me.txtPassword.SetFocus
      Exit Sub
End If

If Nz(Me.txtConfirmPwd) = "" Then
      MsgBox "请输入确认密码！", vbCritical, ""
      Me.txtConfirmPwd.SetFocus
      Exit Sub
End If

If Me.txtPassword <> Me.txtConfirmPwd Then
      MsgBox "两次输入的密码不符，请重新输入！", vbCritical, ""
      Me.txtPassword = ""
      Me.txtConfirmPwd = ""
      Me.txtPassword.SetFocus
      Exit Sub
End If

If Nz(Me.cboPwdprompt) <> "" And Nz(Me.txtPromptAnswer) = "" Then
      MsgBox "提示答案不能为空！", vbCritical, ""
      Me.txtPromptAnswer.SetFocus
      Exit Sub
End If
'将注册内容保存表用户表
If NewRecord = False Then DoCmd.RunCommand acCmdRecordsGoToNew
Me![FUserName] = Me.txtUserName
Me![FPassword] = RC4(Me.txtPassword) '密码加密后再保存
If Nz(Me.cboPwdprompt) <> "" Then Me![FPwdPrompt] = Me.cboPwdprompt
If Nz(Me.txtPromptAnswer) <> "" Then Me![FPromptAnswer] = (Me.txtPromptAnswer)
DoCmd.Save
'添加注册用户权限信息,所有窗体权限都被设为默认值0(不允许使用)
strSQL = "INSERT INTO usysRights ( FFormID, FUserID ) SELECT FFormID, " & Me![FUserID] & " FROM usysForms"
CurrentDb.Execute strSQL '(在这里提示出错了)


If Err = 0 Then
      MsgBox "注册成功！" & vbCrLf & "目前您无权使用本系统中功能，请等待系统管理员审核！", vbInformation, ""
      If FormIsLoaded("frmEntry") = True Then Forms("frmEntry")!cboUserName.Requery
      DoCmd.Close
End If

End Sub

有老师在吗请看看
谢谢!

Top

dbaseIIIer 发表于：2011-10-03 06:12:10

那你到底出什么错了?

数值类型不符合?

还是没有表名?

usysForms 在默认数据库内吗? 没有, 就要 FROM 数据库名..usysForms

若果 Access 里没有错误原因, 你就在 SQL所附的查询编辑器内执行一下 SQL 语句的内容,

就会看到什么错误的了.

Top

方伟汶发表于：2011-10-03 11:20:14

运行到在这里错误可能是不支持ADP 但我不知道怎么改

CurrentDb.Execute strSQL '(在这里提示出错了)