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]
