28 January 2016


Setelah Edit/Update data, selanjut nya adalah proses delete/hapus.

Untuk menambahkan fungsi delete, tambahkan procedure berikut pada event cmdDelete_Click :
Private Sub cmdDelete_Click()
On Error GoTo errHandler

'jika data kosong code pada event ini tidak akan dijalankan
If rsData.RecordCount = 0 Then Exit Sub

'konfirmasi penghapusan
If MsgBox("Yakin akan menghapus kategori " & _
          rsData!categorycode & "?", vbOKCancel) = vbOK Then
   RunQuery "DELETE FROM category WHERE " & _
            "categorycode = '" & rsData!categorycode & "'"
   MsgBox "Data Terhapus"
End If

'membersihkan control input

cmdCancel_Click

Exit Sub
errHandler:
MsgBox Err.Number & ":" & Err.Description
End Sub


Coba run aplikasi dengan F5.
Pilih baris data yang akan dihapus, kemudian klik tombol Delete.

 Sebelum data benar-benar dihapus akan ada pesan konfirmasi. Klik Ok untuk melanjutkan hapus
 Setelah data terhapus akan muncul pesan konfirmasi
 Data yang sudah terhapus tidak akan tampil lagi di grid.

Lihat code lengkapnya disini.


Click here if you like this article.


0 comments: