Database nya mungkin. Udah diset belum primary key nya yang mana...
2008/7/14 thakin Caca <[EMAIL PROTECTED]>: > 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 > >
