Kaydı Yönetici Şifresi İle Silmek

1 2 3 4
03/04/2020, 12:23

Oğuz Türkyılmaz

(03/04/2020, 12:20)berduş yazdı: If Len(Me.ID_TXT) > 0 Then DoCmd.OpenForm "F_Password", , , , , , Me.Name & ";" & Me.ID_TXT Else MsgBox "herhangi bir kayıt seçilmedi?" satırını iptal edip sadece mesaj kutusu ekleyerke deneyin

Msgbox "sil dugmesine basildi"
gibi bir mesaj kutusunun çalışması gerek
Ana uygulamamdaki formları sildim yaptığınız örnekteki fomları transfer ettim içeri şu an hata vermiyor birşeyi eksik yazmışım demek ki ama ne bilmiyorum sizi uğraştırmıyım daha fazla teşekkür ederim.
03/04/2020, 12:26

berduş

Aklıma gelen tek şey şimdiye kadar sorun çıkarmayıp bu kodu eklediğinizde çıkarıyorsa forumunuzda ID_TXT kutusunun olmamasıdır belki kutunun adı farklıdır o nedenle hate veriyordur
03/04/2020, 12:32

Oğuz Türkyılmaz

(03/04/2020, 12:26)berduş yazdı: Aklıma gelen tek şey şimdiye kadar sorun çıkarmayıp bu kodu eklediğinizde çıkarıyorsa forumunuzda ID_TXT kutusunun olmamasıdır belki kutunun adı farklıdır o nedenle hate veriyordur

Metin kutusunda Kod var ama Metin kutusu  görünür değil. Foruma yüklediğim sizin üzerinde çalıştığınız kısım ile de aynı zaten. Herhalde sizin yaptığınız ama benim göremediğim bir değişiklik daha var sanırım başka bir açıklaması yok.
03/04/2020, 13:26

berduş

Eklemeler tabi ki yapmışımdır ama bahsettiğiniz yerde sadece ID_txt alani var başka birşey yok
03/04/2020, 13:34

Oğuz Türkyılmaz

(03/04/2020, 13:26)berduş yazdı: Eklemeler tabi ki yapmışımdır ama bahsettiğiniz yerde sadece ID_txt alani  var başka birşey yok
İzinsiz silme yapılmasını istemediğim 2-3 form daha var onlara da eklemeleri yapayım bakalım onlarda sorun olacak mı olmaz sa ne iyi olduğu takdirde ne yapılabilir düşünürüz.
03/04/2020, 16:20

Oğuz Türkyılmaz

Sn.@berduş hata diğer formlarda oluşmadı fakat F_Password altına yazdığımız kod 2.bir tabloda silme yaptırmak istediğimde doğal olarak ilk if sorusunuda soruyor. Gelir formunda silme işlemi yapmak için mecburen ilk 
Ayni Yardim Kaydı ve bilgileri silinecek, İşlemin geri dönüşü yoktur, eminmisiniz  sorusunuda ekranda görmek ve tamam demek sonra ikinci çıkan pencerede de
Hesap Hareketleri Kaydı ve bilgileri silinecek, İşlemin geri dönüşü yoktur, eminmisiniz ? sorusuna tamam diyerek onaylamak gerekiyor. Böyle bir durumda ilk soru penceresini nasıl engelleriz.



Private Sub Password_TXT_AfterUpdate()
Dim limit As Integer
Dim frm As Form
Set frm = Forms(Split(OpenArgs, ";")(0))


    If DCount("*", "t_kullanici", "yetki='admin' and sifre='" & Me.Password_TXT & "'") > 0 Then
           
            If MsgBox("Ayni Yardim Kaydı ve bilgileri silinecek, İşlemin geri dönüşü yoktur, eminmisiniz ? ", vbCritical + vbYesNo, " !!! DİKKAT !!! ") = vbYes Then
           
                CurrentDb.Execute "delete from T_AyniYardim where [ID]=" & Split(OpenArgs, ";")(1)
                frm.AcikMi
               
            If MsgBox("Hesap Hareketleri Kaydı ve bilgileri silinecek, İşlemin geri dönüşü yoktur, eminmisiniz ? ", vbCritical + vbYesNo, " !!! DİKKAT !!! ") = vbYes Then
           
                CurrentDb.Execute "delete from T_HesapHareketleri where [ID]=" & Split(OpenArgs, ";")(1)
                frm.AcikMi

            End If
            End If
       
            Else
       
            limit = limit + 1
           
            MsgBox "Şifre Yanlış", vbExclamation, "HATALI ŞİFRE"
                   
    End If

        If limit = 3 Then

        End If
       
        'Me.Password_TXT = ""
        'Me.Password_TXT.SetFocus

End Sub
1 2 3 4