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]
