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

 

 

Kirim email ke