Cascading Combo boxes Problem

[aamer]

i have created 2 combo boxes based on the following videos

http://www.datapigtechnologies.com/f...combobox1.html
http://www.datapigtechnologies.com/f...combobox2.html

but they are not solving the problem

i have a main form and a sub form (Admin Purchase) and a subform (Admin Purchase subform)

these combo boxes are placed on Admin Purchase subform

code as follows:

SELECT Items.[Item Description]
FROM Items
WHERE (((Items.[Purchased From Company])=[forms]![Admin Purchase Subform].[cbocomp]))
GROUP BY Items.[Item Description]

In after update code:

Private Sub Description_AfterUpdate()
Me.Requery


End Sub


I am having following problems:
1. when i try to run it from (Admin Purchase) which is the Main form, it gives error.
2. If I run it from (Admin Purchase subform) it works only one time If i change the value in cbocomp nothing changes.

pls help me fix this problem.

[orange]

Try this one

http://www.baldyweb.com/CascadingCombo.htm

[aamer]

Hi Orange

I have tried everything possible, even went through the web link provided by you again and again. But I could not fix the problem.

when I use the cascade combo boxes on subform they work fine. But when used on the mainform they are giving error.

can you please take a look at the sample I have attached and guide me what mistake am I doing.

Problematic combo boxes are in Red Color in the sample DB.

Unfortunately there is some problem on this website that I cannot upload the Sample DB therefore am uploading it to a different site. please dowload it from
http://rapidshare.com/files/455589566/Sample_DB.zip

thank you

regards
aamer

[RuralGuy]

See if this link helps: http://www.mvps.org/access/forms/frm0031.htm
The syntax is different when referencing SubForms than referencing Forms.

[aamer]

I could not figureout which property to use from this link.

[RuralGuy]

If you are referencing a control on a SubForm then this is the syntax:
FORMS.SubFormControlName.FORM.ControlName
...using your values of course.

[aamer]

this is exactly what I have done but some how its not working, I dont know where i am doing a mistake. If you had seen the sample I have made then you would have not said this.
If you can kindly have a look at the sample link:
http://rapidshare.com/files/455589566/Sample_DB.zip
and point me in the right direction.

Thax for your help

PS: unfortunately the uploading on www.accessforums.net is not working, thats why I have placed the file on rapidshare.

[RuralGuy]

This is *not* what you did in post #1.

[aamer]

yes you are right.
I changed it according to orange's link http://www.baldyweb.com/CascadingCombo.htm

[RuralGuy]

I did not spell it out correctly in my Post #6. It overlooked the MainForm in the syntax. It should have been:
FORMS.MainFormName.SubFormControlName.FORM.ControlName
In your case the SubFormControl in not named the same as the SubForm it displays (which is a good thing BTW). The actual line for your control so it works in the SubForm is:
SELECT [Item Description] FROM Items WHERE (((PurchasedFrmCompany)=Forms.[Admin Purchase].[Company Subform].FORM.cbopurfrm)) ORDER BY [Item Description];

[RuralGuy]

Here's the modified file. The upload is now working.

[aamer]

thank you. I now understand the mistake I was doing.
1 Question. is there a specific reason that you placed a text box on main form with the value
=[Company Subform].Form!cbopurfrm

can u eleborate please.

Thank you so much for your guidence.

Regards
aamer

[RuralGuy]

Just zeroing in on the proper syntax. I forgot I put it there. If you are satisfied with the solution, go ahead and use the Thread Tools and mark this thread as Solved.