Öncelikle, açtığınız birçok konuda Yapılmaması Gereken Ölümcül Hatalar
![URL'ye Git](../images/icons/external_link.png)
Kodun tamamını aşağıdaki ile değiştirerek deneyiniz.
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