Skip to main content

AccessTr.neT

Kayıt Ol

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

Sadece Seçilen Malzemeyi Sildirme

untouchable
untouchable
Access Cevaplanmış Soruları
6
1105

Sadece Seçilen Malzemeyi Sildirme

Çözüldü #1
untouchable
UntouchabLe
untouchable
Bul
Aktif Üye*
Adı Soyadı: Ha....
Yaşı: 34
Konum: Van
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 23/03/2022,17:36
Yorumları: 132
Konuları: 33
Kayıt Tarihi: 04/10/2018
Teşekkür Puanı: 0
Mesleğiniz: Bilgisayar
Merhabalar,

Kod:
Private Sub Komut13_Click()
If MsgBox("" & Me.lstMalzeme.Column(2) & "  Malzemesini Listeden Çıkarmak İstediğinize Emin Misiniz ?", vbCritical + vbYesNo, "VEDAŞ Bakım Onarım") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL ("DELETE no, malzeme_kodu, malzeme_adi, malzeme_birimi, fiili_stok, kullanılan_miktar, is_emri_detayi FROM kullanici_girisi WHERE (((malzeme_adi)= Eval('[Forms]![malzeme_giris]![lstMalzeme].Column(2)')));")
DoCmd.SetWarnings True
Me.lstMalzeme.Requery
Else
Exit Sub
End If
End Sub
Liste kutusuna eklediğim malzemeyi silmek için yukarıdaki kodu kullanıyorum fakat silme işlemi için seçtiğim malzeme tabloda kaçtane varsa siliniyor ben sadece seçilenin silinmesini istiyorum yardımcı olabilir misiniz ?
Son Düzenleme: 11/09/2019, 10:02, Düzenleyen: untouchable.
Cevapla
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,13:36
Yorumları: 8.499
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
benzersiz ID alanı var mı liste kutusunda, hangi sütunda? Ayrıca "delete " kullanırken tek tek alan yazmanıza gerek yok
"delete from ….."  yeterli
Cevapla
#3
untouchable
UntouchabLe
untouchable
Bul
Aktif Üye*
Adı Soyadı: Ha....
Yaşı: 34
Konum: Van
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 23/03/2022,17:36
Yorumları: 132
Konuları: 33
Kayıt Tarihi: 04/10/2018
Teşekkür Puanı: 0
Mesleğiniz: Bilgisayar
Hocam benzersiz alan kimlik kısmı var sadece
Cevapla
#4
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,13:36
Yorumları: 8.499
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
o zaman liste kutusuna kimlik alanını da ekleyip silme işlemini ona göre yapmayı deneyebilirsiniz?
Cevapla
#5
untouchable
UntouchabLe
untouchable
Bul
Aktif Üye*
Adı Soyadı: Ha....
Yaşı: 34
Konum: Van
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 23/03/2022,17:36
Yorumları: 132
Konuları: 33
Kayıt Tarihi: 04/10/2018
Teşekkür Puanı: 0
Mesleğiniz: Bilgisayar
Hocam Column(2) haricinde değiştirince silme yapmıyor kimlik kısmını Column(0) ekledim ve kodda o şekilde düzelttim fakat silmiyor
Cevapla
#6
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,13:36
Yorumları: 8.499
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
"kullanıcı_girisi" tablosundaki malzemeyi tanımlayan alanın "Kimlik" alanı olduğu ve liste kutusunda ilk sütunda yer aldığı varsayılmıştır
dilerim işinize yarar
Kod:
Private Sub Komut13_Click()
If MsgBox("" & Me.lstMalzeme.Column(2) & "  Malzemesini Listeden Çıkarmak İstediğinize Emin Misiniz ?", vbCritical + vbYesNo, "VEDAŞ Bakım Onarım") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE  FROM kullanici_girisi WHERE  [Kimlik]=" & me.lstMalzeme.column(0)
DoCmd.SetWarnings True
Me.lstMalzeme.Requery
Else
Exit Sub
End If
End Sub
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task