Begini, intinya kalau mau ngedit di data ada beberapa hal yang harus diperhatikan
namanya ngedit data kan harus ada data mana yang diedit jadi harus dicari dulu recordnya, keterangan error : No Curent Record jelas menunjukkan program tidak menemukan data yang akan diedit, iya toh. Syaratnya harus ada indexnya, baru dikasih rumus pencarian data sebelum melakukan edit gitu (diatas data.recordset.edit), rumusnya cari sendiri ya --- In [email protected], "Pungki Ninaber" <[EMAIL PROTECTED]> wrote: > > 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 > > > > >
