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
