OpenRecordset method

[Kundan]

Function TOWARDS(CRNO As String)
Dim dbsNorthwind As DAO.Database
Dim rstEmployees As DAO.Recordset
Dim strSQL As String
Dim intI As Integer



'On Error GoTo ErrorHandler

Set dbsNorthwind = CurrentDb

' Open a recordset on all records from the Employees table that have
' a Null value in the ReportsTo field.
' strSQL = "SELECT ALLOCATION, AMOUNTs FROM [DEPARTMENT & ALLOCATION] WHERE [CR NO]= & [CRNO]"
Set rstEmployees = dbsNorthwind.OpenRecordset("SELECT [ALLOCATION], [AMOUNTs] FROM [DEPARTMENT & ALLOCATION] WHERE [CR NO]=" & [CRNO])



' Return the Recordset
TOWARDS = "DONE"
End Function

The command
Set rstEmployees = dbsNorthwind.OpenRecordset("SELECT [ALLOCATION], [AMOUNTs] FROM [DEPARTMENT & ALLOCATION] WHERE [CR NO]=" & [CRNO])

is giving Error 3061 :Too few Parameters. Expected1.




WHAT TO DO?

[June7]

Is [CR NO] a number type field?

You have [CR NO] and [CRNO] - one has space a one doesn't. Is this correct?

Advise not to use spaces nor punctuation/special characters (underscore only exception) in naming convention.

[Kundan]

Is [CR NO] a number type field?

You have [CR NO] and [CRNO] - one has space a one doesn't. Is this correct?

Advise not to use spaces nor punctuation/special characters (underscore only exception) in naming convention.

[CR NO] is defined in table [DEPARTMENT & ALLOCATION] as Short Text.

[CRNO] is a String parameter of Function TOWARDS(CRNO as String)

[isladogs]

As CRNO is a text field, you need text delimiters in each place it is used

Where [CR NO]='" & CRNO & "'"

[Kundan]

As CRNO is a text field, you need text delimiters in each place it is used

Where [CR NO]='" & CRNO & "'"

Thanks! It worked. God bless you.