Using a combo box to open a report

[Bill Casanova]

Hi Orange

This looks fine, but why does it work for you with Access 2003 and not for me with Access 2007?

I have posted an Access 2007 version to pbaldy asking him to see if it works for him. If it does then there must be something wrong with the way my Access 2007 is set up.

I sometime wish I never changed from Windows XP to Windows 7. I have had no end of trouble with it!

[orange]

Well I'm running XP on my own machine from an admin account. So that may be why it's working for me.
I'm sure Paul will get it straightened out on 2007.

[pbaldy]

I only have 2000 on the machine I'm on now. It likely worked for orange because (s)he either enabled code or put it in a trusted location. You need to go where I told you and add

C:/User/Bill/My documents

as a trusted location. Alternatively, if there's a bar below the ribbon that says "Options", click on that and enable code.

[Bill Casanova]

I only have 2000 on the machine I'm on now. It likely worked for orange because (s)he either enabled code or put it in a trusted location. You need to go where I told you and add

C:/User/Bill/My documents

as a trusted location. Alternatively, if there's a bar below the ribbon that says "Options", click on that and enable code.

Hurray! It worked.
This bussines with a trusted location was new to me.
There is allways something new to learn.
THANK YOU!

[orange]

I told you Paul would have the answer.

Your posts prove ... with Access perseverance is key to solving a problem.

[pbaldy]

Glad we got it sorted out.

[Bill Casanova]

I got my original db saved in a trusted place.
Attached are two versons of it, one in Access 2002 -3 and the other in Access 2007.

I open the form "Skj Hvilket rom?" (Frm Which room?) and select a room from the ComboBox, then press the button "Forhåndsvis rapport" (Preview report) and expect to get a report showing all books in that room, but all I get is an empty report, no room is selected!

The button has the following code attached to it:

Private Sub Kommando9_Click()
On Error GoTo Err_Kommando9_Click
Dim stDocName As String
stDocName = "Rpt Bøkene i Rom? - sortert på Forfatter og Tittel"
DoCmd.OpenReport stDocName, acPreview, , "Rom = '" & Me.Kombinasjonsboks7 & "'"
Exit_Kommando9_Click:
Exit Sub
Err_Kommando9_Click:
MsgBox Err.Description
Resume Exit_Kommando9_Click

Is there something wrong with it?

[pbaldy]

You didn't use the ID field in the table (I would have), so you need the column with the text value:

DoCmd.OpenReport stDocName, acPreview, , "Rom = '" & Me.Kombinasjonsboks7.Column(1) & "'"

[Bill Casanova]

You didn't use the ID field in the table (I would have), so you need the column with the text value:

DoCmd.OpenReport stDocName, acPreview, , "Rom = '" & Me.Kombinasjonsboks7.Column(1) & "'"

Thank you! An other problem solved.

[pbaldy]

No problemo!