...error occurs because a macro or event name is expected to run when the event occurs

[ExcelChampion]

I cannot figure out the solution to this error:

This error occurs when an event has failed to run because the location of the logic for the event cannot be evaluated. For example, if the OnOpen property of a form is set to =[Field], this error occurs because a macro or event name is expected to run when the event occurs.

Option Compare Database

Private Sub Text2_AfterUpdate()
   
    If (Text2 & vbNullString) = vbNullString Then Exit Sub

    Text2 = UCase(Replace(Replace(Replace(Replace(Replace(Text2, "-", ""), " ", ""), ".", ""), "(", ""), ")", ""))

    Me.Controls("qry_1804_Main_Item_Detail subform").Form.FilterOn = True
    Me.Controls("qry_1804_Main_Item_Detail subform").Form.Filter = "ID = Text2"

    Me.Controls("qry_1804_Main_Manuf_Detail subform").Form.FilterOn = True
    Me.Controls("qry_1804_Main_Manuf_Detail subform").Form.Filter = "ID = Text2"
    
End Sub

Using Access 2010. This code worked in earlier versions (with a Dim and Ref to DAO.) But, now, I have no idea what Refs I should have, if any. I have the default ones plus added the Access database engine. I have no clue what to do and can't find an answer.

Man, I can't stand this version of Office....nothing wants to work anynmore that's worked forever...

Thanks for the help.

Todd

 

[ranman256]

I too hate EVERYTHING about the new Access. Over a dozen things I use in the old one, are gone. Hate it.

NOW...
your filter is off due to the code unable to resolve TEXT2. You have it 'hardcoded' in the filter so it wont get the contents of Text2. Text2 must be outside the quotes.
Me.Controls("qry_1804_Main_Manuf_Detail subform").Form.Filter = "ID = " & Text2