Please can someone help I have a label and I need to view a report I have put this code in but the report dont show in front of the db it opens behind the db
Any Suggestions
Private Sub Label17_Click()
On Error GoTo Err_Label17_Click
Dim stDocName As String
stDocName = "SurveyPriorityAlgo"
DoCmd.OpenReport stDocName, acPreview
Exit_Label17_Click:
Exit Sub
Err_Label17_Click:
MsgBox Err.Description
Resume Exit_Label17_Click
End Sub
Thanks
Any Suggestions
Private Sub Label17_Click()
On Error GoTo Err_Label17_Click
Dim stDocName As String
stDocName = "SurveyPriorityAlgo"
DoCmd.OpenReport stDocName, acPreview
Exit_Label17_Click:
Exit Sub
Err_Label17_Click:
MsgBox Err.Description
Resume Exit_Label17_Click
End Sub
Thanks