Check out the Report Listbox videos.

Richard use a list box but I'm sure you could adapt it to a Combo Box

If it were me, I'd set up a table listing all the options and use a relational combo. Put a button next to with some VBA on the button.
Something like

If COMBOBOXNAME = '' Then
      Msgbox ('Select an option')
             ElseIf COMBOBOXNAME=1 Then
                        DoCmd.OpenForm (Or report or whatever) ~~~~~~

This is my first time typing code off the top of my head so if it doesn't work exactly, I'm sure one of the more experienced veterans will correct me'. But with the code in the button, you select the report you want and then run

It's deleting my double quotes.

At If COMBOBOXNAME = (Use double double quotes to indicate null!)

"" is not the same as null ;P.

But yea I've seen it be stubborn with how it wanted that worded, so if it is, I usually just do

If Combo="" or IsNull(Combo) or Combo=0 Then

You might already know this Dan, but LINK just incase :), it's one of those interesting things about databases

I'm playing with this now. I got the listbox that Scott referred me to working. I'm now going to the combobox that is recommended by Dan and Adam. Thanks everyone. I love programming, but yesterday was getting discouraged. I really appreciate the help y'all give. Y'all are a blessing to me!

Sandra -

I just tried in the sample db and it worked fine - though I didn't test extensively
Work with a copy of your db and see if it does what you want.
If you want to have a combo box instead of your list box just change it.  The List Box is basically an always open Combo Box.
So from design mode - Right click the List Box and choose Change To... > Combo Box.

Yay!  I have it changed to a combo box, with 3 buttons under it. I started each item in the table with F for Form, Q for Query, and R for Report. Each button under the combo box has the same corresponding letter with the appropriate codes so now I select an item in the combo box, and click the corresponding button and Wa La, it opens!  Thanks to all of y'all!

Its those moments that make it all worth while. And! The more hair torn out, the sweeter the spoils!

Okay, I need someone smarter than me to figure this one out. Instead of having multiple buttons, I want to set them all up to run off of one button. I have tried this code (along with LOTS of others) but It's not working. Can someone please help? The name of my combobox is ReportList.  The Items in the list that start with FF I are forms I want to open in normal view.

    If Me.ReportList = "FF*" Then
         DoCmd.OpenForm ReportList, acNormal
     ElseIf Me.ReportList = "Q*" Then
          DoCmd.OpenQuery ReportList
    Else Me.ReqportList = "R*" Then
              DoCmd.OpenReport ReportList, acViewPreview
    End If

Your form query and report are all called ReportList? Not ReportListF ReportListQ ReportListR?

When you go to the properties of your combo box, Format, how many are in column count? If it has an invisible ID for the bound column, you will need to do
If ReportList.Column(1) = "FF" etc

Also I believe you need to quotation all those docmds

OpenForm "ReportList"
OpenQuery "ReportList"
OpenReport "ReportList"

Adam Schwanz, you are a genius!  Adding the Column(1) after ReportList made it work!  I tried the quotes around ReportList, but it gave me an error, but once I removed them it worked perfect!  Thank you, thank you, thank you!!!

Strange, it makes me do them every time, doesn't work without them. But if it works, it works ;)

Glad you got it figured out.

My porch light just came on and I took it one step further and put the codes in the "After Update" on the combobox and now I don't even have to waste time clicking the button! :)  Thanks again Adam Schwanz.

Need guidance again. :(  Instead of having to put this code on EVERY form with my combobox, can I put it somewhere, and reference it from ALL forms with just a single line of code?

Yes. You can put the code in a Global Module.

Public Sub OpenObject (FormName As String)

    If Forms(FormName)!ReportList = "FF*" Then
         DoCmd.OpenForm "ReportList", acNormal
     ElseIf Forms(FormName)!ReportList = "Q*" Then
          DoCmd.OpenQuery "ReportList"
    Else Forms(FormName)!ReqportList = "R*" Then
              DoCmd.OpenReport "ReportList", acViewPreview
    End If

End Sub

Then you can call this sub routine where you need it sending the name of the current form. For example:

OpenObject "CustomerF"

Thanks Kevin Robertson, but I'm getting an error. The forms are listed in a combobox, so I tried changing the original code to this, but it gives me an error. Any suggestions?

Public Sub OpenObject(FormName As String)
    If Forms(FormName)!ReportList.Column(1) = "FF" Then
        DoCmd.OpenForm "ReportList", acNormal
    ElseIf Forms(FormName)!ReportList.Column(1) = "Q" Then
        DoCmd.OpenQuery "ReportList"
    ElseIf Forms(FormName)!ReportList.Column(1) = "R" Then
        DoCmd.OpenReport "ReportList", acViewPreview
    ElseIf Forms(FormName)!ReportList.Column(1) = "QDV" Then
        DoCmd.OpenQuery "ReportList", acViewDesign
    ElseIf Forms(FormName)!ReportList.Column(1) = "FD" Then
        DoCmd.OpenForm "ReportList", acFormDS
    Else
    End If
End Sub

I used  the following in the After Update on the combobox

OpenObject "ReportList"

Why are you sending the name of the Combo Box?
Send the name of the form.

If the Combo is on the CustomerF the codes would be OpenObject "CustomerF"
If the Combo is on the OrderF the codes would be OpenObject "OrderF"

The combobox is on multiple forms. I finally got this to work, thanks to Kevin Robertson pointing me in the right direction and putting this code in a Global Module.  I just have to set up the rest of it, but at least it is now working!

Public Sub OpenObject(FormName As String)
    FormName = Screen.ActiveControl.Column(1)
    Dim FormName2 As String
    FormName2 = Screen.ActiveControl.Column(0)
    
    If FormName = "FF" Then
        DoCmd.OpenForm FormName2, acNormal
    End If
End Sub