Kaydı Yönetici Şifresi İle Silmek

Şöyle yapabilirsiniz her forma kendi içinde diyelim ki adı kayitSil olan silme fonksiyonu tanımlarsınız, şifre formuna da argüman olarak sadece me.name gönderirsiniz şifre doğru ise frm.kayitSil fonksiyonu çağrılır böylece hem splite hem de kayıt idine gerek kalmaz sadece silip recordset güncelleme kodunu çalıştıran fonksiyonu çağırmak yeterli olur

---

Hiç denemedim çalışır mı nasil çalışır bilmiyorum ama recordsette kayıt silme kodu

recordsetAdi.Delete

Uzaylılarla iletişime geç deseydiniz benim için daha kolay olurdu
Ben işin kolayına kaçtım Mesajı genel tek mesaj şekline dönüştürdüm. Her şekilde o mesaj la hangi form olursa olsun silme işlemini gerçekleştirecek. Kasmaya gerek yok sorun da olmaz sanırım.

 If DCount("*", "t_kullanici", "yetki='admin' and sifre='" & Me.Password_TXT & "'") > 0 Then

            

        If MsgBox("Kaydedilmiş bilgiler 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

             

            CurrentDb.Execute "delete from T_HesapHareketleri where [ID]=" & Split(OpenArgs, ";")(1)

            frm.AcikMi



        End If