Bpk, mungkin karena label gambar_kosong & code ke bawahnya belum dihapus, bila ada waktu dicoba dahulu:
Private Sub Detail_Print( Cancel As Integer, PrintCount As Integer) On Error resume next gambar1.Picture = FOTO1 gambar2.Picture = FOTO2 gambar3.Picture = FOTO3 gambar4..Picture = FOTO4 gambar5.Picture = FOTO5 End Sub Thank's. ________________________________ From: yokananwahyono <[email protected]> To: [email protected] Sent: Wed, January 27, 2010 3:29:16 PM Subject: RE: [belajar-access] Memasukkan beberapa foto dalam report 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:belajar-access@ yahoogroups. com [mailto:belajar- acc...@yahoogrou ps.com] On Behalf Of Belajar Office Sent: Wednesday, January 27, 2010 2:36 PM To: belajar-access@ yahoogroups. com Subject: Re: [belajar-access] Memasukkan beberapa foto dalam report Bpk, rename "On Error GoTo gambarkosong" menjadi On Error Resume Next. Thank's. ________________________________ From:yokananwahyono <yokananwahyono@ yahoo.co. .id> To: belajar-access@ yahoogroups. com 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
