AccessTr.neT

Tam Versiyon: Liste kutusunda Kayıt Silme Onayı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.
Ö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
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.
If IsNull(Me.Liste51) Then

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



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


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

iyi çalışmalar,
saygılar.
ç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