apakah ada control active x yang anda tambahkan di form tersebut, sehingga
tidak bisa diload oleh form access ?
periksa reference, ada yang missing ?
error jangan dihindari, mas budi, tapi di tangani.
Jika yakin itu adalah error yang sebenarnya bisa di by pass, mas budi bisa
pake bentuk seperti ini:
sub anu
'deklarasi variabel di sini
on error goto errHandle:
<baris perintah disini>
<baris perintah disini>
<baris perintah disini> ' <--- misalkan perintah ini menghasilkan error
nomor 100,
' dan dijamin yakin tdk membahayakan
sistem jika di abaikan,
' goto errHandle dan trap no 100
<baris perintah disini>
exit sub
errHandle:
select case err.number
case 100:
resume next
'atau bisa juga beri pesan msgbox "Kesalahan lupa kunci pintu
...."
case else:
beep
msgbox err.description & " (" & err.number & ")"
end select
end sub
sekali lagi error harus ditangani, *bukan diabaikan* dengan resume next,
resume next sebaiknya dipakai kalau yakin error tidak mempengaruhi /
membahayakan kerja sistem keseluruhan.
makanya dari contoh kemarin kan saya pesan '*ingat2 nomor error-nya* supaya
bisa di trap.
aksan kurdin
2008/7/2 buday uhuy <[EMAIL PROTECTED]>:
> maksud hati sih pingin menghindar dari error, tapi malah tetap
> muncul..heehee..
>
> terima kasih untuk mas aksan buat solusinya, tapi saya sudah coba solusi
> dari mas aksan, tapi masih muncul jg error message itu tuh mas.. kenapa ya ?
> padahal di form yang lain saya buat coding tersebut, ga muncul error itu.
>
> Apa saya harus buat ulang form baru lagi ?
>
> ----- Original Message ----
> From: aksan kurdin <[EMAIL PROTECTED]>
> To: [email protected]
> Sent: Tuesday, July 1, 2008 17:55:39
> Subject: Re: [belajar-access] error message..maksudnya apa ?
>
> 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 <herr_haikal@ yahoo.com <[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 <http://uk.messenger.yahoo.com>
>>
>
>
>
> --
> Aksan Kurdin
>
> Send instant messages to your online friends http://uk.messenger.yahoo.com
>
>
--
Aksan Kurdin
