Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Liste kutusundan veri silme

alberto22
alberto22
Access Cevaplanmış Soruları
4
5047

Liste kutusundan veri silme

Çözüldü #1
alberto22
Üye
alberto22
Bul
Üye
Adı Soyadı:
Yaşı: 35
Konum: Adana
Ofis Versiyonu: Ofis 2003
Son Oturumu: 19/12/2009,08:00
Yorumları: 4
Konuları: 2
Kayıt Tarihi: 22/03/2009
Teşekkür Puanı: 0
arkadaşlar ekteki form da listekutusuna veriler giriyorum ve bu verilerin toplamını bi metin kutusunda alıyorum. fakat listekutusuna girdiğim veriyi tekrar silmeyi ve toplam dan değerini çıkarmayı bi türlü beceremedim.. acaba nasıl yapabilirim....
.zip ornek.zip (Dosya Boyutu: 20,78 KB | İndirme Sayısı: 25)
Cevapla
Çözüldü #2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
liste kutusunun tıklandığında olayına aşağıdaki kodu yaz

Kod:
Dim secilen, fiyat As Integer 'secilen:listeden seçilen veri, fiyat: listeden seçilenin fiyatı
secilen = d
d.RemoveItem (secilen) 'secileni listeden sil
fiyat = Right([secilen], InStr(1, [secilen], "") + 1) 'seçilen verinin fiyatını al
toplam = toplam - fiyat 'toplamdan seçileni çıkart
.rar sled_2668.rar (Dosya Boyutu: 13,14 KB | İndirme Sayısı: 91)
Cevapla
Çözüldü #3
ayhan2122
accesstr.net , gayet net ;)
ayhan2122
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 47
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 10/02/2021,19:44
Yorumları: 681
Konuları: 26
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 451
inceleyiniz
.zip ornek.zip (Dosya Boyutu: 18,19 KB | İndirme Sayısı: 77)
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #4
mehmetdemiral
.
mehmetdemiral
Bul
Uzman
Adı Soyadı: Me.... De....
Yaşı: 59
Konum: Samsun
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 10/07/2024,19:24
Yorumları: 5.123
Konuları: 224
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 1.947
Mesleğiniz: Öğretmen
Ben de Sledgeab'ın örneği üzerindek şöyle birşey önereceğim: Kodları tek tıklamaya değil çift tıklamaya yaz. Birf de onay iste. Sledgeab temelini yazmış, süslemeyi de ben yapayım dedimImg-grin))

Kodlar o zaman şöyle olur:


Kod:
Private Sub d_DblClick(Cancel As Integer)
cevap = MsgBox("Seçilen ürünü silmek istediğinize emin misiniz?", vbYesNo, "SİLME ONAYI")
If cevap = 6 Then

Dim secilen, fiyat As Integer 'secilen:listeden seçilen veri, fiyat: listeden seçilenin fiyatı
secilen = d
d.RemoveItem (secilen) 'secileni listeden sil
fiyat = Right([secilen], InStr(1, [secilen], "") + 1) 'seçilen anakart asus 53 verisinin 53ünü al
toplam = toplam - fiyat 'toplamdan seçileni çıkart
Else
MsgBox "Silme işlemi yapılmadı", vbOKOnly, "SİLME YAPILMADI"
End If
End Sub
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #5
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
sn alberto22, zahmet olmazsa sorunun çözülüp çözülmediğini yazınız.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task