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.