Cara pemrograman membuat kolom baru dalam akses laporan

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 812719 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini menjelaskan cara membuat pemrograman kolom dalam laporan akses. Anda dapat secara dinamis menambahkan kolom untuk laporan oleh menggunakan metode 1 atau metode 2 yang dijelaskan dalam "informasi selengkapnya" bagian.

INFORMASI LEBIH LANJUT

Catatan Kode contoh dalam artikel ini menggunakan Microsoft Data Access Objek. Untuk kode ini untuk menjalankan dengan benar, Anda harus referensi Microsoft DAO 3,6 Perpustakaan objek. Untuk melakukannya, klik Referensi pada Alat menu di Editor Visual Basic, dan memastikan bahwa Perpustakaan objek Microsoft DAO 3,6 kotak centang dipilih.

Metode 1 menambahkan kolom untuk laporan pemrograman

Contoh berikut menunjukkan kepada Anda bagaimana untuk membuat pemrograman Akses laporan. Kode menghasilkan laporan yang didasarkan pada catatan sumber permintaan. Laporan yang dihasilkan akan menampilkan Nama depan kolom dan The Nama belakang kolom Karyawan Tabel database contoh Northwind.mdb.
  1. Mulai akses.
  2. Pada Bantuan menu, klik Contoh database, lalu klik Northwind sampel Database. Dekat Utama Switchboard bentuk ketika itu muncul.

    Catatan Di Access 2007, klik Sampel dalam Kategori template panel, klik Northwind 2007, lalu klik Unduh.
  3. Dalam pane kiri, klikLaporan.

    Catatan Di Access 2007, melewatkan langkah ini.
  4. Dalam pane kanan, klik dua kali Membuat laporan di Lihat desain.

    Catatan Di Access 2007, klik Desain laporan dalam Laporan kelompok pada Buat tab.
  5. Pada Berkas menu, klikSimpan.

    Catatan Di Access 2007, klik Microsoft Office tombol, lalu klik Simpan.
  6. Dalam Simpan sebagai kotak dialog, jenisAccessColumnBuilder kemudian klikOke.
  7. Tutup laporan.
  8. Di panel kiri, pilih Bentuk.

    Catatan Di Access 2007, melewatkan langkah ini.
  9. Dalam pane kanan, klik dua kali Membuat formulir di Lihat desain.

    Catatan Di Access 2007, klik Rancangan Borang dalam Bentuk kelompok pada Buat tab.
  10. Tambahkan tombol perintah ke bentuk.

    Catatan Di Access 2007, klik Tombol untuk menambahkan tombol ke bentuk di Kontrol kelompok pada Desain tab.
  11. Klik kanan tombol perintah, klik Membangun acara, klik Kode Builder dalam Memilih Builder kotak dialog, dan kemudian klik Oke.
  12. Menambahkan kode berikut untuk OnClick acara tombol perintah:
    Dim txtNew As Access.TextBox
    Dim labNew As Access.Label
    Dim lngTop      As Long
    Dim lngLeft     As Long
    Dim lblCol    As  Long
    Dim rpt As Report
    Dim reportQuery As String
    Dim rs As DAO.Recordset
    Dim i As Integer
    Dim prevColwidth As long
    
    lngLeft = 0
    lngTop = 0
     
    ' Open the report to design.
    ' To make changes in the number of columns that appear at run time.
    
    DoCmd.OpenReport "AccessColumnBuilder", acViewDesign
    
    Set rpt = Reports![AccessColumnBuilder]
    
    ' Change the number of columns required as per your requirement.
    reportQuery = "SELECT FirstName, LastName FROM Employees"
    
    ' Open the recordset.
    Set rs = CodeDb().OpenRecordset(reportQuery)
    ' Assign the query as a record source to report control.
    rpt.RecordSource = reportQuery
    
    ' Set the value to zero so that the left margin is initialized.
    prevColwidth = 0
    lblCol = 0
    ' Print the page header for the report.
    For i = 0 To rs.Fields.Count - 1
    Set labNew = CreateReportControl(rpt.Name, acLabel, acPageHeader, _
          , rs.Fields(i).Name, lblcol, , , lngTop)
          labNew.SizeToFit
          lblCol = lblCol + 600 + labNew.Width
    Next
    
    ' Create the column depending on the number of fields selected in reportQuery.
    ' Assign the column value to new created column.
    For i = 0 To rs.Fields.Count - 1
          ' Create new text box control and size to fit data.
          Set txtNew = CreateReportControl(rpt.Name, acTextBox, _
             acDetail, , , lngLeft + 15 + prevColwidth, lngTop)
          txtNew.SizeToFit
          txtNew.ControlSource = rs(i).Name
          ' Modify the left margin depending on the number of columns
          ' and the size of each column.
          prevColwidth = prevColwidth + txtNew.width
    Next
    'To save the modification to the report,  uncomment the following line of code:
    	'DoCmd.Save
    ' View the generated report.
    DoCmd.OpenReport "AccessColumnBuilder", acViewPreview
    
    ' This opens the report in preview.
    
  13. Simpan dan kemudian menjalankan bentuk.
  14. Untuk melihat laporan, klik perintah tombol yang Anda ditambahkan di langkah 10.

    Catatan yang mengikuti muncul pertama Halaman:

    First Name	Last Name

    Nancy		Davolio

    Margaret		Peacock

    ........	.......


    Laporan berisi Nama depankolom dan Nama belakang kolomKaryawan tabel. Anda dapat menyimpan laporan atau membuat diperlukan perubahan untuk query dan kemudian menjalankan laporan.

Metode 2 menambahkan kolom untuk laporan pada saat Run Time dengan menetapkan properti terlihat ada kolom

Contoh ini menunjukkan kepada Anda bagaimana untuk menampilkan kolom baru dalam sebuah laporan oleh memanipulasi Terlihat properti kontrol.

Laporan berisi empat kolom. The Terlihat properti pertama tiga kolom diatur ke Ya. The Terlihat milik keempat kolom diatur ke Tidak. Anna Page break, Terlihat milik keempat kolom diatur ke Ya Kapan kolom muncul.
  1. Mulai akses.
  2. Pada Bantuan menu, klik Contoh database, lalu klik Northwind sampel Database. Dekat Utama Switchboard bentuk ketika itu muncul.

    Catatan Di Access 2007, klik Sampel dalam Kategori template panel, klik Northwind 2007, lalu klik Unduh.
  3. Untuk membuat laporan yang bernama Report1dan didasarkan pada Produk tabel, ikuti langkah berikut:
    1. Dalam Pangkalan Data jendela, klik Laporan kemudian klik Baru.

      Catatan Di Access 2007, klik Laporan Wizard dalam Laporan kelompok pada Buat tab.
    2. Dalam Laporan baru kotak dialog, klik Lihat desain, pilihProduk, dan kemudian Klik Oke.
    3. Menambahkan kotak teks berikut untuk Detail bagian dari laporan. Menyelaraskan kotak teks.
    4. Menempatkan label yang sesuai dalam Halaman Header bagian dari laporan. Menyelaraskan label.
      Report: Report1
         --------------------------
         Caption: TestReport
         ControlSource: Products
      
         Label:
            Name: ProductName_label
            
         Text Box:
            Name: ProductName
            ControlSource: ProductName
          
      
         Label:
            Name: UnitPrice_label
         
         Text Box:
            Name: UnitPrice
            ControlSource: UnitPrice
      
         
         Label:
            Name: UnitsInStock_label
         
         Text Box:
            Name: UnitsInStock
            ControlSource: UnitsInStock
         
      
         Label:
             Name: TotalPrice_label
             Visible: No
      
         Text Box:
            Name:  TotalPrice
            ControlSource:  =[UnitPrice] * [UnitsInStock]
            Visible: No
      
  4. Tambahkan kontrol kotak teks dengan properti berikut untuk Detail bagian. Menempatkan kotak teks langsung di atas The ProductName kontrol.

    Kontrol ini bertindak sebagai Counter jumlah catatan dalam laporan.
    Text Box:
       -----------------------
       Name: Counter
       ControlSource: =1
       Visible: No
       RunningSum: Over All
    
  5. Pada Toolbox, klikPage Break.

    Catatan Di Access 2007, klik Menambah atau menghapus halaman istirahat dalam Kontrol kelompok pada Desain tab.
  6. Menambah kontrol istirahat halaman sudut kiri dari Detail bagian. Menempatkan kontrol istirahat halaman langsung di bawah ini ProductName kontrol. Menetapkan Namaproperti untuk PageBreak.
  7. Dalam Detail bagian, mengaturOnFormat properti untuk acara prosedur berikut:
        If Me![Counter] Mod 2 = 0 Then Me![PageBreak].Visible = True _
        Else Me![PageBreak].Visible = False
    
  8. Untuk mengurangi ruang kosong dalam laporan, meletakkan kursor Anda antara bagian bawah Detail bagian dan Halaman Footer dan kemudian menarik atas.
  9. Dalam Halaman Footer bagian, mengaturOnPrint properti untuk acara prosedur berikut:

    If Me![PageBreak].Visible = True Then Me![TotalPrice].Visible = True Me![TotalPrice_label].Visible = True Else Me![TotalPrice].Visible = False Me![TotalPrice_label].Visible = False End If
    Kapan PageBreak terjadi, TotalPricekolom muncul.
  10. Pratinjau laporan. Catatan yang mengikuti muncul di Halaman pertama:
    Product Name	Unit Price	Unit in Stock

    Cahi		$18.00		39

    Chang		$19.00		17

    Catatan halaman pertama dari laporan berisi tiga kolom.

    Catatan yang mengikuti muncul pada halaman kedua:

    Product Name	Unit Price	Unit in Stock	Total Amount

    Aniseed Syrup 	$10.00		13    		130

    Chef A...    	$22.00 		53    		1166
    Catatan Page break terjadi setelah halaman pertama. Oleh karena itu, kedua Halaman laporan berisi empat kolom.

REFERENSI

Untuk informasi tambahan, klik artikel berikut nomor ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
231806ACC2000: Halaman Header yang rentang lebar penuh dari multi-kolom Laporan
209006 ACC2000: Bagaimana mengontrol jumlah record dicetak per halaman
210336 ACC2000: Contoh fungsi untuk menentukan halaman formulir
208979 ACC2000: Cara mencetak Footer grup di lokasi tertentu
231851 ACC2000: Microsoft Access 2000 contoh laporan tersedia di Pusat Download
Untuk informasi lebih lanjut tentang cara pemrograman membuat akses laporan, kunjungi berikut Microsoft Developer Network (MSDN) Situs web:
.aspx http://msdn2.Microsoft.com/en-us/library/aa188513 (office.10)

Properti

ID Artikel: 812719 - Kajian Terakhir: 03 Oktober 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Office Access 2007
  • Microsoft Office Access 2003
  • Microsoft Access 2002 Standard Edition
Kata kunci: 
kbprogramming kbvba kbinfo kbhowto kbmt KB812719 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:812719

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com