If ErrorKrnDataUdahAda=err.number Then err.clear MsgBox "Kode Item yang anda masukkan sudah ada, masukkan Kode Item yang lain", vbOKOnly, "Pemberitahuan" end if
--- In [email protected], "Anjas" <[EMAIL PROTECTED]> wrote: > > sebelumnya maap kalo udah pernah ada yg nanya...msh cupu ni gw > > tujuan saya cuma mo bikin code yg bisa ngecek bahwa kalo user > memasukkan KodeItem yang pernah ada maka ada msgbox bilang "kodeitem > udah ada" nah kalo kodeitem beda baru bisa disave. > kan kalo dimasukkin kodeitem yg sama errornya kyk gini : > [URL=http://imageshack.us][IMG] http://img128.imageshack.us/img128/6738/error0ws.gif[/IMG][/URL] > nah gw coba pake code ini utk mengatasinya : > di general declaration saya taro ini : > Private Const ErrorKrnDataUdahAda As Long = -2147217900 > trus di command_click() gw taro ini : > If ErrorKrnDataUdahAda Then > MsgBox "Kode Item yang anda masukkan sudah ada, masukkan Kode > Item yang lain", vbOKOnly, "Pemberitahuan" > nah pake cara saya diatas pernah sukses tuh...eh pas dipindahin ke > laptop kok malah ga jalan? jadinya walaupun kodeitem beda tetep aja > nongol msgbox itu. > > ada yg bisa kasih solusi?thx bgt > Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut: http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke: [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini: Yahoo! Messenger: wahanaprogrammer Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/Programmer-VB/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
![http://img128.imageshack.us/img128/6738/error0ws.gif[/IMG][/URL](http://img128.imageshack.us/img128/6738/error0ws.gif[/IMG][/URL){kind=link}