Too Few Paremeters - Error 3061

[LisaB]

When I run the following code I get and error 3061 'Too few parameters.
Expected 1.' The code stops on the line stared below. How can I fix it?

----------------------------------
Public Sub GetSOWNumber(Project As String)

SQLStatement = "SELECT tblSWONumber.* FROM tblSWONumber " _
& "WHERE (((tblSWONumber.Project)=" & Project & "));"

Set TheDB = CurrentDb
Set SourceRS = TheDB.OpenRecordset(SQLStatement, dbOpenDynaset,
dbSeeChanges) '*Error code stops here*

SOWNumber = SourceRS![SOWNum]
With SourceRS
.Edit
!SOWNum = SOWNumber + 1
!NDate = Date
.Update
.Bookmark = .LastModified
End With


SourceRS.Close
End Sub
----------------------------------------------------

 

[Guest]

If your field Project is a string, try:

SQLStatement = "SELECT tblSWONumber.* FROM tblSWONumber " _
& "WHERE (((tblSWONumber.Project)='" & Project & "'));"

Just a single quote (') after the equal (=) sign and another single quote in
'));

 

[LisaB]

Thank You, that worked