AccessTr.neT

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