too few parameters error

[random75]

I have this code which is producing a 'too few parameters Expected 1' error. Thanks for any help!

Dim CurDB As Database
Dim rs As recordset
Dim Resp As Integer

Set CurDB = CurrentDb
Set rs = CurDB.OpenRecordset("SELECT * from BatchMasterTemplateTable WHERE" & _
" ItemProduced =" & Me.ItemProduced)

If rs.RecordCount = 0 Then
    rs.Close
    Set rs = Nothing
    Else
    rs.MoveFirst
    Do Until rs.EOF
        If rs!TemplateDescription = Me.TemplateDescription Then
            Resp = MsgBox("Template Description Already Exists for This Item!", _
            vbOKOnly, vbExclamation, , "Template Description Already Exists!")
            Cancel = True
        End If
    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
End If

 

[Remou]

Is Me.ItemProduced null perhaps?

 

[random75]

I should have mentioned this is Access 2000 and this code is in the BeforeUpdate event of a control.

 

[Remou]

Step through and check the value of Me.ItemProduced.

 

[random75]

No, it is a required field in that table.

 

[Remou]

I don't quite get what you are saying. Which line is returning the error?

The error you mention generally means that a value is missing, which is why I suggested checking the value of Me.ItemProduced, that is the control, not the field.

 

[random75]

I solved the problem. ItemProduced is a string field so I changed the where clause from this...

" ItemProduced =" & Me.ItemProduced)

to this...

" ItemProduced ='" & Me.ItemProduced & "'")