Error 2115 when setting form recordset bookmark

I have a form (frmProjectList) which displays a list of projects in a continuous form. In the Header section of the form, I have a combo box (cboProject), which lists the project numbers. The intent is that the user selects the project number from the combo box list, and the form is set to the corresponding row. The user may then display a Project Detail screen (frmProject) by double-clicking the txtProjectNumber field in the row. I have the ‘find’ code in the cboProject_AfterUpdate procedure. My problem is that I am getting an Error 2115 (The macro or function set to the BeforeUpdate or ValidationRule property for this field is preventing Microsoft Access from saving the data in the field) when I attempt to set my form recordset bookmark. I have included the code and some of the form/control specs below.
There are no validations defined for any of these fields in the code or in the table definition. This form does not use any macros. The only bound field that has an event is the txtProjectNumber field which opens a Project Detail (“frmProject”) form when it is double-clicked.
I have reviewed the questions on the forum addressing the 2115 error, but none appear germane to my problem (I could be mistaken). I would welcome any suggestions as to why this is happening

*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~

Form: frmProjectList
Default View: Continuous Forms
Modal: Yes
Pop-up: No
Record Source: "SELECT IncentiveYear, ProjectNumber, Customer, ProjectDescription, FROM tblProjects ORDER BY IncentiveYear, ProjectNumber"

*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*

Control: cboProject
Column Count: 1
Bound Column: 1
Row Source Type: Table/Query
Row Source: "SELECT ProjectNumber FROM tblProjects ORDER BY ProjectNumber"
Event (After Update): [Event Procedure]
Enabled: Yes
Locked: No

*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*

Control: txtProject
Control Source: ProjectNumber
Event (On Double Click): [Event Procedure]
Enabled: Yes
Locked: No

*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*

Private Sub cboProjects_AfterUpdate()
Dim strSQL As String
On Error GoTo HandleError

strSQL = "ProjectNumber = '" & Me![cboProjects] & "'"
With Me.RecordsetClone
   .FindFirst strSQL
   If Not .NoMatch Then
      Me.Bookmark = Me.RecordsetClone.Bookmark  ‘Error 2115 on this line
   End If
End With

ExitSub:
Exit Sub

HandleError:
MsgBox "Error: " & Err.Description & _
                " (" & Err.Number & ")"
Resume ExitSub
End Sub

LVL 7
shambaladAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

stevbeCommented:
Me.Recordset.Bookmark

if you are selecting from a list of values you know exist them there is really no need to use .Bookmark anyway ...


   Me.Recordset.FindFirst "ProjectNumber = '" & Me![cboProjects] & "'"

ProjectNummber is stored as Text ?

if not drop the ' delimiters ...


Me.Recordset.FindFirst "ProjectNumber=" & Me![cboProjects]

Steve

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
stevbeCommented:
you can also get 2115 if you refer to a field that does not exist (usually a typo). ProjectNumber does exist as a field in the query your form is bound to correct?

Steve
shambaladAuthor Commented:
Thanks stevebe - code is working now.
Shambalad


Private Sub cboProjects_AfterUpdate()
Dim strSQL As String
On Error GoTo HandleError

strSQL = "ProjectNumber = '" & Me![cboProjects] & "'"
Me.Recordset.FindFirst strSQL

ExitSub:
Exit Sub

HandleError:
MsgBox "Error: " & Err.Description & _
                " (" & Err.Number & ")"
Resume ExitSub
End Sub
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.