*** Set up the SQL statement to use as the RowSource for the dependent list box *** Select only the items that have a De_Cat_Key equal to the Item selected in *** the combo box lcRowSource = 'SELECT Det_Desc, Det_Key, UPPER( Details.Det_Desc ) as UpperDesc FROM Details ' lcRowSource = lcRowSource + 'WHERE Details.De_Cat_Key = ( Thisform.cboMaster.Value ) INTO CURSOR csrDetails ' lcRowSource = lcRowSource + 'ORDER BY UpperDesc' *** Now set up the list box's properties WITH This .RowSourceType = 3 .RowSource = lcRowSource *** Don't forget to repopulate the control's internal list .Requery() *** Initialize it to display the first item .ListIndex = 1 ENDWITHYou are probably safer to put this code in the form's init because if your 'master' combo is instantiated after your dependent list, you will get a runtime error.
WITH Thisform .lstDetails.Requery() .lstDetails.ListIndex = 1 ENDWITHMarcia