Reports list disappear in combo box.

[cap.zadi]

Hey there,

I have a combo box where row source is Msysobjects table for reports list.

the code for Msysobjects table is here and it gives fine results.

SELECT MsysObjects.Name, Mid([Name],5) AS QueryName
FROM MsysObjects
WHERE (((Left([Name],4))="rpp_"))
ORDER BY MsysObjects.Name;

This code is applied "afterupdate" event on this combo box and when we select the report from list it display the data but once we close the report and again try to select the other report but the report list disappeared from combo box and need to close the form and then reopen.

Private Sub testreport_AfterUpdate()

Me.testreport.RowSource = ""

DoCmd.OpenReport Me.testreport, acViewPreview

End Sub

What could be the mistake?

thanks

[Robeen]

If the name of your Combo Box is 'testreport' - then it looks like you are deleting the Row Source for the Combo Box with this line of code:

 
Me.testreport.RowSource = ""

. . . which is saying, basically, 'make this Combo Box have no source from whch to get data'.

Is there a reason that you have that line of code in there?

Perhaps I am mis-understanding?

[cap.zadi]

Mr. Robeen, thanks for ur reply. there is no reason for that just copy from some where and use it.

yes u are right = " " will delete the data.

please advise what should i Use?

thanks

zee

[Robeen]

Try putting a single quote in front of that line to comment it out - and see if that fixes your problem - like this:
'Me.testreport.RowSource = ""

Let me know if that works.

[cap.zadi]

Sorry sir, it did not work. same results.