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
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.