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 <[EMAIL PROTECTED]>: > 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 <[EMAIL PROTECTED]> > To: [email protected] > 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
