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

Mon, 03 Apr 2006 01:04:57 -0700


pakai select case aja mas siapa tau ada error lagi
 
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:
Select Case Err.Number
case -2147217900
     bla bla bla
case -2147217901
    resume next    
Case Else
    MsgBox "Preview : " & Err.Number & " - " & Err.Description, vbCritical, "Error"
End Select   
End Sub
 
 
regards
cmiiw
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