Cara menggunakan Visual Basic untuk mengisi kotak teks pada laporan dalam Microsoft Access

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 291533 - Melihat produk di mana artikel ini berlaku.
Artikel ini berlaku untuk Microsoft Access database (.mdb) dan proyek Microsoft Access (.adp).

Moderat: Memerlukan dasar makro, coding, dan interoperabilitas keterampilan.

Untuk versi Microsoft Access 2000 artikel ini, lihat 210136.
Untuk versi Microsoft Access 97 artikel ini, lihat 143280.
Perbesar semua | Perkecil semua

RINGKASAN

Artikel ini menunjukkan kepada Anda bagaimana untuk membuat sampel Visual Basic untuk aplikasi fungsi yang populates (atau memenuhi) kontrol pada laporan yang didasarkan pada meja atau permintaan ketika Anda melihat atau mencetak laporan. Contoh fungsi mengisi kotak teks baru dibuat pada sebuah laporan dengan nilai dari QuantityPerUnit lapangan di meja produk database contoh Laporan ini didasarkan pada permintaan saat ini daftar produk Northwind.mdb. Northwind database.

CATATAN: Artikel ini menjelaskan teknik yang ditunjukkan dalam sampel file, RptSmp00.mdb. Untuk informasi tambahan tentang cara mendapatkan file sampel ini, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
231851ACC2000: Microsoft Access 2000 contoh laporan tersedia di Pusat Download

INFORMASI LEBIH LANJUT

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda. Contoh berikut panggilan Visual Basic untuk aplikasi fungsi dalam OnFormat properti laporan untuk mengisi kontrol terikat pada laporan. Sebagai alternatif, Anda dapat memanggil fungsi dari ControlSource properti kontrol terikat. Untuk membuat contoh, ikuti langkah berikut.

HATI-HATI: Jika Anda mengikuti langkah-langkah dalam contoh ini, Anda mengubah database contoh Northwind.mdb. Anda dapat membuat cadangan berkas Northwind.mdb dan ikuti petunjuk pada salinan database.

  1. Buka database contoh Northwind.mdb.
  2. Gunakan Wisaya laporan untuk membuat sebuah laporan baru yang didasarkan pada permintaan saat ini daftar produk dengan pilihan berikut:
    • Termasuk kedua bidang.
    • Menambahkan tingkat pengelompokan tidak.
    • Urut dengan ProductName.
    • Gunakan pengaturan tata letak standar.
    • Pilih gaya perusahaan.
    • Nama laporan mengisi laporan.

  3. Buka laporan mengisi laporan dalam Design view.
  4. Menambahkan kotak teks berikut ke bagian rinci laporan mengisi laporan:
       Text box
       ----------------------------
       Name: Quantity
       ControlSource: <leave empty>
    					
  5. Ketik kode contoh berikut dalam modul baru atau yang ada.CATATAN: Kode contoh dalam artikel ini menggunakan Microsoft Data akses objek. Untuk kode ini untuk menjalankan dengan benar, Anda harus referensi perpustakaan objek Microsoft DAO 3,6. Untuk melakukannya, klik Referensi pada Alat menu di Editor Visual Basic, dan memastikan bahwa Perpustakaan objek Microsoft DAO 3,6 kotak centang dipilih.

    Function FillRep()
    Dim rs As DAO.Recordset
    Dim db As DAO.DATABASE
    
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Products", dbOpenDynaset)
    
    rs.MoveFirst
    rs.FindFirst "[ProductID]=" & Reports![Fill Report]![ProductID]
    
    ' Use this line if the function is called from report
    ' detail section's OnFormat property event procedure.
    Reports![Fill Report]![Quantity] = rs![QuantityPerUnit]
    
    ' -or- use this line if the function is called from the
    ' ControlSource property of the unbound control.
    FillRep = rs![QuantityPerUnit]
    End Function
    
    					
  6. Menetapkan OnFormat properti bagian rinci laporan sebagai berikut:
    =FillRep()
    CATATAN: Anda juga dapat memanggil fungsi FillRep() dari ControlSource properti teks kuantitas terikat kotak sebagai berikut:
       Name: Quantity
       ControlSource: =FillRep()
    						
    Jika Anda menggunakan metode ini, menambahkan komentar (') di depan baris kode Langkah 5:
    Reports![Fill Report]![Quantity] = rs![QuantityPerUnit]
    
    					
  7. Pratinjau laporan. Perhatikan bahwa kotak teks kuantitas pada laporan diisi oleh Visual Basic untuk aplikasi fungsi.
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Properti

ID Artikel: 291533 - Kajian Terakhir: 23 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Office Access 2003
  • Microsoft Access 2002 Standard Edition
Kata kunci: 
kbreport kbprogramming kbhowto kbmt KB291533 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:291533

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