в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:46:58Z

1 версия

Новая страница

==Get all report history==



<source lang="vb">

Function ReportHistory(sRpt As String) As String

Dim acObj As AccessObject
Dim sRptIn As String
Dim sDatePrinted As String
Dim sDateModified As String
Dim sDateCreated As String
Dim sPort As String
Dim sDevice As String
Dim sBuild As String

sRptIn = sRpt
sPort = "Port name: " & Application.Printers(0).Port
sDevice = "Device name: " & Application.Printers(0).DeviceName
sBuild = ""

For Each acObj In CurrentProject.AllReports
With acObj
If acObj.Name = sRptIn Then
sDatePrinted = "Date printed: " & Now()
sDateModified = "Date modified: " & .DateModified
sDateCreated = "Date created: " & .DateCreated
Exit For
End If
End With
Next acObj
sBuild = sDatePrinted & ", " & sPort & ", " & sDevice & ", " & _
sDateCreated & ", " & sDateModified & "."
ReportHistory = sBuild
End Function
</source>

==Use the report object variable to point at each report in the Reports collection==



<source lang="vb">

Sub IterateOpenReports()
Dim myReport As Report
For Each myReport In Reports
Debug.Print myReport.Name
Next myReport
End Sub
</source>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/Access/Reports - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия