Office XP update broke app

M

Mick Ruthven

This morning I ran multiple Microsoft updates to Office XP. I just now tried
to run an Access 2000 app that's been running for years and got an error.
The error is "Object library feature not supported". The code is in the Got
Focus event of a Combo Box on a form. The code is pasted below. The [Form]
in Case 1 is highlighted.
-----------------------------------------
Private Sub Select_Combo_GotFocus()

gloFindRec = False

If gloLastAction = "PEOPLE TYPE OPTION GROUP" Then
' Set up new query for combo box
Select Case [Select Type Option Group]
Case 1 ' People - Last Name
dummy = SetForLastName([Form])
Case 2 ' People - First Name
dummy = SetForFirstName([Form])
Case 3 ' Company
dummy = SetForCompany([Form])
End Select
End If

End Sub
 
Top