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