Bahsettiğiniz talebinizin çözümü için direkt tablodan yapılamaz fakat form oluşturup aşağıda anlatımları yapılan iki seçenek uygulanarak yapılabilir.fakat bu iki seçeneği uygularken sonrası için yapılması gereken başka kodlama işlemleri de söz konusu.zira,her iki seçenekteki ayarlamaları yaparken dışarıdan müdahale edilmesini engellemiş oluyorsunuz fakat kendiniz,ilgili kayıtta bir düzenleme ya da güncelleme yapmak istediğiniz takdirde siz de bu engellemeye maruz kalmış olacaksınız.doğal olarak da,siz de bir işlem yapamayacaksınız.fakat bunu gidermek için birkaç kod yazmanız yeterli olacaktır.bu kodlar,seçeneklerin anlatımları içerisinde bahsedilecektir.Ek’te,bu iki seçeneğe yönelik örnek uygulama mevcuttur.inceleyebilirsiniz.
SEÇENEK-1 / METİN KUTUSUNUN KİLİTLİ İZNİNİ GEÇERSİZ KILMA (ÖRNEK: Form1)
Me.metin_kutusu_adi.Locked = True (Locked =Kilitleme işlemi için kullanılmaktadır)
Öncelikle,formunuzun tasarım sayfasındayken,kilitlenmesini istediğiniz metin kutusuna sağ tuş ile tıklayıp
Özellikler – Veri – Kilitli satırını EVET olarak değiştiriniz.böylece, o metin kutusuna gelindiğinde herhangi bir içerik düzenlemesi söz konusu olmayacaktır.fakat tabi ki,bu ayarlama ile kişilerin dışarıdan ilgili metin kutusuna müdahale etmesini engellerken,siz de aynı engellemeye maruz kalacaksınızdır.bunu gidermek için;
Örnekteki Form1deki gibi,kilitlemek istenilen metin kutusunun çift tıklandığında olay yordamına (örnekte,isim metin kutusu tercih edilmiştir)bir Inputbox ile şifre sorulup bu şifrenin doğru olması sonucunda da o metin kutusunun kilidinin açılması sağlanmış olmaktadır.akabinde de,gerek görülecek yeni kayıt değişimleri sonrasında Güncelleme butonuna da,gerekli UPDATE Sql sorgu ifadesi yazılarak güncellemenin yapılması sağlanabilir ve en son olarak da bu güncelleme sorgusunun sonuna yine ilgili metin kutusunun kilitlenmesi tekrar sağlanabilir.
Private Sub isim_DblClick(Cancel As Integer)
Dim bilgial, sifreyaz
sifreyaz = "123"
bilgial = InputBox("Şifreyi giriniz", "Şifre?")
If bilgial = sifreyaz Then
'metin kutusunun kilidini açmak için
Me.isim.Locked = False
Me.Komut12.Enabled = True
Else
MsgBox ("Şifre hatalı"), vbCritical, "UYARI"
End If
End Sub
Private Sub Komut12_Click()
MsgBox ("kayıt güncellendi")
'metin kutusunun kilidini tekrar kapatmak için
Me.isim.Locked = True
Me.isim.SetFocus
Me.Komut12.Enabled = False
End Sub
SEÇENEK-2 / FORMUN GENEL DÜZENLENME İZNİNİ GEÇERSİZ KILMA (ÖRNEK: Form2)
Me.AllowEdits = True (AllowEdits=Düzenleme izni için kullanılmaktadır)
Formunuzun tasarım sayfasındayken,boş bir alanına sağ tuş ile tıklayıp
Özellikler – Veri – Düzenleme İzni satırını EVET olarak değiştiriniz.böylece, bir kayda gelindiğinde o kayıt için herhangi bir veri düzenlemesi söz konusu olmayacaktır.fakat tabi ki,bu ayarlama ile kişilerin dışarıdan kayıtlara müdahale etmesini engellerken,siz de aynı engellemeye maruz kalacaksınızdır.bunu gidermek için;
Örnekteki Form2deki gibi,herhangi bir metin kutusunun çift tıklandığında olay yordamına (örnekte,isim metin kutusu tercih edilmiştir)bir Inputbox ile şifre sorulup bu şifrenin doğru olması sonucunda da o metin kutusunun kilidinin açılması sağlanmış olmaktadır.akabinde de,gerek görülecek yeni kayıt değişimleri sonrasında Güncelleme butonuna da,gerekli UPDATE Sql sorgu ifadesi yazılarak güncellemenin yapılması sağlanabilir ve en son olarak da bu güncelleme sorgusunun sonuna yine ilgili metin kutusunun kilitlenmesi tekrar sağlanabilir.
Private Sub isim_DblClick(Cancel As Integer)
Dim bilgial, sifreyaz
sifreyaz = "123"
bilgial = InputBox("Şifreyi giriniz", "Şifre?")
If bilgial = sifreyaz Then
'formun Düzenleme izninin geçerli olması için
Me.AllowEdits = True
Me.Komut12.Enabled = True
Else
MsgBox ("Şifre hatalı"), vbCritical, "UYARI"
End If
End Sub
Private Sub Komut12_Click()
MsgBox ("kayıt güncellendi")
'formun Düzenleme izninin geçersizleştirmek için
Me.AllowEdits = False
Me.isim.SetFocus
Me.Komut12.Enabled = False
End Sub
anlatımda bahsi geçen açıklamalar,örnek incelenerek daha net değerlendirmeyi sağlayacaktır.bilgilerinize.
iyi çalışmalar,
saygılar.
