Too few parameters error on CurrentDb.OpenRecordset

[hfreedman1957]

Here is my code. The statement in red is throwing the too few parameters error. STO1Name is in the current form where this event code is being launched. STOName is in the table tblSTOs being selected. The four DeploymentResource fields are also in tblSTOs being selected. I added the Me.Dirty statement and the Dim qdf As DAO.QueryDef only because they were in a code snippet I have that works. I'm a somewhat a newbie. Please help. Thanks!

Private Sub STOName1_Exit(Cancel As Integer)
Dim rs As Recordset
Dim qdf As DAO.QueryDef
Dim strSQL As String


If STO1Name <> "" Then
If Me.Dirty Then Me.Dirty = False
strSQL = "SELECT STOName, DeploymentResource1, DeploymentResource2, DeploymentResource3, DeploymentResource4 FROM tblSTOs WHERE STOName = STO1Name;"
Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
If rs!DeploymentResource1 <> "" Then


STO1Res1Name = rs!DeploymentResource1
If rs!DeploymentResource2 <> "" Then
STO1Res2Name = rs!DeploymentResource2
If rs!DeploymentResource3 <> "" Then
STO1Res3Name = rs!DeploymentResource3
If rs!DeploymentResource1 <> "" Then
STO1Res4Name = rs!DeploymentResource4
End If
End If
End If
End If

[aytee111]

It needs to be in quotes:
"... WHERE STOName = '" & Me!STO1Name & "';"

[ssanfu]

You need to concatenate the of the control STO1Name VALUE to the SQL Where clause.

Private Sub STOName1_Exit(Cancel As Integer)
    Dim rs As DAO.Recordset
    Dim strSQL As String
    '    Dim qdf As DAO.QueryDef

    If Me.STO1Name <> "" Then
        If Me.Dirty Then
            Me.Dirty = False
        End If
        
        strSQL = "SELECT STOName, DeploymentResource1, DeploymentResource2, DeploymentResource3, DeploymentResource4"
        strSQL = strSQL & " FROM tblSTOs"
        strSQL = strSQL & " WHERE STOName = '" & Me.STO1Name & "';"
        
        Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
        If rs!DeploymentResource1 <> "" Then
            Me.STO1Res1Name = rs!DeploymentResource1
            If rs!DeploymentResource2 <> "" Then
                Me.STO1Res2Name = rs!DeploymentResource2
                If rs!DeploymentResource3 <> "" Then
                    Me.STO1Res3Name = rs!DeploymentResource3
                    If rs!DeploymentResource1 <> "" Then
                        Me.STO1Res4Name = rs!DeploymentResource4
                    End If
                End If
            End If
        End If
    End If

    rs.Close
    Set rs = Nothing
End Sub

[Micron]

I'm a somewhat a newbie. Please help. Thanks!

Then I'll point out that the first solution should work if the value is numeric and the second if it is text. To mix the methods otherwise would create an error (probably data type mismatch). Also, the error you posted can be caused by trying to run a stored query that requires parameters that are defined in the query, or if trying to run a stored query by passing parameters to it (where either of these methods are being done via code). When you build your own sql on the fly, it's not usually a problem.

[hfreedman1957]

Thanks everyone!!! it worked like a charm. I think the 1st two were similar. I broke up the sql string assignment into 3 parts and used the single quotes as demonstrated. Added a refresh statement as well all is good. Thanks so very much!!! Greatly appreciated!