Combo box open reports

[GUMUBIBI]

Hi


I'm using this code for a combo box used to open reports but it does not work. THe error message when i select a report from the combo is " The report name 'Screen.ActiveControl' you entered in eitherthe property sheet or macro is misspelled or refers to a report that doesn't exist".
The code is used for the following situation:
- i created a table with the name of the reports (table=Reports, column=Nume_raport)
- then i created in a form the combo list with the code:

Private Sub Combo0_AfterUpdate()
On Error GoTo Combo0_AfterUpdate_Err
If (IsNull(Screen.ActiveControl)) Then
Exit Sub
End If
TempVars.Add "Nume_raport", "Screen.ActiveControl"
If (CurrentProject.IsTrusted) Then
Screen.ActiveControl = Null
End If
DoCmd.OpenReport TempVars!Nume_raport, acViewReport, "", "", acNormal
TempVars.Remove "Nume_raport"

Combo0_AfterUpdate_Exit:
Exit Sub
Combo0_AfterUpdate_Err:
MsgBox Error$
Resume Combo0_AfterUpdate_Exit
End Sub

[RuralGuy]

Why are you using that round about code. I see no reason to use any TempVars or any indirection.

[GUMUBIBI]

Why are you using that round about code. I see no reason to use any TempVars or any indirection.

To be sincere I found that piece of code and I used it. And I did it earlier this day. The only thing is I'm only a beginner in VBA coding and it's very hard for me for now.

You see the real problem in the beginning was this: I wanted to create a sort of combo box to select from a specified report the selected value.

For example I have a report for different agents looking like this:

Name Sale1 Sale2
a1 1 1
a2 1 2
a3 3 4


All I want is to create a combo box with the agent name and when I select the agent name the report is created only with that agent.
Sot of a filter on report. And I begun with this code and I tried to learn about it so I could use it in my real problem.


I hope I was explicit in the matter.

[RuralGuy]

See if this helps at all.

[GUMUBIBI]

See if this helps at all.

Man you are a genious. That had indeed something that solved my problem. I forgot about the where clause in openreport statement and it worked like a charm. This thing finally solved my problem with a lot of reports and lists. Thank you.

[RuralGuy]

That's great! Are you ready to use the Solved thread tool yet?