Re: [Programmer-VB] Run-time error '2147217900 (80040e14)':

Mon, 03 Apr 2006 22:23:41 -0700

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 -----
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.

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



Kirim email ke