RayEee
11-29-2008, 05:59 AM
I have a button on a form that when clicked should select which report to open based on the results of a query. I am getting an error "you canceled the previous operation". Can someone tell me what I doing wrong?
Thanks
Private Sub cmdOpenArmCalcReport_Click()
On Error GoTo Err_cmdOpenArmCalcReport_Click
Dim lngArmInd As Long
Dim strReportName As String
lngArmInd = DLookup("[arm_plan_id]", "qryModArmId")
If lngArmInd = 0 Then
strReportName = "rptModCalcFixed"
Else
strReportName = "rptModCalcArm"
End If
DoCmd.OpenReport "strReportName", acViewPreview
Exit_cmdOpenArmCalcReport_Click:
Exit Sub
Err_cmdOpenArmCalcReport_Click:
MsgBox Err.Description
Resume Exit_cmdOpenArmCalcReport_Click
End Sub
Thanks
Private Sub cmdOpenArmCalcReport_Click()
On Error GoTo Err_cmdOpenArmCalcReport_Click
Dim lngArmInd As Long
Dim strReportName As String
lngArmInd = DLookup("[arm_plan_id]", "qryModArmId")
If lngArmInd = 0 Then
strReportName = "rptModCalcFixed"
Else
strReportName = "rptModCalcArm"
End If
DoCmd.OpenReport "strReportName", acViewPreview
Exit_cmdOpenArmCalcReport_Click:
Exit Sub
Err_cmdOpenArmCalcReport_Click:
MsgBox Err.Description
Resume Exit_cmdOpenArmCalcReport_Click
End Sub