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