Private Sub Sil_Temizle_Click()
'On Error GoTo Err_Sil_Temizle_Click


If IsNull(Me.FirmaAdi) Then
MsgBox "<<<< LÜTFEN SİLMEK İSTEDİĞİNİZ MÜŞTERİYİ SEÇİNİZ >>>>", 48, "Kayıt İşlemi": Me.FirmaAdi.SetFocus: Exit Sub '''''
End If

If Me.Acıklama = "FATURA" Then

    Dim Sifre As String
    Sifre = "99"
    
    
    Dim s As String
    
    s = InputBox("Lütfen Silme Şifresini Giriniz")
    If StrPtr(s) = 0 Then
         MsgBox "işlem iptal edildi"
         Exit Sub
    Else
    
        If s = Sifre Then
        
            If MsgBox("...!!!.MÜŞTRİ KAYDI SİLİNECEK.!!!...!!!.EMİNMİSİNİZ?.!!!...", vbYesNo + vbQuestion, "Müşteri Takip") = vbYes Then
                Call sil_Click
                MsgBox ("Seçtiğiniz satış silinmiştir")
                DoCmd.GoToRecord , , acNewRec
            Else
                MsgBox "işlem iptal edildi"
                Exit Sub
            End If
            
       Else
           MsgBox "Girdiğiniz Şifre Hatalıdır"
       End If
       
    End If
    

 
Else
    

    Call sil_Click
    MsgBox ("Seçtiğiniz satış silinmiştir")
    DoCmd.GoToRecord , , acNewRec
    arama = vbNullString
    gecici = vbNullString
    Firma = vbNullString
    gecici3 = vbNullString
    
End If
    
   

    
    Liste.Requery
    Me.FirmaAdi.SetFocus '''''Kayıtan sonra İmleç istediğimiz ListBoxa gider
    Me.Firma = ""
    GEL_TOPLAM_MAT.Visible = True
    GİD_TOPLAM_MAT.Visible = True
    FARK_MATRAH.Visible = True
    
    Recalc

End Sub