Skip to main content

AccessTr.neT


Liste kutusunda Kayıt Silme Onayı

Liste kutusunda Kayıt Silme Onayı

Çözüldü #1
sn arkadaşlar,liste kutusuyla ilgili bir sorunum var
tablodan liste kutusuna veri alıyorum. liste kutusunda bir kayıt seçtiğimde sil butonuna tıklandığında evet/hayır sorulu bir mesaj kutusu ve seçili kaydı silmek istiyormusunuz sorusu ile evet cevabıyla o kaydı tablodan ve listeden silmek ,hayır cevabıyla işlemin iptal edilmesini sağlamak istiyorum. ancak listeden bir kayıt seçilmediğinde, msgbox da listeden kayıt seçilmedi mesajı gelmeli ve işlem yine iptal olmalı.bir kod yazdık ama hata veriyor.

VBA kodu

If Liste51.ListCount - 1 Then
MsgBox "Lütfen bir kayıt seçiniz.", vbExclamation

Else

MsgBox "listedeki seçili kayıt silinsin mi?", vbYesNo = vbYes 'Then
CurrentDb.Execute "delete from SERVİS where SERVİS_KODU=" & Liste51
Liste51.Requery
Me.SERVİSKODU = ""
Me.SERVİSADI = ""
Liste69.Requery
kayitsay.Caption = ""
End If
End Sub

bu kodda düzeltme yapılabilir
saygılar.
hnakis, 15-10-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 30/11/2014, 02:14, Düzenleyen: hnakis.
Cevapla
#2
Örnek uygulama olmadan kesin çözüm biraz zor.

Aşağıdaki kodu uygulayınız, olumsuz sonuç alırsanız örnek uygulamanızı ekleyiniz.

If IsNull(Me.Liste51) Then

   MsgBox "Lütfen bir kayıt seçiniz.", vbExclamation
Else
   If MsgBox("listedeki seçili kayıt silinsin mi?", vbCritical + vbYesNo) = vbYes Then
       CurrentDb.Execute "delete from SERVİS where SERVİS_KODU=" & Liste51
       Liste51.Requery
       Me.SERVİSKODU = ""
       Me.SERVİSADI = ""
       Liste69.Requery
       kayitsay.Caption = ""
   Else
       Exit Sub
   End If
End If
Cevapla
#3
sn ozanakkaya
çalışmayı ekleyemedim. üzgünüm
kod çalışıyor. listeden kayıt seçilmeden sil butonuna basıldığında; listeden seçim yapınız uyarısı geliyor. listeden bir kayıt seçip butona basınca kaydı da siliyor. tek sorun kaydı sildikten sonra butona tekrar basınca listedeki seçili kayıt silinsin mi mesajı tekrar geliyor.
saygılar.
hnakis, 15-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
If IsNull(Me.Liste51) Then

kodunu aşağıdaki ile değiştiriniz.



If Liste51.ItemsSelected.Count = 0 Then
Cevapla
#5
sayın hnakis,


konu ile ilgili son durumunuz ne aşamadadır,bilgilendirmek ister misiniz.teşekkürler.

iyi çalışmalar,
saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#6
çok özür dilerim uzun zamandır internete giremiyordum. sn ozanakkayanın vb kodu işe yaradı. tekrar özür dilerim ve teşekkür ederim
hnakis, 15-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task