Cara pemrograman membuat kolom baru dalam akses laporan

Dukungan untuk Office 2003 telah berakhir

Microsoft mengakhiri dukungan untuk Office 2003 pada 8 April 2014. Perubahan ini telah memengaruhi pemutakhiran perangkat lunak dan opsi keamanan Anda. Pelajari apa artinya ini bagi Anda dan cara untuk tetap terlindungi.

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
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.TextBoxDim labNew As Access.LabelDim lngTop      As LongDim lngLeft     As LongDim lblCol    As  LongDim rpt As ReportDim reportQuery As StringDim rs As DAO.RecordsetDim i As IntegerDim prevColwidth As longlngLeft = 0lngTop = 0 ' Open the report to design.' To make changes in the number of columns that appear at run time.DoCmd.OpenReport "AccessColumnBuilder", acViewDesignSet 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 = 0lblCol = 0' Print the page header for the report.For i = 0 To rs.Fields.Count - 1Set labNew = CreateReportControl(rpt.Name, acLabel, acPageHeader, _      , rs.Fields(i).Name, lblcol, , , lngTop)      labNew.SizeToFit      lblCol = lblCol + 600 + labNew.WidthNext' 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.widthNext'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:

    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)
ACC2007

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 812719 - Tinjauan Terakhir: 10/03/2011 08:35:00 - Revisi: 2.0

Microsoft Office Access 2007, Microsoft Office Access 2003, Microsoft Access 2002 Standard Edition

  • kbprogramming kbvba kbinfo kbhowto kbmt KB812719 KbMtid
Tanggapan