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.

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