What is wrong with drop-down box?

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!
 
K

Ken Slovak - [MVP - Outlook]

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?
 
C

cinnamngrl

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.
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()
If someone just pointed me to some no-fail sample code that would be
great!

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.
 
K

Ken Slovak - [MVP - Outlook]

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?
 
K

Ken Slovak - [MVP - Outlook]

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.
 
K

Ken Slovak - [MVP - Outlook]

Did you set the ComboBox.ListIndex property to a valid index value?
 

Ask a Question

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. After that, you can post your question and our members will help you out.

Ask a Question

Top