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
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> >
>
Tidak ada komentar:
Posting Komentar