Bagaimana menampilkan gambar dari folder dalam bentuk atau dalam laporan pada Access 2000

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 210100 - Melihat produk di mana artikel ini berlaku.
Microsoft Access 97 dan versi ini Pasal, lihat 148463.

Untuk Microsoft akses 2002 dan akses Office 2003 Versi artikel ini, lihat 285820.
Lanjutan: Memerlukan ahli pengkodean, interoperabilitas, dan keterampilan multiuser.

Artikel ini berlaku untuk Microsoft Mengakses database (.mdb) dan untuk Microsoft Access proyek (.adp).

Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Kadang-kadang sangat tidak praktis untuk menyimpan gambar dalam Microsoft Access meja. Jika Anda memiliki sejumlah besar gambar, atau jika masing-masing dari file gambar besar, ukuran file database Microsoft Access dapat dengan cepat meningkatkan.

Artikel ini menjelaskan bagaimana Anda dapat menampilkan gambar pada formulir atau laporan oleh hanya menentukan jalur dan nama file. The nama file disimpan dalam tabel. Path ke file dapat juga disimpan dalam tabel, atau jalan dapat path relatif. Hal ini tergantung pada lokasi database.

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 menunjukkan bagaimana menampilkan Windows bitmap gambar pada akses formulir atau laporan akses tanpa menyimpan gambar dalam tabel akses. Meskipun contoh ini menggunakan gambar bitmap (.bmp), Anda juga dapat menggunakan jenis gambar lainnya, seperti .jpg, .gif dan .pcx.

Membuat tabel untuk menyimpan gambar jalan

  1. Membuka sampel akses file database, Northwind.mdb, atau contoh file akses proyek, NorthwindCS.adp.
  2. Membuat tabel berikut di Northwind.mdb baik atau NorthwindCS.adp. di Northwind.mdb:
       Table: tblImage
       ----------------------------
       Field Name: ImageID
       Data Type: AutoNumber
       Indexed: Yes (No Duplicates)
    
       Field Name: txtImageName
       Data Type: Text
    
       Table Properties: tblImage
       --------------------------
       PrimaryKey: ImageID
    					
    Dalam NorthwindCS.adp:
       Table: tblImage
       -----------------------
       Column Name: ImageID
       Datatype: Int
       Allow Nulls: Unchecked
       Identity: Checked
    
       Column Name: txtImageName
       Datatype: varchar
    
       Table Properties: ImageTable
       -------------------------------
       Primary Key Constraint: ImageID
    					
  3. Dalam Northwind.mdb: Membuat gambar standar untuk menampilkan ketika gambar dalam tabel tidak ditemukan, atau tidak ada gambar untuk Catatan.

    Untuk contoh ini, menggunakan gambar kecil yang disebut "NoPicture.BMP". Anda dapat menggunakan sesuatu yang ada, seperti logo perusahaan. Atau, Anda dapat membuat gambar baru dengan menggunakan cat. Menyimpan file di lokasi berikut:

    C:\Windows\NoPicture.bmp
  4. Dalam Northwind.mdb: Buka tabel tblImage dalam Datasheet melihat, dan kemudian menambahkan jalur dan nama bitmap file untuk setiap record. The contoh berikut menunjukkan bagaimana catatan mungkin terlihat:
       C:\Windows\Circles.bmp
       C:\Windows\Waves.bmp
       C:\Windows\Tiles.bmp
       C:\Windows\Bubbles.bmp
    					

Menampilkan gambar pada formulir

  1. Buat bentuk baru berikut berdasarkan tabel tblImage:
       Form: frmImage
       ----------------------
       Caption: Image Form
       RecordSource: tblImage
    
       Image Control
       ---------------------------------
       Name: ImageFrame
       Picture: "C:\Windows\Circles.bmp"
    
       Text box
       ----------------------
       Name: txtImageID
       ControlSource: ImageID
    
       Text box
       ---------------------------
       Name: txtImageName
       ControlSource: txtImageName
    					
    CATATAN: Gambar properti gambar kontrol telah ditetapkan untuk nama path untuk gambar pertama. Gambar kontrol harus valid Gambar properti dalam Design view. Juga, jika Anda tidak ingin path ke muncul dalam bentuk, Anda dapat mengatur Terlihat properti txtImageName control untuk Palsu.

  2. : Pada Lihat menu, klik Kode, dan kemudian paste atau ketik kode berikut:
    Function setImagePath()
        Dim strImagePath As String
        On Error Goto PictureNotAvailable 
        strImagePath = Me.txtImageName
        Me.ImageFrame.Picture = strImagePath
    Exit Function
        PictureNotAvailable:
        strImagePath = "C:\Windows\NoPicture.BMP"
        Me.ImageFrame.Picture = strImagePath
    End Function
    					
  3. : Set OnCurrent event dan acara AfterUpdate=setImagePath().
  4. : Terbuka bentuk Imageform dalam bentuk tampilan. Perhatikan bahwa formulir menampilkan bitmap sesuai untuk setiap record.

Menampilkan gambar pada laporan

  1. Buat laporan baru dalam Design view yang didasarkan pada tblImage.
  2. Tambahkan kontrol berikut ke bagian "Rincian" Laporan:
       Image Control
       ---------------------------------
       Name: ImageFrame
       Picture: "C:\Windows\Circles.bmp"
    
       Text box
       ----------------------
       Name: txtImageID
       ControlSource: ImageID
    
       Text box
       ---------------------------
       Name: txtImageName
           ControlSource: txtImageName
    					
  3. Pada Lihat menu, klik Kode, dan kemudian paste atau ketik kode berikut:
    Function setImagePath()
        Dim strImagePath As String
        On Error Goto PictureNotAvailable
        strImagePath = Me.txtImageName
        Me.ImageFrame.Picture = strImagePath
        Exit Function
    
    PictureNotAvailable:
      strImagePath = "C:\Windows\NoPicture.BMP"
      Me.ImageFrame.Picture = strImagePath
    
      End Function
    					
  4. Mengatur acara OnFormat bagian "Rincian" melaporkan kepada =setImagePath() dan kemudian simpan laporan sebagai RptImage.
  5. Buka laporan RptImage Print Preview. Perhatikan bahwa Laporan menampilkan bitmap sesuai untuk setiap record.

Menyimpan gambar dalam Path relatif

Contoh sebelumnya mengharapkan path lengkap dari file harus di bidang txtImageName. Namun, Anda mungkin ingin tabel berisi hanya nama gambar, sementara kode menentukan jalur tergantung pada folder database saat ini adalah. Gambar, dalam kasus ini, yang semuanya sama dalam satu folder di mana database file terletak. Teknik path relatif ini sangat berguna dengan aplikasi didistribusikan ketika Anda tidak yakin yang Path pengguna akan menginstal database untuk. Dalam kode berikut, Path ke database saat ini ditentukan dengan FullName properti. Jalan kemudian concatenated untuk nama gambar.

Untuk menunjukkan hal ini, membuat perubahan berikut untuk sebelumnya contoh:
  1. Hapus jalur dari tblImage meja, meninggalkan hanya nama dari file bitmap.
  2. Meletakkan bitmap file dalam folder yang sama di mana database terletak. Ini termasuk bitmap standar yang muncul ketika tidak ada gambar untuk catatan tertentu.
  3. Menggantikan fungsi dalam contoh sebelumnya dengan fungsi berikut:

    CATATAN: CurrentProject.FullName, yang merujuk pada jalan penuh proyek saat ini, bekerja untuk akses database dan akses proyek.
    Function setImagePath()
       Dim strImagePath As String
       Dim strMDBPath As String
       Dim intSlashLoc As String
    
       On Error Goto PictureNotAvailable
       'Obtain the full path of the current database or Access Project
       strMDBPath = CurrentProject.FullName
    
       'Find the location of the last backslash
       intSlashLoc = InStrRev(strMDBPath, "\", Len(strMDBPath))
    
       'Trim off the database name, leaving the path
       'and append the name of the image file
       strImagePath = Left(strMDBPath, intSlashLoc) & _
       Me.txtImageName
    
       'Set ImageFrame to the path of the image file
       Me.ImageFrame.Picture = strImagePath
       Exit Function
    PictureNotAvailable:
      strImagePath = "NoPicture.BMP"
      Me.ImageFrame.Picture = strImagePath
    
    End Function
    					

REFERENSI

Untuk informasi lebih lanjut tentang pengaturan properti peristiwa, klik Microsoft Akses bantuan pada Bantuan menu, jenis peristiwa di kantor asisten atau dalam jawaban Wizard, dan kemudian klik Mencari untuk melihat "peristiwa: membuat database Anda benda kerja bersama-sama".

Untuk informasi lebih lanjut tentang OleTypeAllowed properti, klik Microsoft akses bantuan pada Bantuan menu, jenis oletypeallowed di kantor asisten atau jawaban Wizard, dan kemudian klik Mencari untuk melihat topik.

Untuk informasi lebih lanjut tentang properti SourceDoc, Klik Microsoft akses bantuan pada Bantuan menu, jenis sourcedoc di kantor asisten atau jawaban Wizard, dan kemudian klik Mencari untuk melihat topik.
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: 210100 - Kajian Terakhir: 19 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Access 2000 Standard Edition
Kata kunci: 
kbdisplay kbgraphic kb32bitonly kb3rdpartynetclient kbdta kbhowto kbinterop kbofficeprog kbole kbprogramming kbvba kbmt KB210100 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:210100

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