print report from selection(list box)

[rockdc1981]

i have list box which displays all the reports available on my database using the query below c/o allen brown...my problem now is i cant find ways to code and preview/print or open the selected report...can somebody share me a taught of how will i do this...thanks


SELECT MsysObjects.Name
FROM MsysObjects
WHERE (((MsysObjects.Name) Not Like "~*" And (MsysObjects.Name) Not Like "MSys*") AND ((MsysObjects.Type)=-32764))
ORDER BY MsysObjects.Name;

[Fekri]

Hi,

The best way I think is:

in After update of the list box ("list0"):

Me.RecordsetClone.FindFirst "[report code] = " & Me![List0]
Me.Bookmark = Me.RecordsetClone.Bookmark


and in Form record source you have to select the name of table which you have all the report Description.
Of course in this table you should have one field ("[report code]") to have report Number as will descriped in the list box and another field ("[report file name]") which have report name which the name you saved the report with that.

so by ceating the button you should have on click :

Stdoc = Me.Report_file_name
DoCmd.OpenReport Stdoc, acViewPreview


Good luck
Ali

[rockdc1981]

hi i was able to preview the reports..ur code is perfectly working..now is it possible to add a command button that will export the selected report into excel file and file name will be report name and the current date.tnx

[rockdc1981]

for the purpose of sharing,


Private Sub Command11_Click()
On Error GoTo Err_Command11_Click
stdoc = Me.Report_file_name
DoCmd.OutputTo acOutputReport, stdoc, xls

Exit_Command11_Click:
Exit Sub

Err_Command11_Click:
MsgBox Err.Description
Resume Exit_Command11_Click

End Sub


the code will export the selected report...

is it possible that file name of exported report will be reports name plus the current date.

[rockdc1981]

repost

Private Sub Command11_Click()
On Error GoTo Err_Command11_Click
stdoc = Me.Report_file_name
DoCmd.OutputTo acOutputReport, stdoc, xls

Exit_Command11_Click:
Exit Sub

Err_Command11_Click:
MsgBox Err.Description
Resume Exit_Command11_Click

End Sub


the code will export the selected report...

is it possible that file name of exported report will be reports name plus the current date.[/quote]

for the purpose of sharing,


Private Sub Command11_Click()
On Error GoTo Err_Command11_Click
stdoc = Me.Report_file_name
DoCmd.OutputTo acOutputReport, stdoc, xls

Exit_Command11_Click:
Exit Sub

Err_Command11_Click:
MsgBox Err.Description
Resume Exit_Command11_Click

End Sub


the code will export the selected report...

is it possible that file name of exported report will be reports name plus the current date.