Linking Combo Boxes

[rayzgurl]

I have two combo boxes. The first box contains a list of 3 items. I wan
the list of items in the second box to vary depending on what i
selected in the first box. I have them linked and when I select an ite
from the first box, it loads the correct list into the second box
However, when I select a different item from the first list, it load
what is associated with that selection and does not unload what was i
there previouly. I've tried using a clear statement but it is no
working. Below is the code I am using.

Thanks,

Pam


---------------------

Private Sub UserForm_Initialize()
' Fill Credit Category
With CreditForm.CategoryCombo
.RowSource = ""
.AddItem "Customer Satisfaction"
.AddItem "Billing Issues"
.AddItem "Acct/Mobile Setup"
End With
End Sub


Private Sub CategoryCombo_Change()
With CreditForm.CreditDetailCombo
If CategoryCombo.Value = "Customer Satisfaction" Then
.RowSource = ""
.AddItem "Domestic Roaming"
.AddItem "International Roaming"
.AddItem "Airtime Overage"
.AddItem "ReRate past bills after rate plan change"
.AddItem "Directory Assist Calls"
.AddItem "Text Messages"
.AddItem "Multi-Media Messaging"
.AddItem "Monthly Access"
.AddItem "Upgrade Fees"
.AddItem "Activation Fees"
.AddItem "Reconnect Fees"
.AddItem "Late Fees"
.AddItem "Liquidation Damages"

ElseIf CategoryCombo.Value = "Billing Issues" Then
.RowSource = ""
.AddItem "Roaming Towers Not Loaded"
.AddItem "Roaming Feature in CARE not Working"
.AddItem "M2M not Rating Correctly"
.AddItem "Roaming Towers Double Billing"
.AddItem "Feature Showing in CARE but not in Pricing"
.AddItem "Price Plan Changes not Processing in CARE"
.AddItem "Features not Auto Attaching w/Rate Plan Change"
.AddItem "Future Dated Changes not Processing on Bill Cycl
Date"

Else:
.RowSource = ""
.AddItem "Tax Flags not Adjusted Correctly"
.AddItem "Incorrect Rate Plan"
.AddItem "More than 1 Primary Line on Pool Plan"
.AddItem "Incorrect Features Added"
.AddItem "NW Feature Never Added"
.AddItem "M2M Feature Never Added"
.AddItem "Wrong Text Messaging Plan Added"
.AddItem "Customer Mis-Informed About How Plan Works"
.AddItem "Customer Thought Had Feature not Include
w/Plan"
.AddItem "Account not Terminated When Cust Requested"
End If
End With
End Su

 

[Dick Kusleika]

Pam

Me.CreditDetailCombo.Clear

at the start of your CategoryCombo_Change event should work. Is that what
you tried when you said you tried using a clear?

 

[rayzgurl]

I just must have had the clear in the wrong place. it's working now.

Thanks