Passing combobox value to a report

[techexpressinc]

How would I identify the value (field) in the drop-down of an unbound combo and get it passed to the query behind the report.

Attached are a couple of screen shots that show how it is going.
Screen shots
1) form in design mode
2) the vba code behind the button to create the report

Thanks for any help, as always.

Russ

 

[randompherret]

I'm not an expert by any means, but from what I can tell this should have worked. What is it doing or what error are you getting?

 

[techexpressinc]

Re: Passing combobox value to a report - more info

Good question -

Attached two images:
1) Error message happening
2) The query that is behind the report, where I am attempting to pass the value in the drop-down to for a selection process.

 

[randompherret]

In the query you don't want it to refrence me.[associatelisting] you want [Forms]![associateform]![associatelisting]

 

[randompherret]

right click in criteria and select build.
you can use that to point to it as well

 

[vbaInet]

You've put it in the wrong criteria (i.e. one criteria too many). It should go in the 4th parameter:

docmd.openreport "report name", acViewPreview[COLOR=Red], , [/COLOR]"criteria here"

Can you see the number of commas in mine in comparison to yours.

 

[techexpressinc]

Getting closer - but no success yet

Thanks for the help, I think I need a little push more, I will post a Yippie when i get it to work.

One Problems at this time 11-23-11-730amEST -
1) Syntax error in query when adding the parameter:
[Forms]![associateform]![Associatelisting]

Russ

 

[vbaInet]

Are you talking about code or in the query? Can you show us what you are referring to.

 

[techexpressinc]

getting a - syntax err

Attached is a screen shot of the error.

 

[vbaInet]

Can you see the extra bracket in the error? [

Plus, you should be using Me.ControlName if you are calling the OpenReport command from that form

 

[techexpressinc]

still trying

The query behind the report is still failing to get the parameter.
I tried:
Me.Associatelisting
and
[Forms]![FrmSwitchBoard4SelectingPlanDoc]![Associatelisting]

However, with either I get the pop-up message
Enter Parameter Value and the variable. See attachments. Thx.


Here is the code behind the button now:

Private Sub Command4_Click()
On Error GoTo Err_Command24_Click
    Dim stDocName As String
    stDocName = "rpt_PIM_bjk_4_2006_1_person"
   DoCmd.OpenReport stDocName, acViewPreview, , "Me.Associatelisting"

' docmd.openreport "report name", acViewPreview, , "criteria here"
Exit_Command24_Click:
    Exit Sub
Err_Command24_Click:
    MsgBox Err.Description
    Resume Exit_Command24_Click
    
End Sub

 

[vbaInet]

Remove the criteria that you have under PIandM and for the code use:

Private Sub Command4_Click()
On Error GoTo Err_Command24_Click

   DoCmd.OpenReport "rpt_PIM_bjk_4_2006_1_person", acViewPreview, , "PIandM = '" & Me.Associatelisting & "'"

Exit_Command24_Click:
    Exit Sub
Err_Command24_Click:
    MsgBox Err.Description
    Resume Exit_Command24_Click
    
End Sub

To be honest, remove all the criteria in your query until you get this working. Then you can put it back.

 

[techexpressinc]

WORKing - Yeppie - Thanks a million..
Russ

 

[vbaInet]

Woopee!!!! No problemo!