runtime error 2497..action method requires a report name

[rockdc1981]

I dont get it lately the code is working andnow i get the error message...the code below is on a list where i can select the reports from a table source and enables user to preview and export it..any help pls...tnx


Private Sub lstReports_AfterUpdate()
Me.RecordsetClone.FindFirst "[report code] = " & Me![lstReports]
Set rs = db.OpenRecordset("reports", dbOpenDynaset)
'Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
Private Sub previewreport_Click()
stdoc = Me.Report_file_name
DoCmd.OpenReport stdoc, acViewPreview
End Sub

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

[puppydogbuddy]

I dont get it lately the code is working andnow i get the error message...the code below is on a list where i can select the reports from a table source and enables user to preview and export it..any help pls...tnx


Private Sub lstReports_AfterUpdate()
Me.RecordsetClone.FindFirst "[report code] = " & Me![lstReports]
Set rs = db.OpenRecordset("reports", dbOpenDynaset)
'Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
Private Sub previewreport_Click()
stdoc = Me.Report_file_name
DoCmd.OpenReport stdoc, acViewPreview
End Sub

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

I believe your problem is with Me.Report_file_name. I think your reference is wrong.

stdoc = Me!lstReports!Report_file_name