в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:47:00Z

1 версия

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

==Adding Controls to the Report==



<source lang="vb">

Sub NewReport()
Dim myReport As Report
Dim strReportName As String
Dim txtReportColumns As Access.TextBox
Dim lblReportLabel As Access.Label
Dim intWidth As Integer
strReportName = "myReport"
Set myReport = CreateReport
myReport.RecordSource = "SELECT * FROM Employees"
myReport.Section("Detail").Height = 350
Set txtReportColumns = CreateReportControl(myReport.Name, acTextBox, _
, , "txtCustNumber")
Set lblReportLabel = CreateReportControl(myReport.Name, acLabel, _
acPageHeader)
lblReportLabel.Name = "lblCustNumber"
lblReportLabel.Caption = "Customer Number"
lblReportLabel.Width = 2000
lblReportLabel.Height = 300
lblReportLabel.FontBold = True
Set txtReportColumns = CreateReportControl(myReport.Name, acTextBox, _
, , "txtCustLastName", 3000)
Set lblReportLabel = CreateReportControl(myReport.Name, acLabel, _
acPageHeader, , ,3000)
lblReportLabel.Name = "lblLastName"
lblReportLabel.Caption = "Last Name"
lblReportLabel.Width = 2000
lblReportLabel.Height = 300
lblReportLabel.FontBold = True
Set txtReportColumns = CreateReportControl(myReport.Name, acTextBox, _
, , "txtCustFirstName", 6000)

Set lblReportLabel = CreateReportControl(myReport.Name, acLabel, _
acPageHeader, , , 6000)
lblReportLabel.Name = "lblFirstName"
lblReportLabel.Caption = "First Name"
lblReportLabel.Width = 2000
lblReportLabel.Height = 300
lblReportLabel.FontBold = True
DoCmd.Save , strReportName
DoCmd.Close , , acSaveYes
DoCmd.OpenReport strReportName, acViewPreview
End Sub
</source>

==Create a named report==



<source lang="vb">

Sub NewReport()
Dim myReport As Report
Dim strReportName As String
strReportName = "myReport"
Set myReport = CreateReport
DoCmd.Save , strReportName
DoCmd.Close , , acSaveYes
End Sub
</source>

==Creating an Empty Report==



<source lang="vb">

Sub NewReport()
Dim myReport As Report
Set myReport = CreateReport
DoCmd.Close , , acSaveYes
End Sub
</source>

==Open report==



<source lang="vb">

Sub runReport()
Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\mydb.mdb;"
DoCmd.OpenReport "rptCustomer", acViewPreview
End Sub
</source>

==Print preview Report==



<source lang="vb">

Sub cmdPrint_Click()

DoCmd.OpenReport "rptSales", acViewPreview

End Sub
</source>

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

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

в 16:33, 26 мая 2010

Admin: 1 версия