If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Combo Boxes #2
THREAD IS CONTINUED FROM POST ""Combo Boxes #1"
=============================================== CURRENT COMBO BOXES (SINGLE FORM) ********************************* Here's how the cascading combos work on a SINGLE form (which I need to translate into the mentioned forms and subforms). NOTE: for testing purposes, I do pull the source data from their respective tables I currently store them into a temporary data storage table (tblComboTest). Single Form is called = "ComboTest" =================================== - RecordSource = tblComboTest - contains combos "Division", "SectionCode", "BilletCode" Combo "Division" ================ - Control Source = Division - Row Source Type = Table/Query - Row Source = SELECT tbl_Divisions.Division FROM tbl_Divisions GROUP BY tbl_Divisions.Division ORDER BY tbl_Divisions.Division; - Bound Column = 1 - Limit to List = No - Auto Expand = Yes Event: On Change (below &&&s): &&&&&&&&&&& Private Sub Division_Change() SectionCode.Requery Me.SectionCode = Me.SectionCode.ItemData(0) BilletCode.Requery Me.BilletCode = Me.BilletCode.ItemData(0) End Sub &&&&&&&&&&& Combo "Section" =============== - Control Source = Section - Row Source Type = Table/Query - Row Source = SELECT DISTINCT tbl_Sections.SectionCode FROM tbl_Divisions INNER JOIN tbl_Sections ON tbl_Divisions.DivisionID = tbl_Sections.DivisionIDfk WHERE (((tbl_Divisions.Division)=[Forms]! [ComboTest]![Division])) ORDER BY tbl_Sections.SectionCode; - Bound Column = 1 - Limit to List = No - Auto Expand = Yes Event: On Change (below &&&s): &&&&&&&&&&& Private Sub SectionCode_Change() BilletCode.Requery Me.BilletCode = Me.BilletCode.ItemData(0) End Sub &&&&&&&&&&& Combo "BilletCodes" =================== - Control Source = BilletCode - Row Source Type = Table/Query - Row Source = SELECT tbl_BilletCodes.BilletCode, tbl_Divisions.Division, tbl_Sections.SectionCode FROM (tbl_Divisions INNER JOIN tbl_Sections ON tbl_Divisions.DivisionID = tbl_Sections.DivisionIDfk) INNER JOIN tbl_BilletCodes ON tbl_Sections.SectionID = tbl_BilletCodes.SectionIDfk WHERE (((tbl_Divisions.Division)=[Forms]! [ComboTest]![Division]) AND ((tbl_Sections.SectionCode)=[Forms]![ComboTest]! [SectionCode])) ORDER BY tbl_BilletCodes.BilletCode; - Bound Column = 1 - Limit to List = No - Auto Expand = Yes Again, I apologize for this very lengthy post; however, I believe it may eliminate some questions in the thread (besides it might provide good reference for anyone else who needs to recreate this scenario on a single form). Alright, at this time, my question is straightforward... how do I modify this row sources & On Change event handlers to get the same results using multiple subforms? Thanks so much in advance, Tom |
Thread Tools | |
Display Modes | |
|
|