Run-time error message: Too Few Parameters

[MHamid]

Hello,

I have the following code to delete data on a table using a form, but I am getting a Run-time error '3061': Too few parameters. Expected 1.

I am using this code in another form/table in my database and it works perfectly, but for some reason it is not working for the form/table I want to use now. What am I missing?

Private Sub DeleteUser_Click()
    If MsgBox("Are you sure you want to delete?", vbYesNo) = vbYes Then
        CurrentDb.Execute "DELETE FROM Employees" & _
               " WHERE UserName =" & Me.UserName
    End If

Thank you,
Miriam

 

[xenou]

Be sure the field also has a textbox/control called [UserName]. Otherwise, Me.UserName field will be unknown to Access:

CurrentDb.Execute "DELETE FROM Employees" & _
               " WHERE UserName =" & Me.UserName

For what it's worth, if username is text I would also expect that the username parameter be in single or double quotes (single quotes are easier to use inside an already double-quoted expression).

CurrentDb.Execute "DELETE FROM Employees" & _
               " WHERE UserName = [COLOR="#FF0000"][B]'[/B][/COLOR]" & Me.UserName & "[B][COLOR="#FF0000"]'[/COLOR][/B]"

Clearly, the table itself you are using must also have that field named "UserName" as well.

 

[MHamid]

Hello,

The code worked perfectly.

Thank you,
Miriam