Ö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