--- dessy indriani <[EMAIL PROTECTED]> wrote:
> 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
>
ooo Itu kurang di Cmdsave
With Data1.Recordset
'tambahkan
.movefirst
