Skip to main content

AccessTr.neT


Veri girişlerinde silinmeyi önlemek.

Veri girişlerinde silinmeyi önlemek.

Çözüldü #1
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.
Cevapla
Çözüldü #2
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]
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.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #3
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.
Cevapla
Çözüldü #4
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ı

kodlarını yazınız. Daha sonra formunuza bir buton koyun ve butonun click olay yordamına

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

kodlarını yapıştırın. Böylece şifre soran ve 3 yanlışta kapanan bir dialog penceresi gelecek. Şifre "demiral"..

İnceleyin. Anlayacaksınız. Açıklamalarını da yazdım. Ben yine de bir örnek gönderiyorum.
.rar deneme.rar (Dosya Boyutu: 14,86 KB | İndirme Sayısı: 55)
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #5
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.
Son Düzenleme: 23/01/2012, 14:22, Düzenleyen: iskorcina.
Cevapla
Çözüldü #6
Hangi açılır menü? Örnek eklerseniz işimizi kolaylaştırmış olursunuz.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da