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

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

复制代码