Cascading Combo boxes in a subform in datasheet view

[cliffschooling]

I've used Access for some time but nver had to use any code. Ive a problem getting combo boxes to cascade in a sub form, I've done some searches and the problem appears to be in the identifaction of the relevant elements. I've been mucking around with a sample database and it has the following code in an event procedure
the main form is Form1
the subform is Bound Combo form

Private Sub Category_AfterUpdate()
Product = Null
Product.Requery 
Product = Forms![Form1].[Bound Combo Form].Form.Product.ItemData(0)
End Sub
 
Private Sub Form_Current()
Forms![Form1].[Bound Combo Form].Form.Product.Requery
End Sub
 
Private Sub Form_Load()
If IsNull(Category) Then
  Category = Forms![Form1].[Bound Combo Form].Form!ItemData(0)
  Call Category_AfterUpdate
End If
End Sub

Cheers
Cliff

[NeoPa]

Have a look through Cascaded Form Filtering. It should help.

[cliffschooling]

Had a look at this but it'snot quite what I need.
Ineteresting non the less.
Thanks
Cliff

[NeoPa]

If you're working in Datasheet view, then there are elements of the form which won't work. Controls are disabled in many ways, and just the underlying fields are used in a basic way.

[cliffschooling]

I rehashed it and changed the form to Continuous forms and managed to get the 2nd combo box working OK but cant figure out the 3rd level. This code is in the After Update event procedure in the 1st combo box DTCode

Option Compare Database
 
Private Sub DTCode_AfterUpdate()
DTCodeSub = Null
DTCodeSub.Requery  'Forms![MainForm].[SubForm].Form.Requery
DTCodeSub = Forms![Ftimesheet].[FDT].Form.DTCodeSub.ItemData(0)
End Sub
 
Private Sub Form_Current()
Forms![Ftimesheet].[FDT].Form.DTCodeSub.Requery
End Sub
 
Private Sub Form_Load()
If IsNull(DTCode) Then
  DTCode = Forms![Ftimesheet].[FDT].Form.ItemData(0) 'Form! changed to Form.
  Call DTCode_AfterUpdate
End If
End Sub

[NeoPa]

Please check out [code] Tags Must be Used.

Certainly Continuous Forms makes more sense to my way of thinking. You should understand though, that posting code is not a substitute for explaining your situation clearly. The code refers to various items that we have no clues about, so it's pretty tough trying to interpret what it is you're trying to ask (read: should be asking).

[cliffschooling]

Hi again
Sorry about that I havent had any experience of using VB so am kinda at sea here. All the work I've done in the past has been with queries etc.
What I'm trying to do is analyse the downtime on complex machinery, to this end I'm creating a from with 3 combo boxes linked to 3 tables
TDTCodeMain with fields IDmain incrementing and DTmain
TDTCodeSub with fields IDSub incrementing, IDmain and DTSub
TDTCodeSubSub with fields IDSubSub incrementing, IDSub and DTSubSub
I'm able to get the 2nd combo box to work ok, but the 3rd one is proving to be a we bit o a nuisance. I've tried applying the same code and SQL statements in the Row Source(with the names revised) to Combo boxes 2 & 3 but just get error messages galore, I'm abviously missing the trick here.
Thanks

[NeoPa]

I don't seem to be getting my point across very clearly. Let me try again.

To be able to help you, we need a question explained clearly (preferably in the first post, but otherwise at least all in one post). Dropping clues of one form or another into posts now and again, with no common thread of explanation, doesn't make something we can help you with. I know that's quite hard for a lot of people (from observation if nothing else), but imagine yourself on the other side trying to make sense of a situation with such sparse information and explanation.

If you are having problems with any code, and you already have the pre-requisite of an explanation that puts the code into perspective, then you must follow the guidelines in Before Posting (VBA or SQL) Code. Trust me. This will save you time in the long run ;-)

My problem at this stage is that I have very unclear ideas as to the context your question even fits within. Answering detailed questions about such a situation puts me at an enormous disadvantage - hence my inability to help.