Merhaba Hocalarım

Eklediğim uygulama dosyamda Satis Formunda Acıklama Açılan kutusunda FATURA bilgisi varsa veriyi silmem için parola istesin. FATURA dışında başka bir veri varsa direk parolasız silmeme izin versin. Yapmaya çalıştım beceremedim. Bu konuda yardımlarınıza ihtiyacım var. Yardımlarınız için şimdiden teşekkürler.

Merhaba,

Öncelikle, açtığınız birçok konuda Yapılmaması Gereken Ölümcül Hatalar konusunu hatırlattık. Siz formdaki denetimde, denetim kaynağına "Aciklama", denetim adına da "Acıklama" yazarsanız, kod sayfasında kod eklerken ne olduğunu bulamazsınız. Denetim açılan kutu ise denetimin adı "acl_aciklama" olmalı.

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

Çok, çok teşekkürler Hocam ellerinize sağlık tam istediğim gibi olmuş.

Hocam konuyu taşıyabilirsiniz.