Hello All,
I am currently getting a run-time error stating "too few parameters. Expected 1" when I run my NewUserForm. It happens when I click Add New User button. It is happening at my INSERT and SELECT statement. Here is the code if you all could look at it. If you need more please let me know.
Thank you
Code:
Private Sub cmdAdd_Click()
strUserName = Me.txtUserName
strLastName = Me.txtLast
strFirstName = Me.txtFirst
blnChangePWD = IIf(Me.cboChangePWD = "Yes", -1, 0)
intUserType_ID = Nz(Me.cboUserRole, 1)
dtePwdDate = Date
'add new user
If dtePwdDate <> 0 Then
CurrentDb.Execute "INSERT INTO tblUserPass ( UserName, LastName, FirstName, Active, PWD, ChangePWD, UserType_ID, PWDDate)" & _
" SELECT '" & strUserName & "' AS UserName, True AS Active, '" & SetDefaultPwd() & "' AS PWD," & _
" " & strFirstName & " AS FirstName," & strLastName & " AS LastName," & blnChangePWD & " AS ChangePWD, " & _
" " & intUserType_ID & " AS UserType_ID, " & dtePwdDate & " AS PWDDate;"
Else 'omit PWDDate
CurrentDb.Execute "INSERT INTO tblUserPass ( UserName, LastName, FirstName, Active, PWD, ChangePWD, UserType_ID)" & _
" SELECT '" & strUserName & "' AS UserName, True AS Active, '" & SetDefaultPwd() & "' AS PWD," & strLastName & " AS LastName," & strFirstName & " AS FirstName," & SetDefaultPwd() & "' AS PWD," & _
" " & blnChangePWD & " AS ChangePWD, " & intUserType_ID & " AS UserTypeID;"
End If
Me.lblInfo.Caption = "New user " & Me.txtUserName & " has been successfully added" & vbCrLf & _
"A default password 'Not set' has been added" & vbCrLf & _
Me.txtUserName & " will be required to enter a new password at first login"
End Sub