Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Adding Controls to the Report

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