Skip to main content

AccessTr.neT


Şartlı Veri Silmek

Şartlı Veri Silmek

Çözüldü #1
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.
.rar Örnek.rar (Dosya Boyutu: 118,05 KB | İndirme Sayısı: 6)
Cevapla
#2
Merhaba,

Öncelikle, açtığınız birçok konuda Yapılmaması Gereken Ölümcül HatalarURL'ye Git 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.

Visual Basic Code
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
Cevapla
#3
Çok, çok teşekkürler Hocam ellerinize sağlık tam istediğim gibi olmuş.

Hocam konuyu taşıyabilirsiniz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da