What is wrong with drop-down box?

  • Thread starter Thread starter cinnamngrl
  • Start date Start date
C

cinnamngrl

I have been trying to create a userform with a simple dropdown combo
box. I have tried to follow the examples I have found and I just
plain pasted the example for combobox2 from the help file.

Below is the code for userform dropkids with two combo boxs and
matching command buttons.


Sub CommandButton1_Click()
ComboBox1.DropDown
End Sub

Sub Item_Open()

Set olApp = New Outlook.Application
Set olns = olApp.GetNamespace("MAPI")
Set contactsFolder = olns.GetDefaultFolder(olFolderContacts)
Set allcontactitems = contactsFolder.Items
Set kids = allcontactitems.Restrict("[Categories]= ""caseload""")
kids.Sort "[LastName]"
Debug.Print kids.Count
For Each itm In kids
Debug.Print itm
ComboBox1.AddItem itm.FileAs
Next
End Sub

Sub CommandButton2_Click()
ComboBox2.DropDown
End Sub

Sub Item_OpenA()

ComboBox2.AddItem "Turkey"
ComboBox2.AddItem "Chicken"
ComboBox2.AddItem "Duck"
ComboBox2.AddItem "Goose"
ComboBox2.AddItem "Grouse"
End Sub

Private Sub UserForm_Click()

End Sub


If someone just pointed me to some no-fail sample code that would be
great!
 
Provide more information.

Where is this code running, is it in the Outlook VBA project? If so don't
use New Outlook.Application, use the intrinsic Application object.

What's not working? What fails, what gets put into the drop-down. What
problem are you seeing?
 
Provide more information.

Where is this code running, is it in the Outlook VBA project? If so don't
use New Outlook.Application, use the intrinsic Application object.

What's not working? What fails, what gets put into the drop-down. What
problem are you seeing?




I have been trying to create a userform with a simple dropdown combo
box. I have tried to follow the examples I have found and I just
plain pasted the example for combobox2 from the help file.
Click to expand...
Below is the code for userform dropkids with two combo boxs and
matching command buttons.
Click to expand...
Sub CommandButton1_Click()
ComboBox1.DropDown
End Sub
Click to expand...
Sub Item_Open()
Click to expand...
Set olApp = New Outlook.Application
Set olns = olApp.GetNamespace("MAPI")
Set contactsFolder = olns.GetDefaultFolder(olFolderContacts)
Set allcontactitems = contactsFolder.Items
Set kids = allcontactitems.Restrict("[Categories]= ""caseload""")
kids.Sort "[LastName]"
Debug.Print kids.Count
For Each itm In kids
Debug.Print itm
ComboBox1.AddItem itm.FileAs
Next
End Sub
Click to expand...
Sub CommandButton2_Click()
ComboBox2.DropDown
End Sub
Click to expand...
Sub Item_OpenA()
Click to expand...
ComboBox2.AddItem "Turkey"
ComboBox2.AddItem "Chicken"
ComboBox2.AddItem "Duck"
ComboBox2.AddItem "Goose"
ComboBox2.AddItem "Grouse"
End Sub
Click to expand...
Private Sub UserForm_Click()
Click to expand...
End Sub
Click to expand...
If someone just pointed me to some no-fail sample code that would be
great!
Click to expand...
Click to expand...

The problem is that I don't know what the intrinsic Application object
would be. I am trying to put this on a userform. All of the examples
in help seem to apply to Page 2 of existing outlook forms
(contactforms?). You can see I don't know much about what i'm
doing.

I am trying to create simple userforms to enter data about certain
contacts. For my two other user forms it is two step process where I
type in the last name and it presents a balloon with up to five
possible contacts. I can show you that code if you want . As you can
imagine it is cumbersome to write and ends up being a two step process
to enter data. I somewhat understand that correct object, but I only
have the help file to learn from.
 
Again, where is this code running? If it's in the Outlook VBA project
Application is always the Outlook.Application object.

Also again, what's not working? What fails, what gets put into the
drop-down. What problem are you seeing?
 
Do you get the messages about the count and about each item in the Immediate
window? Assuming the code is actually running it doesn't look bad. You do
use AddItem to add each item to the list as you are doing. However, if you
don't click on the arrow in the drop-down you won't see the list that's been
created, even with the DropDown() method call. If you want to show an item
from the list as you start use the ComboBox.ListIndex property and set it to
an integer value based on your list.
 
Did you set the ComboBox.ListIndex property to a valid index value?
 
Back
Top