M
Mailmanny
I am Building a Pricing database for my Furniture Manufactiring Company. I
need to Categorise each peice of furniture so it is easy to find later. I am
using 4 Grouping levels and want to use Cascading Combos to set and later
find the products.
Here's my problem:
When I select the first grouping level [Style] it works great. Is does it's
job and updates the [Group] combo box. but then I run into trouble. When I
try to select an item from the list of the second combo box it gives me a
error: "Run-time error '438': Object dosn't support this property or method"
If i click Debug it highlights my requery line in the code.
I tried to use the dirty = false to save the change but that did not help,
or i put it in the wrong place.
Tables:
1. Styles
[StyleID]
[StyleName]
2. Groups
[GroupID]
[GroupName]
[StyleID]
3. Categories
[CategoryID]
[CategoryName]
[GorupID]
4. SubCategories
[SubCategoryID]
[SubCategoryName]
[CategoryID]
Code:
Private Sub Catagory_Id_AfterUpdate()
Me![SubCategory ID] = Null
Me![SubCategory ID].Requery
End Sub
Private Sub Group_ID_AfterUpdate()
Me![Category Id] = Null
Me![Category Id].Requery
End Sub
Private Sub Style_ID_AfterUpdate()
Me![Group ID] = Null
Me![Group ID].Requery
need to Categorise each peice of furniture so it is easy to find later. I am
using 4 Grouping levels and want to use Cascading Combos to set and later
find the products.
Here's my problem:
When I select the first grouping level [Style] it works great. Is does it's
job and updates the [Group] combo box. but then I run into trouble. When I
try to select an item from the list of the second combo box it gives me a
error: "Run-time error '438': Object dosn't support this property or method"
If i click Debug it highlights my requery line in the code.
I tried to use the dirty = false to save the change but that did not help,
or i put it in the wrong place.
Tables:
1. Styles
[StyleID]
[StyleName]
2. Groups
[GroupID]
[GroupName]
[StyleID]
3. Categories
[CategoryID]
[CategoryName]
[GorupID]
4. SubCategories
[SubCategoryID]
[SubCategoryName]
[CategoryID]
Code:
Private Sub Catagory_Id_AfterUpdate()
Me![SubCategory ID] = Null
Me![SubCategory ID].Requery
End Sub
Private Sub Group_ID_AfterUpdate()
Me![Category Id] = Null
Me![Category Id].Requery
End Sub
Private Sub Style_ID_AfterUpdate()
Me![Group ID] = Null
Me![Group ID].Requery