D
Duane Hookom
I expect this is not right. You aren't referring to my original code and
values.
If PNOrderDateAlias = 0 Then stDocName = "ProjectionReport" 'not
correct
DoCmd.OpenReport stProjectionReport, acViewPreview
Else
MsgBox "There was an error computing values. Can't run report."
vbCritical vbOKOnly, "Error"
End If
Try
Dim intNumberOfColumns as Integer
intNumberOfColumns = 10
If PNOrderDateAlias(intNumberOfColumns) = 0 Then
stDocName = "ProjectionReport"
DoCmd.OpenReport stProjectionReport, acViewPreview
Else
MsgBox "There was an error computing values. Can't run report."
vbCritical vbOKOnly, "Error"
End If
This assumes you have a module with the function PNOrderDateAlias.
values.
If PNOrderDateAlias = 0 Then stDocName = "ProjectionReport" 'not
correct
DoCmd.OpenReport stProjectionReport, acViewPreview
Else
MsgBox "There was an error computing values. Can't run report."
vbCritical vbOKOnly, "Error"
End If
Try
Dim intNumberOfColumns as Integer
intNumberOfColumns = 10
If PNOrderDateAlias(intNumberOfColumns) = 0 Then
stDocName = "ProjectionReport"
DoCmd.OpenReport stProjectionReport, acViewPreview
Else
MsgBox "There was an error computing values. Can't run report."
vbCritical vbOKOnly, "Error"
End If
This assumes you have a module with the function PNOrderDateAlias.