Saya Coba Bantu ya.....
Coba tambahkan coding ini sebelum coding "TempIndex =
ListView1.SelectedItem.Index":
If ucase(listview1.selecteditem.subitem(5))="KELUAR" then
msgbox "Tidak dapat delete film ini"
exit sub
END IF
Semoga membantu
God Bless You
----- Original Message -----
From: SELVI OYE
To: [email protected]
Sent: Monday, April 14, 2008 6:18 PM
Subject: [indoprog-vb] Tolong Dong Query
dear team pakar Vb, aku minta tolong dong.
bagaimana caranya untuk mendelete data dari listview dgn data acces fieldnya
adalah:
no
kode_film
judul
qty
harga
status
status film aku buta 'ada' dan 'keluar'
kalau kita klik 2x di data listview, maka jika film berstatus 'keluar' tidak
bisa didelete tapi kalau status 'ada' baru bisa didelete.
akau udah coba script berikut tapi tetap aja terhapus semua :
Private Sub listView1_DblClick()
Dim i As Integer
Dim TempIndex As Integer
Dim strSQL As String
If ListView1.ListItems.Count = 0 Then
Exit Sub
'Form1.Show
End If
TempIndex = ListView1.SelectedItem.Index
TempKode = ListView1.ListItems.Item(TempIndex)
'Konfirmasi penghapusan record
jawab = MsgBox("Apakah Anda yakin Data " & kode_film & _
vbCrLf & " Akan dihapus ? ", vbInformation + vbYesNo)
If jawab = vbNo Then Exit Sub
If jawab = vbYes Then
strSQL = "select status FROM film " & _
"WHERE kode_film = '" & TempKode & "'"
Set RS_film = New ADODB.Recordset
RS_film.LockType = adLockOptimistic
RS_film.Open strSQL, con
On Error Resume Next
rsfilm.MoveFirst
rsfilm.Find "status" = "ADA"
If rsfilm.EOF Then
MsgBox "Kode film " & UCase(ListView1.ListItems) & _
" yang dicari tidak terdaftar !", vbInformation
Exit Sub
End If
'Pengeksekusian penghapusan
i = ListView1.SelectedItem.Index
ListView1.ListItems.Remove i
RS_film.Delete
End If
Exit Sub
End Sub
mohon bantuannya para pakar vb, aku lagi bikin untuk tugas akhir nih, please
ya......
________________________________________________________
Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi
Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/
[Non-text portions of this message have been removed]
#ygrp-mkp { BORDER-RIGHT: #d8d8d8 1px solid; PADDING-RIGHT: 14px;
BORDER-TOP: #d8d8d8 1px solid; PADDING-LEFT: 14px; PADDING-BOTTOM: 0px; MARGIN:
14px 0px; BORDER-LEFT: #d8d8d8 1px solid; PADDING-TOP: 0px; BORDER-BOTTOM:
#d8d8d8 1px solid; FONT-FAMILY: Arial}#ygrp-mkp HR { BORDER-RIGHT: #d8d8d8
1px solid; BORDER-TOP: #d8d8d8 1px solid; BORDER-LEFT: #d8d8d8 1px solid;
BORDER-BOTTOM: #d8d8d8 1px solid}#ygrp-mkp #hd { FONT-WEIGHT: bold;
FONT-SIZE: 85%; MARGIN: 10px 0px; COLOR: #628c2a; LINE-HEIGHT: 122%}#ygrp-mkp
#ads { MARGIN-BOTTOM: 10px}#ygrp-mkp .ad { PADDING-RIGHT: 0px;
PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px}#ygrp-mkp .ad A {
COLOR: #0000ff; TEXT-DECORATION: none}
[Non-text portions of this message have been removed]
