ADODB RunTime Error

[psycoperl]

I am getting a Runtime Error '-2147217904 (80040e10)' No value given for one or more required parameters

It is highlighting the line that starts with CK.Open

I dont see where this is coming from and the calls are similar to othere I have writen without errors.

Any Clues?

Private Sub CheckSessionForTests(SessionID As String)
    If Not IsNull(SessionID) Then
        Dim CK As ADODB.Recordset
        Set CK = New ADODB.Recordset
        CK.ActiveConnection = CurrentProject.Connection
        CK.LockType = adLockReadOnly
        CK.CursorType = adOpenDynamic
        CK.Open "Select * from tblTestSessions Where tsTestSessionsID ='" & SessionID & "'"

 

[boblarson]

Have you checked to see if SessionID is getting passed a value correctly?

This will not work:

If Not IsNull(SessionID) Then

because a string variable is NEVER null. It would be

If SessionID <> vbNullString Then

contrary to its name, vbNullString isn't really a null but is an empty string. ( "" )

 

[psycoperl]

SessionID: 130
isNull(SessionID): False
SessionID <> vbNullString: True

Have you checked to see if SessionID is getting passed a value correctly?

This will not work:

If Not IsNull(SessionID) Then

because a string variable is NEVER null. It would be

If SessionID <> vbNullString Then

contrary to its name, vbNullString isn't really a null but is an empty string. ( "" )

 

[boblarson]

So is the field tsTestSessionsID really text and not numeric? It would appear that the value of your string is numeric in nature (but of course is being passed as a string). If the field is not numeric then it would not use the quotes and I would pass it as a long integer instead. If it is really text then I don't see anything wrong with your line of code to open unless the table you are opening is really a query and it has other parameters defined in it.

 

[psycoperl]

The tsTestSessionsID is an "AutoNumber" field in the table

When I call the CheckSessionForTests() I am using the command CheckSessionForTests(tsTestSessionsID) as I am checking if the value in that field on the form is actually stored in the database so that I can pull up supplemental information.

I have tried CK.Open "Select * from tblTestSessions Where tsTestSessionsID =" & SessionID with the same error message.

 

[psycoperl]

Solved this error ... tsTestSessionsID should have been tsTestSessionID.

Thank you for your help

 

[boblarson]

Solved this error ... tsTestSessionsID should have been tsTestSessionID.

Those are some of the toughest errors to spot. Glad you figured it out.