Kaydı Yönetici Şifresi İle Silmek

1 2 3 4
03/04/2020, 16:51

berduş

Şö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
03/04/2020, 19:58

Oğuz Türkyılmaz

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
           
1 2 3 4