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 <[EMAIL PROTECTED]> 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
