gambar1.Picture = iif ("" & FOTO1 = "", "d:\kesehatan\ foto\kosong.
jpg", FOTO1)
gambar2.Picture = iif ("" & FOTO2 = "", "d:\kesehatan\ foto\kosong.
jpg", FOTO2)
gambar3.Picture = iif ("" & FOTO3 = "", "d:\kesehatan\ foto\kosong.
jpg", FOTO3)
gambar4.Picture = iif ("" & FOTO4 = "", "d:\kesehatan\ foto\kosong.
jpg", FOTO4)
gambar5.Picture = iif ("" & FOTO5 = "", "d:\kesehatan\ foto\kosong.
jpg", FOTO5)
("" & FOTO1) artinya memastikan jika FOTO1 is null, maka dia dijadikan
string kosong agar bisa dioperasikan boolean.
Jika dia kosong, ("" = ""), maka yang diambil gambar yang kosong.jpg
aksan kurdin
yokananwahyono wrote:
Wah kok belum bisa ya pak
Malah gambar jadi salah, klo yg tidak ada fotonya
Yg saya mau klo foto orang atau salah satu keluarga tidak ketemu dig
anti dengan gambar kosong
Karena memang mungkin bisa terjadi untuk orang yg belum beristri dll
Mungkin logikanya begini
Jika gambar1 error maka gambar1 di ganti menjadi gambar kosong
Jika gambar2 error maka gambar 2 diganti menjadi gambar kosong
Tetapi bagaimana membuat parameter tsb di acces
Thx
------------------------------------------------------------------------
*From:* [email protected]
[mailto:[email protected]] *On Behalf Of *Belajar Office
*Sent:* Wednesday, January 27, 2010 2:36 PM
*To:* [email protected]
*Subject:* Re: [belajar-access] Memasukkan beberapa foto dalam report
Bpk, rename "On Error GoTo gambarkosong" menjadi On Error Resume Next.
Thank's.
------------------------------------------------------------------------
*From:* yokananwahyono <[email protected]>
*To:* [email protected]
*Sent:* Wed, January 27, 2010 11:52:48 AM
*Subject:* [belajar-access] Memasukkan beberapa foto dalam report
Dear Para Ahli
Saya membuat program untuk "kartu kesehatan" yang berisi foto karyawan
isitri dan 3 anak
Jadi ada 5 foto
Yang jadi masalah adalah jika gambar tidak di temukan saya arahkan ke
gambar kosong.
Saya coba buat tapi jika acces tidak menemukan 1 gambar saja dari 5
gambar maka semua menjadi gambar kosong
Berikut kodenya
Private Sub Detail_Print( Cancel As Integer, PrintCount As Integer)
On Error GoTo gambarkosong
gambar1.Picture = FOTO1
gambar2.Picture = FOTO2
gambar3.Picture = FOTO3
gambar4.Picture = FOTO4
gambar5.Picture = FOTO5
gambar_kosong:
gambar1.Picture = "d:\kesehatan\ foto\kosong. jpg"
gambar2.Picture = "d:\kesehatan\ foto\kosong. jpg"
gambar3.Picture = "d:\kesehatan\ foto\kosong. jpg"
gambar4.Picture = "d:\kesehatan\ foto\kosong. jpg"
gambar5.Picture = "d:\kesehatan\ foto\kosong. jpg"
End Sub
Isi
FOTO1= "d:\kesehatan\ foto\[NO id]A.jpg
FOTO2 =d:\kesehatan\ foto\[NO ID]B.jpg
FOTO3=D:\kesehatan\ foto\[NO ID]C.jpg
Dsb sampai foto5
Kira2 untuk membuat parameter yang "tidak menemukan foto" trus di
arahkan ke gambar "kosong" gmn y
Thx
Yokanan wahyono
