mas pertanyaannya bikin bingung, bisa kirim source nya aja ga?
--- In [email protected], "ridwansyah" <[EMAIL PROTECTED]> wrote: > > KO BLM ADA TANGGAPAN NIII > thank Atas saran nya Mas Andreas and Vb mania > tapi saya coba dengan sintak sbb: tetap sama bila di save data cuman 1 yaitu data terakhir > mungkin sintak saya ada yang salah > tolong dong solusinya vb mania > sintak yang lebih ok > > > Adodc1(dt_NoInvoice) > Adodc2(Dt_Custemer) > Adodc3(DT_InNOinvoice) data buat manifulasi > Adodc4(Dt_invoice) Yang di save > > 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 > Loop > DT_INVOICE.Refresh > form_kosong > End Sub > > 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 > > 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] >
