Melanjutkan pertanyaan-pertanyaan saya yang sebelumnya, saya mohon pencerahan dari para rekan-rekan yang sudah mumpuni : 1. Menampilkan foto secara eksternal menggunakan dbpix sudah berhasil saya lakukan, walaupun seharusnya saya bisa menggunakannya tanpa activex control. Untuk sementara hal ini cukup. 2. Karena begitu banyak informasi yang harus dimunculkan pada form data pegawai, sehingga space untuk foto sangat terbatas (kecil), sehingga saya mencoba menggunakan onclick agar pada saat saya klik foto maka keluar form baru yang menampilkan foto dengan ukuran yang lebih besar. Namun yang satu ini belum berhasil saya jalankan, form baru bisa keluar tapi fotonya tidak muncul. Mohon bantuannya. 3. Untuk mengurangi beban bandwith network, saya coba menggunakan link table. Namun formnya tidak bisa memunculkan foto, sepertinya alamat foto tidak ditemukan. Mohon bantuannya bagaimana memunculkan foto di network ? Terima kasih. Diki
----- Original Message ---- From: aksan kurdin <[EMAIL PROTECTED]> To: [email protected] Sent: Wednesday, June 18, 2008 6:13:55 PM Subject: Re: [belajar-access] Mohon penjelasan ttg VBA Gagal buka form mungkin karena parameter yang diberikan tidak lengkap, coba sekarang yang ini: Private Sub Gambar_Click( ) Dim strWhereCategory on error resume next strWhereCategory = "[Id]=" & Me!Id msgbox strWhereCategory stop DoCmd.OpenForm "GambarBesar" , acNormal, , strWhereCategory, , acDialog if err.number <> 0 then msgbox err.description stop end if End Sub apakah strWhereCategory sudah benar isinya ? aksan kurdin 2008/6/18 diki wahyudin <pangestu_cx@ yahoo.com>: > Message error yang muncul : " The OpenForm action was canceled " > > sepertinya macet di " Do.Cmd.OperForm. ....... " > > Terima kasih sebelumnya Bang Aksan. > > Diki > > > ----- Original Message ---- > From: aksan kurdin <aksan.kurdin@ gmail.com> > To: belajar-access@ yahoogroups. com > Sent: Tuesday, June 17, 2008 6:16:42 PM > Subject: Re: [belajar-access] Mohon penjelasan ttg VBA > > Private Sub Gambar_Click( ) > Dim strWhereCategory > on error resume next > strWhereCategory = "[Id]=" & Me!Id > DoCmd.OpenForm "GambarBesar" , acNormal, , strWhereCategory, , acDialog > if err.number <> 0 then > msgbox err.description > stop > end if > > End Sub > > msgbox-nya bilang apa ? > capture aja kirim kemari .... > > aksan kurdin > > On Tue, Jun 17, 2008 at 5:55 PM, diki wahyudin <pangestu_cx@ yahoo.com> > wrote: >> Hallo, >> Saya mohon bantuan dari teman2 yang lebih senior dan lebih paham untuk >> penjelasan code di bawah ini >> Private Sub Gambar_Click( ) >> Dim strWhereCategory >> strWhereCategory = "[Id]=" & Me!Id >> DoCmd.OpenForm "GambarBesar" , acNormal, , strWhereCategory, , >> acDialog >> End Sub >> potongan code tersebut error di baris 4 (Do.Cmd..... .) >> Apakah ada yang salah di dalamnya. Saya mohon bantuannya. >> Terima kasih sebelumnya. >> Diki W >> >> > > -- > Aksan Kurdin > > -- Aksan Kurdin
