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
