ACCESS FEED: Re: Bls: [belajar-access] Cancel Update Table

Rabu, 01 Juni 2011

Re: Bls: [belajar-access] Cancel Update Table

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
> >
> >
> >
> >
> >
> >
> >
> >
>