请问如何记录报表被打印的次数？

yanwei82123300

我想依据窗体参数来打印报表，如何防止重复打印，因此想记录打印次数来防止重复打印
请问如何做？

yanwei82123300

谢谢老师帮助！我想我已经明白了{:soso_e100:}

Henry D. Sy

建议在表中增加一字段来保存打印的次数

Henry D. Sy

给你个思路，自己完善

1. Private Sub Command5_Click()
   
2.     Dim stDocName As String
   
3.     Dim strSQL As String
   
4.     Dim lngTimes As Long
   
5.     If IsNull(Me.OrderID) Then Exit Sub
   
6.     lngTimes = Me.打印次数 + 1
   
7.     stDocName = "rptOrders"
   
8.     DoCmd.OpenReport stDocName, acViewPreview    'acViewNormal
   
9.     strSQL = "update Orders set PrinTimes=" & lngTimes & " where [orderid]=" & Me.OrderID
   
10.     CurrentDb.Execute strSQL
    
11.     Call OrderID_AfterUpdate
    
12. End Sub

复制代码