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

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

Eklemeler tabi ki yapmışımdır ama bahsettiğiniz yerde sadece ID_txt alani var başka birşey yok

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

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