Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.newusers
|
|||
|
|||
Combo Boxes
I have no idea of what i am doing wrong but.. I have 2 comboboxes (combobox1
and ComboBox2) I have this so far: Private Sub ComboBox1_Change() ComboBox1.AddItem "New User" ComboBox1.AddItem "Change User" End Sub Private Sub ComboBox2_Change() ComboBox2.AddItem "Audit/Auditors (External Internal)" ComboBox2.AddItem "Ben Admin/BA Director" ComboBox2.AddItem "Ben Admin/BA Supervisor" ComboBox2.AddItem "Ben Admin/Ben Calc/Death/Enrollment Team" ComboBox2.AddItem "Ben Admin / Disability" ComboBox2.AddItem "Ben Admin / Drop / DRO" ComboBox2.AddItem "Ben Admin/Employer Services" ComboBox2.AddItem "Ben Admin/Health Admin" ComboBox2.AddItem "Ben Admin/Imaging/Records Distrib" ComboBox2.AddItem "Ben Admin/Special Projects" ComboBox2.AddItem "IS/Administration" ComboBox2.AddItem "IS/Business Analyst" ComboBox2.AddItem "IS/Data Analyst" ComboBox2.AddItem "IS/IT Director" ComboBox2.AddItem "Finance Admin / CFO" ComboBox2.AddItem "Finance Admin/Financial Administration" ComboBox2.AddItem "Finance Admin/Financial Reporting" ComboBox2.AddItem "Finance Admin / Payroll" ComboBox2.AddItem "Legal/DRO/Disability" ComboBox2.AddItem "Legal/General" ComboBox2.AddItem "Member Services/Call Center-Reception" ComboBox2.AddItem "Member Services / Counseling" ComboBox2.AddItem "Member Services / Director" End Sub When I try my form by choosing one of the options on any of the two boxes all the entries duplicate automatically... Why is doing this? Can someone help me please.. |
#2
Posted to microsoft.public.word.newusers
|
|||
|
|||
Combo Boxes
There is a group called microsoft.public.word.vba.userforms that might
be a more appropriate place to post this. I think your issue might be that you set all the options using the change event (ie every time you make a selection and change the value it will trigger the event and rebuild the list). It might be better to have a macro that draws a form (with userform1.Show) after defining the two combo boxes. On Dec 30, 1:58*pm, bgomezesthela wrote: I have no idea of what i am doing wrong but.. I have 2 comboboxes (combobox1 and ComboBox2) I have this so far: Private Sub ComboBox1_Change() ComboBox1.AddItem "New User" ComboBox1.AddItem "Change User" End Sub Private Sub ComboBox2_Change() ComboBox2.AddItem "Audit/Auditors (External Internal)" ComboBox2.AddItem "Ben Admin/BA Director" ComboBox2.AddItem "Ben Admin/BA Supervisor" ComboBox2.AddItem "Ben Admin/Ben Calc/Death/Enrollment Team" ComboBox2.AddItem "Ben Admin / Disability" ComboBox2.AddItem "Ben Admin / Drop / DRO" ComboBox2.AddItem "Ben Admin/Employer Services" ComboBox2.AddItem "Ben Admin/Health Admin" ComboBox2.AddItem "Ben Admin/Imaging/Records Distrib" ComboBox2.AddItem "Ben Admin/Special Projects" ComboBox2.AddItem "IS/Administration" ComboBox2.AddItem "IS/Business Analyst" ComboBox2.AddItem "IS/Data Analyst" ComboBox2.AddItem "IS/IT Director" ComboBox2.AddItem "Finance Admin / CFO" ComboBox2.AddItem "Finance Admin/Financial Administration" ComboBox2.AddItem "Finance Admin/Financial Reporting" ComboBox2.AddItem "Finance Admin / Payroll" ComboBox2.AddItem "Legal/DRO/Disability" ComboBox2.AddItem "Legal/General" ComboBox2.AddItem "Member Services/Call Center-Reception" ComboBox2.AddItem "Member Services / Counseling" ComboBox2.AddItem "Member Services / Director" End Sub When I try my form by choosing one of the options on any of the two boxes all the entries duplicate automatically... Why is doing this? Can someone help me please.. |
#3
Posted to microsoft.public.word.newusers
|
|||
|
|||
Combo Boxes
Hi bgo:
When you work with UserForms, you sent up the .AddItem method when the UserForm is initiated. When you click on any blank area of a UserForm you end up with the Initialize Event: '------------------------------------------------ Private Sub UserForm_Initialize() On Error Resume Next With ComboBox2 .AddItem "Audit/Auditors (External Internal)" .AddItem "Ben Admin/BA Director" .AddItem "Ben Admin/BA Supervisor" .AddItem "Ben Admin/Ben Calc/Death/Enrollment Team" .AddItem "Ben Admin / Disability" .AddItem "Ben Admin / Drop / DRO" .AddItem "Ben Admin/Employer Services" .AddItem "Ben Admin/Health Admin" .AddItem "Ben Admin/Imaging/Records Distrib" .AddItem "Ben Admin/Special Projects" .AddItem "IS/Administration" .AddItem "IS/Business Analyst" .AddItem "IS/Data Analyst" .AddItem "IS/IT Director" .AddItem "Finance Admin / CFO" .AddItem "Finance Admin/Financial Administration" .AddItem "Finance Admin/Financial Reporting" .AddItem "Finance Admin / Payroll" .AddItem "Legal/DRO/Disability" .AddItem "Legal/General" .AddItem "Member Services/Call Center-Reception" .AddItem "Member Services / Counseling" .AddItem "Member Services / Director" End With etc etc etc End Sub '------------------------------------------------ I rarely use the Change Event, because if you place code like: '------------------------------------------------ Private Sub ComboBox1_Change() [TextBox1] = ComboBox1.Value End Sub '------------------------------------------------ The textbox will now refresh until the end user clicks on the form, which is annoying. Instead, use the Click Event: '------------------------------------------------ Private Sub ComboBox1_Click() [TextBox1] = ComboBox1.Value End Sub '------------------------------------------------ To get around this problem... Regards, Al Now "bgomezesthela" wrote: I have no idea of what i am doing wrong but.. I have 2 comboboxes (combobox1 and ComboBox2) I have this so far: Private Sub ComboBox1_Change() ComboBox1.AddItem "New User" ComboBox1.AddItem "Change User" End Sub Private Sub ComboBox2_Change() ComboBox2.AddItem "Audit/Auditors (External Internal)" ComboBox2.AddItem "Ben Admin/BA Director" ComboBox2.AddItem "Ben Admin/BA Supervisor" ComboBox2.AddItem "Ben Admin/Ben Calc/Death/Enrollment Team" ComboBox2.AddItem "Ben Admin / Disability" ComboBox2.AddItem "Ben Admin / Drop / DRO" ComboBox2.AddItem "Ben Admin/Employer Services" ComboBox2.AddItem "Ben Admin/Health Admin" ComboBox2.AddItem "Ben Admin/Imaging/Records Distrib" ComboBox2.AddItem "Ben Admin/Special Projects" ComboBox2.AddItem "IS/Administration" ComboBox2.AddItem "IS/Business Analyst" ComboBox2.AddItem "IS/Data Analyst" ComboBox2.AddItem "IS/IT Director" ComboBox2.AddItem "Finance Admin / CFO" ComboBox2.AddItem "Finance Admin/Financial Administration" ComboBox2.AddItem "Finance Admin/Financial Reporting" ComboBox2.AddItem "Finance Admin / Payroll" ComboBox2.AddItem "Legal/DRO/Disability" ComboBox2.AddItem "Legal/General" ComboBox2.AddItem "Member Services/Call Center-Reception" ComboBox2.AddItem "Member Services / Counseling" ComboBox2.AddItem "Member Services / Director" End Sub When I try my form by choosing one of the options on any of the two boxes all the entries duplicate automatically... Why is doing this? Can someone help me please.. |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Combo boxes | Microsoft Word Help | |||
Is it possible to expand size of combo boxes? | Microsoft Word Help | |||
User Forms and Combo boxes in Work | Microsoft Word Help | |||
Multiple combo boxes in Word | Microsoft Word Help | |||
combo boxes | Microsoft Word Help |