sebelumnya saya tanya dulu mas budi, apa yang mas budi harap dari "on error
resume next" pada koding di bawah ?
sebenarnya, jika ada error yang bisa ditrap, jangan di resume next,
mengabaikan error bukan menyelesaikan masalah, bahkan malah2 bisa
menyebabkan masalah lain.
coba ubah seperti berikut:
Private Sub Form_Load()
'On Error Resume Next
on error goto 0
DoCmd.GoToRecord , , acNewRec
Me.kodetrans.SetFocus
End Sub
dimana cursor berhenti ?
lalu sekarang ganti dengan :
Private Sub Form_Load()
'On Error Resume Next
'on error goto 0
on error goto errHandle
DoCmd.GoToRecord , , acNewRec
Me.kodetrans.SetFocus
exit sub
errHandle:
msgbox err.description,vbinformation,err.number
End Sub
perhatikan message box, apa pesannya, dan ingat berapa nomor error yang ada
dicaption message box.
aksan kurdin
2008/7/1 buday uhuy <[EMAIL PROTECTED]>:
> dear all,
>
> msh mengenai access data project. Saya buat coding form load:
>
> Private Sub Form_Load()
> On Error Resume Next
> DoCmd.GoToRecord , , acNewRec
> Me.kodetrans.SetFocus
> End Sub
>
> Setiap running muncul error message :
> "The expression On Load you entered as the event property setting produced
> the following error:
> A problem occured while Microsoft Office Access was communicating with OLE
> server or ActiveX Control"
>
> Ada yang tahu kesalahan coding saya dmn ? Apa ada reference yg kurang/belum
> di tambahkan ?
>
> Bisa teman2 membantu saya.? terima kasih seblumnya.
>
> regards,
> Budi
>
> Send instant messages to your online friends http://uk.messenger.yahoo.com
>
>
--
Aksan Kurdin
