Sorry, nyelip dikit....
Kalau logikanya yg dibalik ??
yang diambil atau hitung adalah yg Qty <> 0 saja. (pakai Query)
jd yg qty = 0, tidak usah di kutak katik
gimana ?
Pada tanggal 23/06/08, buday uhuy <[EMAIL PROTECTED]> menulis:
>
> Mas Aksan,
>
> kalo menurut saya, tabel yang kuantitinya = 0, itu belum masuk transaksi,
> jadi boleh saja di hapus. Ini saya coba buat codingnya, tapi masih ada error
> message "type mismatch". Ada yang bisa membantu mengkoreksi coding saya, di
> mana letak salahnya ?
>
> Private Sub BUTDelete_Click()
> On Error GoTo Err_BUTDelete_Click
> Dim Db As CurrentProject
>
> If MsgBox("Yakin mau menghapus Part ? : " & Me!kodepart & "?", vbYesNo
> + vbQuestion, "Hapus Part") = vbYes Then
> If Me!quantity <> 0 Then
> MsgBox "Tidak bisa menghapus Part : " & Me!kodepart & " karena
> quantity Stock tidak sama dengan 0!", vbOKOnly + vbCritical, "Hapus Part"
> Else
> Set Db = CurrentProject.Connection
> CurrentProject.Connection.Execute "DELETE FROM TBLPart WHERE
> kodepart = 'Me!kodepart'"
>
> Me.Requery
> DoCmd.GoToRecord , , acNewRec
> Db.Close
> End If
> End If
>
> Exit_BUTDelete_Click:
> Exit Sub
>
> Err_BUTDelete_Click:
> MsgBox Err.Description, , "Hapus Part"
> Resume Exit_BUTDelete_Click
>
> End Sub
>
> ----- Original Message ----
> From: aksan kurdin <[EMAIL PROTECTED]>
> To: [email protected]
> Sent: Friday, June 20, 2008 10:43:56
> Subject: Re: [belajar-access] DeleteButton
>
> anda bisa TSQL ?
> coba cari di SQL Book Online mengenai sintak query di SQL Server, lalu
> jalankan di adp dengan memanfaatkan obyek connection dari
> currentproject:
>
> sub btnDelete_Click( )
> currentproject. connection. execute "DELETE barang WHERE qty = 0"
> end sub
>
> aksan kurdin
>
> ps. jika tabel barang adalah master barang, maka desain sistem anda
> tidak benar jika dibolehkan menghapus barang yang sudah pernah
> transaksi.
>
> 2008/6/19 buday uhuy <herr_haikal@ yahoo.com <herr_haikal%40yahoo.com>>:
> > Dear All....
> >
> > Perkenalkan saya budi, anggota baru milis ini, dan masih tahap
> > pemula/belajar belajar Access, dan selalu bingung ketika memulai coding.
> > Mudah-mudahan melalui milis ini saya bisa banyak belajar mengenai
> > pemrograman di Access.
> >
> > Kebetulan saya saat ini sedang mengerjakan Access Data Project (Adp)
> dengan
> > database SQL Server 2000. Saya buat FORM yang datanya di ambil dari tabel
> > barang, misalnya field2 yang ada di tabel barang:
> > 1. kodebarang
> > 2. nama barang
> > 3. quantity
> > Lalu di FORM saya tambahkan button delete (BTNDelete) untuk menghapus
> data
> > per-record. Record akan di hapus kalo quantity = 0.
> > Yang saya ingin tanyakan, bagaimana membuat coding untuk BTNDelete ini ?
> > Mungkin Moderator atau temen2 yang sudah Advance bisa membantu saya.
> > Sebelumnya saya ucapkan terima kasih.
> >
> > Salam,
> > Budi
> >
> > Send instant messages to your online friends http://uk.messenger
> .yahoo.com <http://uk.messenger.yahoo.com/>
> >
>
> --
> Aksan Kurdin
>
> Send instant messages to your online friends http://uk.messenger.yahoo.com
>
>
>
