|
Private Sub Command150_Click()
On Error GoTo Err_Command150_Click
Dim stDocName As String
Dim stLinkCriteria As String
If Forms!reviewdetail!CurrPosition.Value = "Supervisor" Then
stDocName = "AnnualReportSupervisor"
ElseIf Forms!reviewdetail!CurrPosition.Value = "Manager" Then
stDocName = "AnnualReportManager"
Else
stDocName = "AnnualReportEngineer"
End If
stLinkCriteria = "[Review.empno]=" & Me![Review.empno] & " and [Date]=" & "#" & Me![Date] & "#"
' DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
DoCmd.OutputTo acReport, stDocName, acFormatRTF
Exit_Command150_Click:
Exit Sub
Err_Command150_Click:
'MsgBox Err.description
Resume Exit_Command150_Click
End Sub
openreport可以有参数设置condition的,而outputto acreport怎么没有?这样output的是所有数据,而不是指定的一条记录,怎么实现output一条记录的report? 的 |
|