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>:
> 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
>
--
Aksan Kurdin
Send instant messages to your online friends http://uk.messenger.yahoo.com
