klo dilihat dari error descriptionnya mungkin penyebabnya data1 sudah di posisi eof atau bof sehingga tidak ada record yang terselect
----- Original Message ---- From: dessy indriani <[EMAIL PROTECTED]> To: [email protected] Sent: Friday, July 11, 2008 15:39:51 Subject: [Programmer-VB] Error di tombol Edit 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 Send instant messages to your online friends http://uk.messenger.yahoo.com
