Re: [belajar-access] can Grow Pada Frame Image

trimakasih kang Opi, saya dan kel sehat alhamdulillah, mudahan begitu pula dengan kang opi dan keluarga,

insya alloh nanti malam saya akan buat, ini sangat berguna buat saya

tx

yufman

---

From: Sofyan Efendi <sofyanefendi@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Tuesday, December 11, 2012 9:06 AM
Subject: Re: [belajar-access] can Grow Pada Frame Image

 



Dear Mas Yufman,

Apa kabar Mas Yufman, semoga Mas dan keluarga dalam keadaan sehat, dan putra-putrinya dimudahkan Allah dalam menghadapi Ujian Tengah Semester ini. Untuk fasilitas can grow dan can shrink, secara default hanya digunakan untuk text box dan object lainnya selain image. Namun bila kita hendak membuat image dapat secara otomatis melebar dan memanjang sesuai ukurannya, maka perlu dibuatkan VBA yang dikaitkan pada event On Format pada report tsb. Sebagai contoh, saya coba jabarkan caranya sbb:

-          Silahkan kunjungi google.com, kemudian cari kumpulan soal SD. Setelah ditemukan, print screen beberapa soalnya. Di PC saya soalnya saya capture sebanyak 3 saja, yakni:

Soal1.BMP:

Soal2.BMP:

Soal3.BMP:

-          Setelah soal di capture, buatlah file Access baru.

-          Tambahkan table baru didalamnya, isi dengan data sbb:

-          Kemudian buatlah report baru sbb:

-          Klik Detail, pada event On Format, tambahkan procedure sbb:

 

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

    Dim sngJarak As Single

    'Satuan unit di Access adalah Twips, dimana 1,440 Twips = 1 inch

    'Tambahkan jarak ekstra untuk masing2 image

    'Set jarak per image sekitar 1/8 inch saja

    sngJarak = 1440 / 8

    'Set Scalemode pada section detail = 1 twips

    Me.ScaleMode = 1

    Me.ImageFrame.Picture = CurrentProject.Path & "\" & Me![Field1]

    'Disinilah kuncinya: Set ukuran frame sesuai current image

    Me.ImageFrame.Height = Me.ImageFrame.ImageHeight

    Me.ImageFrame.Width = Me.ImageFrame.ImageWidth

    'Agar jarak masing2 image sesuai, tambahkan sngJarak

    'Atau bila ada control lainnya, tambahkan juga kedalamnya heightnya

    Me.Section(acDetail).Height = Me.ImageFrame.Height + sngJarak

End Sub

 

-          Perhatikan nama-nama controlnya, pastikan sesuai/sama dengan contoh yang saya susun ini.

-          Setelah selesai, save report tsb, lalu Run, maka hasilnya adalah sbb:

Demikian yg dapat saya sampaikan, kurang lebihnya saya mohon maaf. Terima kasih.

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com | http://trendmuslim.com
Belajar Access Offline & Online: http://wp.me/PW3LC-hR

----- Original Message -----

From: yufman

To: belajar-access@yahoogroups.com

Sent: Tuesday, December 11, 2012 5:28 AM

Subject: Re: [belajar-access] can Grow Pada Frame Image

Mohon pencerahan kepada para master...

---

From: yufman <yufman@yahoo.com>
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Sent: Thursday, December 6, 2012 4:11 AM
Subject: [belajar-access] can Grow Pada Frame Image

 

Dear All Accesser
sebelumnya maaf bila pernah di bahas ( sudah saya cari tidak ketemu).

Saya sedang membuat kumpulan soal untuk anak SD ( buat latihan Anak
pengganti bimbel :) ), karna dalam soal kadang ada gambar kadang hanya
berupa text maka saya putuskan semua soal saya jadikan image untuk
setiap nomor soal, tapi saya terkendala ketika menampilkan di report
karena untuk masing masing image dari setiap soal ukuranya berbeda,
sehingga klo di setting clip hasil cetak hasil nya terpotong. tapi klo
di stret jadi juelek,

Bagaimana cara Mengatur agar image frame dapat menikuti ukuran gambar
atau dalam istilah text box adalah can grow dan can shrink..?

Terimakasih

Yufman
Saya lampirkan file