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
