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