Unable to display values in 2nd list box from 1st list box selection

Discussion in 'Access' started by Mike1213, Jan 22, 2017.

  1. Mike1213

    Mike1213

    Joined:
    Jan 22, 2017
    Messages:
    1
    Likes Received:
    0
    I have two list boxes in a Form:


    List box 1 Name: Select Ingredient
    List box 1 Row Source: SELECT tblIngredients.IngredientID, tblIngredients.Ingredient
    FROM tblIngredients
    ORDER BY tblIngredients.Ingredient;
    List box 1 Bound Column: 1

    List box 2 Name: List Products

    Table 1 Name: tblIngredients
    Table 1 Field Name: IngredientID (AutoNumber)
    Table 1 Field Name: Ingredient (Short Text); Indexed (No Duplicates)
    Table 1 Field Name: IngredientDescription (Short Text)


    Table 2 Name: tblProducts
    Table 2 Field Name: ProductID (AutoNumber)
    Table 2 Field Name: Product (Short Text); indexed (No Duplicates)
    Table 2 Field Name: Product Description(Short Text)


    Table 3 Name: tblProductIngredientJoin
    Table 3 Field Name: ProductIngredientID (Autonumber)
    Table 3 Field Name: ProductID (Number); Indexed (Duplicates OK)
    Table 3 Field Name: IngredientID (Number); Indexed (Duplicates OK)


    Relationship:

    tblIngredients.IngredientID (1 to many with Enforce Referential Integrity) to tblProductIngredientJoin.IngredientID
    tblProducts.Product (1 to many) to tblProductIngredientJoin.ProductID


    I don’t know what I need to code in the 2nd unbound list box where I select an item from listbox 1 (Ingredient) and displays all the matching (Product) results in list box 2.
     
    Mike1213, Jan 22, 2017
    #1
    1. Advertisements

  2. Mike1213

    Ali Gerailly

    Joined:
    Apr 13, 2017
    Messages:
    3
    Likes Received:
    0
    Example

    Make One Table And save To 1 Another Save To 2

    Table 1 Including One Field : Digit

    Digit
    1
    2
    3
    4
    5
    6

    Table 2 Including Two Fields: Digit,Subdigit

    Digit SubDigit
    1 10
    1 100
    1 1000
    2 20
    2 200
    3 30
    3 300
    3 3000
    3 30000

    Use List0 And List2 In Form Or Another Name In Your Option Or Automatically By Access

    Write In Event Click Of First List Box ( List0 ) Following Code


    Private Sub List0_Click()

    h = List0.ItemData(List0.ListIndex)

    strSQL = "select subdigit from 2 where digit like '" & h & "'"

    List2.RowSource = strSQL
    List2.RowSourceType = "table/query"



    End Sub

    I Hope To Give You Proper Reply
     
    Last edited: Apr 14, 2017
    Ali Gerailly, Apr 14, 2017
    #2
    1. Advertisements

  3. Mike1213

    Ali Gerailly

    Joined:
    Apr 13, 2017
    Messages:
    3
    Likes Received:
    0
    This File
     

    Attached Files:

    Ali Gerailly, Apr 14, 2017
    #3
    1. Advertisements

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.
Similar Threads
  1. Sangeeta Noby

    Unable to print Print report

    Sangeeta Noby, Mar 26, 2010, in forum: Access
    Replies:
    0
    Views:
    643
    Sangeeta Noby
    Mar 26, 2010
  2. bbcdancer
    Replies:
    0
    Views:
    526
    bbcdancer
    Jan 12, 2012
  3. PersonFolk

    New Fields Won't Appear On List

    PersonFolk, Jun 12, 2012, in forum: Access
    Replies:
    1
    Views:
    687
    madonaalbert
    Jun 20, 2012
  4. Office10
    Replies:
    0
    Views:
    397
    Office10
    Mar 26, 2014
  5. Zana

    list or combo box

    Zana, Jan 31, 2017, in forum: Access
    Replies:
    0
    Views:
    119
Loading...