+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Veri girişlerinde silinmeyi önlemek. (/konu-veri-girislerinde-silinmeyi-onlemek.html)
Veri girişlerinde silinmeyi önlemek. - arif1971 - 09/05/2009
Hocam sizlere kolay gelsin, benim derdim access'de yapmış olduğum programa veri girişleri değişik kullanıcılar tarafından girildiği için silmeler ve veri kaybı oluyor. Kayıtlı veri girşini benim dışında başka birinin silmemesi için nereye ve nasıl parola koyabilirim.
Cvp: Veri girişlerinde silinmeyi önlemek. - mehmetdemiral - 09/05/2009
Yapılmış olan kayıtların silinmesini istemiyorsunuz sanırım. Ama yeni veri girilmesine ve eski verilerin görüntülenmesine bir engel olmayacak.
Formunuzu tasarım modunda açın ve en üst sol köşeye çift tıklayarak formun özelliklerine gelin. Burada eklediğim resme de bakarak kayıt silme ve değiştirmeyi hayır yapın. Bu kadar.
Kolay gelsin.
![[Resim: kayt.jpg]](http://img179.imageshack.us/img179/607/kayt.jpg)
Bu arada eğer yapmak istediğiniz şey kod kullanarak yetkilere göre kayıt denetimi ise forumumuzda bununla ilgili pekçok örnek var. Benim anlattığım yöntemi uygulayacaksanız, admin için ayrı user için ayrı formlar oluşturunuz. Ama bu iş kodla yapılacaksa, kod kullanarak alanların kayıt denetimi yapılabilir. Siz hangisini istiyorsunuz? Ona göre bilgi vereyim.
Cvp: Veri girişlerinde silinmeyi önlemek. - arif1971 - 09/05/2009
Hocam cevabınız için çok teşekkür ederim, benim istediğim bir olayı çözdünüz ama ben form üzerinde düzenleme ve silme işlemi yapmak istedğimde bana "parola" sormasını istiyorum yani ben yetki verdiğim kişi bunu yapmasını istiyorum yoksa her defasında "veri" etiketinde bunu yapmam gerekecek. Çok teşekküeler, sevgi ve saygılarımla.
Cvp: Veri girişlerinde silinmeyi önlemek. - mehmetdemiral - 10/05/2009
Formunuzun yüklendiğinde olayına
Kod:
Form.AllowAdditions = False 'burada ekleme yasaklandı
Form.AllowDeletions = False 'burada silme yasaklandı
Form.AllowEdits = False 'burada düzenleme yasaklandıKod:
Dim cevap As String 'cevap değişkeni tanımladık
Dim sayi As Integer ' sayi değişkeni tanımladık
1 'buraya basit bir döngü başlangıcı koydum
If sayi = 3 Then MsgBox "3 deneme yaptınız": Exit Sub 'eğer sayi değeri 3 olursa kodları bitir ve uyar
sayi = sayi + 1 ' sayi değerine 1 ekle
cevap = InputBox("Parola nedir?", vbOKOnly, "DEMİRAL") 'cevap değişkenini belirlemek için parolayı sor, girilen değeri değişkene ata
If cevap = "demiral" Then 'eğer cevap değişkeni "demiral" ise
Form.AllowAdditions = True 'ekleme yasağını kaldır
Form.AllowDeletions = True 'silme yasağını kaldır
Form.AllowEdits = True 'düzenleme yasağını kaldır
MsgBox "Kayıt kilidi açıldı" 'bilgi ver
Else 'değilse
MsgBox "Parola yanlış, Tekrar deneyin" 'uyar
GoTo 1 'döngü için 1 nolu satıra git
End If 'if olayını bitirİnceleyin. Anlayacaksınız. Açıklamalarını da yazdım. Ben yine de bir örnek gönderiyorum.
Cvp: Veri girişlerinde silinmeyi önlemek. - iskorcina - 23/01/2012
ben bunu formumda denedim. çalışıyor ancak formumdaki açılır menülerin çalışmasını engelliyor. taki şifreyi girip formu değiştirmeye izin verinceye kadar. bu verdiğiniz metodda açılır menülerin engellenmemesi nasıl temin edilir. yardımcı olursanız memmun olurum. teşekkürler.
Cvp: Veri girişlerinde silinmeyi önlemek. - alpeki99 - 23/01/2012
Hangi açılır menü? Örnek eklerseniz işimizi kolaylaştırmış olursunuz.