Ga ada salahnya juga, kalo anda cek juga ke databasenya,anda liat dulu rule nya apa disitu,bisa jadi ada lebih dari 1 constraints yg harus anda penuhi...Daripada nanti ada error lagi kan....
--- Purwedi Kurniawan <[EMAIL PROTECTED]> wrote: > Private Sub Command1_Click() > On Error GoTo errHandler > With Adodc1.Recordset > .AddNew > !Kode = txtKode.Text > !Nama = txtNama.Text > !Harga = txtHarga.Text > !Stok = txtStok.Text > End With > Exit Sub > errHandler: > If Err.Number = -2147217900 Then MsgBox "Data > ini sudah ada" > End Sub > > On 4/4/06, Frengki Bunga <[EMAIL PROTECTED]> > wrote: > > > >  > > > > Mas Purwedi, Maaf mungkin saya salah pasang code > yang Mas beri pada > > saya sehingga muncul error seperti diatas. > > > > Code nya seperti dibawah ini: (tolong dikoreksi > ya) > > > > Public Sub UpdateData() > > On Error GoTo errHandler > > Exit Sub > > errHandler: > > If Err.Number = -2147217900 Then MsgBox "Data > ini sudah ada" > > End Sub > > > > Private Sub Command1_Click() > > With Adodc1.Recordset > > * Call UpdateData > > * .AddNew > > !Kode = txtKode.Text > > !Nama = txtNama.Text > > !Harga = txtHarga.Text > > !Stok = txtStok.Text > > End With > > End Sub > > > > ----- Original Message ----- > > *From:* Purwedi Kurniawan > <[EMAIL PROTECTED]> > > *To:* [email protected] > > *Sent:* Monday, April 03, 2006 3:44 PM > > *Subject:* Re: [Programmer-VB] Run-time error > '2147217900 (80040e14)': > > > > > > err.numbernya salah tuh, ini nilainya data long > biasa kok :) jd jangan > > pake bracket ato kurung. > > buat mastiin err.numbernya berapa, kode if then > nya coba di comments dulu > > terus pake kode ini: > > > > errHandler: > > 'If Err.Number = *[2147217900 (80040e14)]* > Then MsgBox "Data ini sudah > > ada" ----> di comment dulu > > msgbox "Error raised, no: " & err.number & ", > desc: " & > > err.description > > > > kalau deskripsi error yg tampil di msgboxnya udah > sesuai dg yg ingin di > > trap (violation of primary key), terus catet > err.number yg tampil di > > msgboxnya n letakkan di kodenya shg jd gini: > > > > errHandler: > > If Err.Number = -2147217900 Then MsgBox "Data > ini sudah ada" > > > > best regards > > [wwn] > > > > > > On 4/3/06, Frengki Bunga <[EMAIL PROTECTED]> > wrote: > > > > > >  Mas Purwedi masih belum bisa. Mungkin saya > kurang paham tentang code > > > yang Mas beri pada saya. > > > Apakah Code yang Mas Purwedi maksud seperti > dibawah ini? Tolong > > > dikoreksi. > > > > > > Private Sub cmdSimpan_Click() > > > MsgBox "Anda Yakin mau disimpan?", > vbOKCancel, "Peringatan" > > > txtKode.SetFocus > > > * Call UpdateData* > > > txtHarga = "" > > > Text1.Text = "" > > > txtKode.Text = "" > > > Text1.Text = "" > > > End Sub > > > > > > > > > Public Sub UpdateData() > > > On Error GoTo errHandler > > > With Adodc1.Recordset > > > .AddNew > > > !Kode = txtKode.Text > > > !NamaBarang = OsenXPTextBox1.Text > > > !Harga = txtHarga.Text > > > !Stok = Text1.Text > > > End With > > > Exit Sub > > > errHandler: > > > If Err.Number = *[2147217900 (80040e14)]* > Then MsgBox "Data ini > > > sudah ada" > > > End Sub > > > > > > Thanks be4. > > > > > > Regards. > > > > > > __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com 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/
