dugaan saya, pada saat event cmd_simpan_Click, posisi Dt_InNOInvoice adalah record yg paling akhir, sehingga Do While Not Dt_InNOInvoice.Recordset.EOF hanya dilakukan sekali yaitu pada record terakhir. Akibatnya yang tersimpan hanya 1 record saja.
coba tambahkan Dt_InNOInvoice.MoveFirst sebelum Do While Not Dt_InNOInvoice.Recordset.EOF. Private Sub cmd_simpan_Click() Dt_InNOInvoice.MoveFirst Do While Not Dt_InNOInvoice.Recordset.EOF If Not Dt_InNOInvoice.Recordset!Description <= Space(10) Then Dt_invoice.Recordset.AddNew ... ... semoga berhasil salam, cahyo --- In [email protected], "ridwansyah" <[EMAIL PROTECTED]> wrote: > > sory mas bikinn bingungin > ini data source sbb : > thank berat yaaaa > Adodc1(dt_NoInvoice) > > Adodc2(Dt_Custemer) > > Adodc3(DT_InNOinvoice) data buat manifulasi > > Adodc4(Dt_invoice) Yang di save > > > > ini data source tambah data = berhasil > Private Sub cmd_tambah_Click() > > On Error Resume Next > > Dt_InNOInvoice.Recordset.AddNew > > Dt_InNOInvoice.Recordset!cd_barang = DataCombo2 > > Dt_InNOInvoice.Recordset!No_urut = Combo1 > > Dt_InNOInvoice.Recordset!Description = TXT_DESCRIPTION.Text > > Dt_InNOInvoice.Recordset!box = Txt_Box.Text > > Dt_InNOInvoice.Recordset!Remark = txt_remark.Text > > Dt_InNOInvoice.Recordset!qty = Val(txt_QTY.Text) > > Dt_InNOInvoice.Recordset!Unit_price = TXT_UnitPrice > > Dt_InNOInvoice.Recordset!AMOUNT = txt_amount.Text > > Dt_InNOInvoice.Recordset.Update > > Dt_InNOInvoice.RecordSource = "select*from Innoinvoice > in 'D:\jasakom\vb\DataAccess\Marketing3.mdb'" > > On Error GoTo 0 > > FORM_KOSONG2 > > > > End Sub > > ini data source simpan = tidak berhasil > > Private Sub cmd_simpan_Click() > Do While Not Dt_InNOInvoice.Recordset.EOF > If Not Dt_InNOInvoice.Recordset!Description <= Space(10) Then > Dt_invoice.Recordset.AddNew > Dt_invoice.Recordset!no_invoice = TXT_NOINVOICE.Text > Dt_invoice.Recordset!No_FakPajak = TXT_NOFPSSI.Text > Dt_invoice.Recordset!npwpssi = txt_npwpssi.Text > Dt_invoice.Recordset!manager = TXT_MANAGER.Text > Dt_invoice.Recordset!tanggal = DTPicker1.Value > 'DT_INVOICE.Recordset!tanggal = TXT_TANGGAL.Text > > Dt_invoice.Recordset!cd_custemer = DataCombo1.Text > Dt_invoice.Recordset!nama = Dt_Custemer.Recordset!nama > Dt_invoice.Recordset!alamat = Dt_Custemer.Recordset! alamat > Dt_invoice.Recordset!alamat2 = Dt_Custemer.Recordset! alamat2 > Dt_invoice.Recordset!telp = Dt_Custemer.Recordset!telp > Dt_invoice.Recordset!NPWP = TXT_NPWPCUSTEMER.Text > Dt_invoice.Recordset!NoFP = TXT_FPCUSTEMER.Text > > Dt_invoice.Recordset!No_urut = Dt_InNOInvoice.Recordset!No_urut > Dt_invoice.Recordset!cd_barang = Dt_InNOInvoice.Recordset!cd_barang > Dt_invoice.Recordset!Description = Dt_InNOInvoice.Recordset!Description > Dt_invoice.Recordset!Unit_price = Dt_InNOInvoice.Recordset!Unit_price > Dt_invoice.Recordset!qty = Dt_InNOInvoice.Recordset!qty > Dt_invoice.Recordset!AMOUNT = Dt_InNOInvoice.Recordset! AMOUNT > Dt_invoice.Recordset!Remark = Dt_InNOInvoice.Recordset! Remark > Dt_invoice.Recordset.Update > End If > Dt_InNOInvoice.Recordset.MoveNext > form_kosong > Loop > Dt_invoice.Refresh > End Sub > > ini data source data dikosongkan = berhasil > > Sub form_kosong() > TXT_NOINVOICE.Text = "" > TXT_NOFPSSI.Text = "" > TXT_MANAGER.Text = "" > TXT_TANGGAL.Text = "" > DataCombo1.Text = "" > DataCombo2.Text = "" > txt_nama.Text = "" > txt_alamat.Text = "" > txt_alamat2.Text = "" > TXT_telp.Text = "" > txt_npwpssi.Text = "" > TXT_NPWPCUSTEMER.Text = "" > TXT_FPCUSTEMER.Text = "" > txt_Description.Text = "" > txt_UnitPrice.Text = "" > txt_QTY.Text = "" > txt_amount.Text = "" > txt_remark.Text = "" > If Not Dt_InNOInvoice.Recordset.RecordCount = 0 Then > Dt_InNOInvoice.Recordset.MoveFirst > Do While Not Dt_InNOInvoice.Recordset.EOF > Dt_InNOInvoice.Recordset.Delete > Dt_InNOInvoice.Recordset.MoveNext > Loop > End If > On Error GoTo 0 > > > End Sub > > [Non-text portions of this message have been removed] >
