MS ACCESS MAILING LIST: Re: Bls: [belajar-access] Cancel Update Table

1. Buat qry_PenjualanHistori
SELECT Tbl_D_Penjualan.[Kode Barang], [Tbl_H_Transaksi Penjualan].[Tgl Faktur] AS Tanggal, [Tbl_H_Transaksi Penjualan].[Kode Customer] AS SupplierCustomer, Tbl_D_Penjualan.[Harga Jual Satuan] AS Harga, 0 AS masuk, Tbl_D_Penjualan.Quantity AS Keluar, [Tbl_H_Transaksi Penjualan].[No Faktur]
FROM [Tbl_H_Transaksi Penjualan] INNER JOIN Tbl_D_Penjualan ON [Tbl_H_Transaksi Penjualan].[No Faktur] = Tbl_D_Penjualan.[No Faktur];

2. Buat [qry_PembelianHistori]
SELECT Tbl_D_Pembelian.[Kode Barang], [Tbl_H_Transaksi Pembelian].[Tgl Faktur] AS Tanggal, [Tbl_H_Transaksi Pembelian].[Kode Supplier] AS SupplierCustomer, Tbl_D_Pembelian.Satuan AS harga, Tbl_D_Pembelian.Quantity AS masuk, 0 AS keluar, [Tbl_H_Transaksi Pembelian].[No Faktur]
FROM [Tbl_H_Transaksi Pembelian] INNER JOIN Tbl_D_Pembelian ON [Tbl_H_Transaksi Pembelian].[No Faktur] = Tbl_D_Pembelian.[No Faktur];

3. Buat qry_HistoriBarang
SELECT qry_PembelianHistori.[Kode barang],qry_PembelianHistori.Tanggal, qry_PembelianHistori.SupplierCustomer, qry_PembelianHistori.harga, qry_PembelianHistori.masuk , qry_PembelianHistori.keluar,qry_PembelianHistori.[No Faktur] FROM qry_PembelianHistori UNION select qry_PenjualanHistori.[kode barang],qry_PenjualanHistori.Tanggal , qry_PenjualanHistori.SupplierCustomer, qry_PenjualanHistori.Harga,qry_PenjualanHistori.masuk, qry_PenjualanHistori.Keluar , qry_PenjualanHistori.[No Faktur]
FROM qry_PenjualanHistori;

4. Buat relasi antara field [KodeBarang] dari Tbl_Barang dan field [Kode Barang] dari qry_HistoriBarang

5. Ubah panjang field, tapi hilangkan garis relasi antara
a. [Tbl_H_Transaksi Pembelian] dan [Tbl_D_Pembelian]
b. [Tbl_H_Transaksi Penjualan] dan [Tbl_D_Penjualan]
c. [Tbl_H_Transaksi Pembelian] Field [No Faktur] panjang field diubah 5 , agar kosinten dgn Field [No Faktur ] pada [Tbl_D_Pembelian]
d. [Tbl_H_Transaksi Penjualan] Field [No Faktur] panjang field diubah 5 , agar kosinten dgn Field [No Faktur ] pada [Tbl_D_Penjualan]
6. Buat lagi relasi yang dihapus pada point 5.a dan 5.b

'=============
--- In belajar-access@yahoogroups.com, "sudarsono" <jkssbma@...> wrote:
>
>
> Apa fungsi tabel persamaan ?
> kalau mau menampilkan data histori penjualan dan pembelian produk ,
>
> 1. buat Query tipe Union untuk barang yang dibeli dan dijual , misal
> namanya [Qry_HistoriBarang]
>
> 2 buat form yang berisi data [Qry_historiBarang] ,misal namanya
> [Frm_HistoriBarang]
>
> 3. buat form yang berisi data barang , misal [Frm_BarangHistori]
>
> 4. tambahkan [Frm_HistoriBarang] pada [Frm_BarangHistori] , sehinga
> menjadi sub Form
>
> 5. pada [Link Master Fields] dan [Link Child Fields] dengan [kode
> Barang]
>
> Coba , jika berhasil kirim ( update terakhir ya ... )
>
>
>
> --- In belajar-access@yahoogroups.com, "jkssbma" <jkssbma@> wrote:
> >
> >
> > pada form [frm_Transaksi Penjualan] :
> >
> > Text29 --> Disc
> >
> > Text27 --> ppn
> >
> > di tab [data] property [default value] beri nilai 0 ( nol ), agar pada
> > saat buka form [frm_Transaksi Penjualan] , total bayar muncul angka
> yang
> > benar .
> >
> > '=========
> >
> > --- In belajar-access@yahoogroups.com, "sudarsono" jkssbma@ wrote:
> > >
> > >
> > > Private Sub Form_Current()
> > > If Me.NewRecord Then
> > > oldQty = 0
> > > Else
> > >
> > > ' ganti :
> > >
> > > ' oldQty = Me.Quantity_Barang
> > >
> > > 'dengan :
> > >
> > > oldQty = Nz(Me.Quantity_Barang.OldValue, 0)
> > >
> > > End If
> > > End Sub
> > >
> > > '' aplikasinya sudah cukup lengkap juga ya .... ( good !!! , niru
> > > gayanya ...?? lupa , yang jadi moderator Indonesia mencari Bakat)
> > >
> > > '===========
> > > --- In belajar-access@yahoogroups.com, Fajrie Shine fajrie_shine@
> > > wrote:
> > > >
> > > > Dear Mr. Sofyan
> > > >
> > > > Ini file *.accdb nya pak,,,,
> > > > saat terjadi transaksi, jika transaksi di batalkan, nantinya akan
> > ada
> > > pesan
> > > > yang muncul, pesan untuk update tbl_ Barang, Jika milih No
> nantinya
> > > malah
> > > > muncul debug
> > > > Mohon Bantuan untuk perbaikannya pak,,,,
> > > > Sekalian minta bantuannya untuk pembuatan form
> > > > hehehehe
> > > > sy gak bisa buat form seperti yang di inginkan
> > > > gambarannya saya sertakan bersama di dalam Attachment
> > > > Mohon Bantuannya pak untuk pembuatan formnya
> > > >
> > > > Terimakasih
> > > >
> > > >
> > > >
> > > >
> > > >
> > > > ________________________________
> > > > Dari: Sofyan Efendi sofyanefendi@
> > > > Kepada: belajar-access@yahoogroups.com
> > > > Terkirim: Rab, 1 Juni, 2011 11:45:51
> > > > Judul: Re: [belajar-access] Cancel Update Table
> > > >
> > > >
> > > > ï»¿
> > > > Dear Mas Fajrie, pada:
> > > >
> > > > & oldQty &
> > > >
> > > > Apakah oldQty itu nama field di formnya? Adakah pesan errornya
> saat
> > > menjalankan
> > > > query ini?
> > > >
> > > > Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > > Sofyan Efendi.
> > > > http://opi.110mb.com/
> > > > ----- Original Message -----
> > > > >From: Fajrie Shine
> > > > >To: Belajar Access
> > > > >Sent: Wednesday, June 01, 2011 9:57 AM
> > > > >Subject: [belajar-access] Cancel Update Table [1 Attachment]
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >Dear Master Access
> > > > >
> > > > >Assallamu'alaikum WR.WB
> > > > >
> > > > >Mohon Bantuannya lagi nih
> > > > >untuk cancel update table/ undo record update table saat
> > > > >record di delete
> > > > >vb saya seperti ini
> > > > >
> > > > >Private Sub Form_AfterUpdate()
> > > > >DoCmd.SetWarnings False
> > > > >DoCmd.RunSQL "Update Tbl_Barang SET [Stok Keluar] = [Stok
> > > > >Keluar] + " & Me.Quantity_Barang & " - " & oldQty & "
> > > > >WHERE [KodeBarang] = '" & Me.cb_kode_barang & "'"
> > > > >DoCmd.SetWarnings True
> > > > >End Sub
> > > > >
> > > > >Bagaimana caranya ya???
> > > > >Terimakasih
> > > > >Wassallamu'alaikum WR.WB
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > >
> > >
> >
>