Cascading Combo Box not functioning properly

[Denniso6]

Good afternoon all...,

Using Example 1: 'Multiple Row Source Tables' at link
http://www.fontstuff.com/access/acctut10.htm, I'm attempting to configure a
set of cascading combo boxes (cbo's are named 'Category' and 'SubCategory' in
a form named 'Case Details')

I'm sure you've already figured out that the database itself is based on
'Customer Service' template in Acc2007.

I've added added the 'SubCategory' field to gain a bit more resolution
around the incidents I'm tracking.

The idea here is to select a either 'Hardware', 'Software' or 'Services'
from the 'Category' combo box, and then have that selection determine the
items display in the 'SubCategory' combo box. (For example..., selecting
'Hardware' will cause 'SubCategory' to display 'Computer', 'Printer',
'Handhand', 'Blackberry')

Ok..., enough background. Here's the problem:

When I open the 'Case Details' form and click the 'Category' combo box, only
a series of numbers; 1, 2, 3..., are displayed. Nothing is display in the
'SubCategory' combo box.

Associated table spec's:

tblCategories (fields = 'ID', 'Categories')
tblHardwareSubCats (fields = 'ID', 'HWSubCat')
tblSoftwareSubCats (fields = 'ID', 'SWSubCat')
tblsServicesSubCats (field = 'ID, 'ServicesSubCat'

After Update Event Procedure: (on 'Category' field in 'Case Detail' form)

---------------------------------
Private Sub Category_AfterUpdate()
On Error Resume Next
Select Case Category.Value
Case "Hardware"
SubCategory.RowSource = "tblHardwareSubCats"
Case "Software"
SubCategory.RowSource = "tblSoftwareSubCats"
Case "Login"
SubCategory.RowSource = "tblLoginSubCats"
Case "Services"
SubCategory.RowSource = "tblServicesSubCats"
End Select

End Sub

 

[Linq Adams via AccessMonster.com]

In version 2007, the first question that needs asking , when code doesn’t
execute is, has the folder holding the database been declared a “trustedâ€
location? If not:

To trust your folder, click:
* Office Button (top left)
* Access Options (bottom of dialog)
* Trust Center (left)
* Trust Center Settings (button)
* Trusted Locations (left)
* Add new location (button)

 

[Denniso6]

Thanks for your input Linq.

Unfortunately, this had no effect.

DennisO