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
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