pn yang mbak desi bikin itu primay keu bukan,,,,,,,? klo pn yang mbak desy bikin primary key ya ga bisa di edit. jd mbak desi klo mau di adit langsing za Private Sub save_Click() With Data1.Recordset If cmdnew.Enabled = True Then edit.Enabled = True .AddNew !pn = pn.Text !trading = trading.Text !oem = oem.Text !desc = desc.Text !suppl = suppl.Text !tgl_beli = date_inv.Text !hrg_inv = inv_price.Text !kurs = kurs.Text !landed = landed.Text !pl1 = p1.Text !pl2 = p2.Text !pl3 = p3.Text !tgl_input = mask_input.Text !po_no = po_no.Text !kurs2 = Combo1.Text .Update ElseIf edit.Enabled = True Then cmdnew.Enabled = True .edit------- --------- --------- --------- --------- --------- ------->>>>> Error ( Muncul Error Disini) ' !pn = pn.Text (fild untuk pn'y ga usah dipake karena primary key) !trading = trading.Text !oem = oem.Text !desc = desc.Text !suppl = suppl.Text !tgl_beli = date_inv.Text !hrg_inv = inv_price.Text !kurs = kurs.Text !landed = landed.Text !pl1 = p1.Text !pl2 = p2.Text !pl3 = p3.Text !tgl_input = mask_input.Text !po_no = po_no.Text !kurs2 = Combo1.Text .Update End If End With save.Enabled = False cancel.Enabled = False cmdnew.SetFocus Data1.Refresh bersih nonaktif End Sub
--- Pada Jum, 11/7/08, dessy indriani <[EMAIL PROTECTED]> menulis: Dari: dessy indriani <[EMAIL PROTECTED]> Topik: [Programmer-VB] Error di tombol Edit Kepada: [email protected] Tanggal: Jumat, 11 Juli, 2008, 3:39 PM Saya membuat program pembelian dengan menggunakan data access. Permasalahannya di tombol edit, Pas mau di save muncul pesan error " No Current Record " "Run-time Error '3021'". Itu kenapa yach.. Coding yang saya buat : Private Sub save_Click() With Data1.Recordset If cmdnew.Enabled = True Then edit.Enabled = True .AddNew !pn = pn.Text !trading = trading.Text !oem = oem.Text !desc = desc.Text !suppl = suppl.Text !tgl_beli = date_inv.Text !hrg_inv = inv_price.Text !kurs = kurs.Text !landed = landed.Text !pl1 = p1.Text !pl2 = p2.Text !pl3 = p3.Text !tgl_input = mask_input.Text !po_no = po_no.Text !kurs2 = Combo1.Text .Update ElseIf edit.Enabled = True Then cmdnew.Enabled = True .edit------- --------- --------- --------- --------- --------- ------->>>>> Error ( Muncul Error Disini) !pn = pn.Text !trading = trading.Text !oem = oem.Text !desc = desc.Text !suppl = suppl.Text !tgl_beli = date_inv.Text !hrg_inv = inv_price.Text !kurs = kurs.Text !landed = landed.Text !pl1 = p1.Text !pl2 = p2.Text !pl3 = p3.Text !tgl_input = mask_input.Text !po_no = po_no.Text !kurs2 = Combo1.Text .Update End If End With save.Enabled = False cancel.Enabled = False cmdnew.SetFocus Data1.Refresh bersih nonaktif End Sub Thanks to all Send instant messages to your online friends http://uk.messenger .yahoo.com ___________________________________________________________________________ Dapatkan alamat Email baru Anda! Dapatkan nama yang selalu Anda inginkan sebelum diambil orang lain! http://mail.promotions.yahoo.com/newdomains/id/
