Trying to do OpenRecordset and Getting a "Too Few Parameters" Error

[sleach]

The error i get is runtime error 3061. "Too few parameters. Expected 2.

here is the code:

Private Sub Form_Load()
 
  Dim dbs As DAO.Database
  Dim TstVal As String
  Dim StrSQL As String
  Dim rsSql As DAO.Recordset
 
  Set dbs = CurrentDb
 
  TstVal = GetUserName()
 
  StrSQL = "SELECT * FROM Table_Employees WHERE TABLE_Empolyees.Emp_PC_User_Name = " & TstVal & "; "
 
 Set rsSql = dbs.OpenRecordset(StrSQL, dbOpenSnapshot)
 
  If Not rsSql.EOF Then
    With rsSql
    Me.QryEmpNam = TABLE_Employees.EMP_Name
    End With
    Set Rs = Nothing
  End If
 
End Sub

The underscored line is the one that Debug breaks on.

Any help would be great.

[isladogs]

First of all you mistyped Table_Employees as TABLE_Empolyees. Fix that
Secondly, assuming User_Name is a text field, then add single quotes as the text delimiter:

StrSQL = "SELECT * FROM Table_Employees WHERE TABLE_Employees.Emp_PC_User_Name = '" & TstVal & "'; "

[NeoPa]

Hi Sleach.

Welcome to Bytes.com.

I see that Colin (isladogs) has already shown you the specific problem with your SQL code.

In future though, you may benefit from a better understanding of how to explore and find bugs in your own SQL. How to Debug SQL String is where you can find out how to do this simply and easily.