[FORM] Seçime göre alan kilidi
#1
Merhaba, ekteki örnekte açılan formda yapmaya çalıştığım olay şöyle:

Sadece satır sonundaki onay kutusu seçili alanda veya yeni kayıt satırında kilidi açık yapmak mümkün olur mu? Yani;

Örnek 1 = Form açıldı, bütün alanlar kilitli, bir kayıtta düzeltme yapmalıyız. Düzeltme yapacağımız satırın sonundaki onay kutusunu işaretlediğimizde sadece seçili satırda kilit açılsın. Düzeltme yaptıktan sonra onay kutusu işaretini kaldırınca veya formu kapatınca onay kutusu işareti kalksın ve tüm alanlar kilitlensin

Örnek 2 = Form açıldı, bütün alanlar kilitli, yeni kayıt satırına kayıt yapmak için giriyoruz. Diğer kayıtlar hâlâ kilitli. Kayıt yapıp formu kapatırken yeni yapılan kayıt dahil olmak üzere tüm alanlar kilitlensin.

Teşekkür ederim. İyi çalışmalar.


Eklenti Dosyaları
.rar   Örnek.rar (Boyut: 35,18 KB / İndirilme: 49)



  Alıntı
Bu mesajı beğenenler:
#2
o kadar fazla sayıda onay kutusu koymaya gerek varmı? Değiştir düğmesiyle kayıtların tamamını kilitleyip dilediklerinizi açabilirsiniz
If Değiştir22 = True Then
değiştir22.caption="kilitli"
Me.textbox2.locked = True
else
Me.textbox2.locked =false
değiştir22.caption="açık"
end if
Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:
#3
Sayın Hocam,
Tek formda zaten dediğiniz gibi tüm alanları kilitleyip açabiliyorum. Sürekli formda açıkladığım gibi kullanmam gerekli.

Forma değiştir isimli düğme ekledim ve verdiğiniz kodu uygulamaya aşağıdaki gibi uyguladım. Sonuç olumsuzdu.

Visual Basic
  1. Private Sub değiştir_Click()
  2. If değiştir22 = True Then
  3. değiştir22.Caption = "kilitli"
  4. Me.SiraID.Locked = True
  5. Me.AdSoyad.Locked = True
  6. Me.TC.Locked = True
  7. Else
  8. Me.SiraID.Locked = False
  9. Me.AdSoyad.Locked = False
  10. Me.TC.Locked = False
  11. değiştir22.Caption = "açık"
  12. End If
  13. End Sub



Hatam nerede acaba.



  Alıntı
Bu mesajı beğenenler:
#4
değiştie22 düğmenin adıdıdr eğer sizin düğmenizin adı değiştir ise 22 lerin silinmesi gerekir ayrıca değiştirilmesini istemediğiniz alanları açık kısmına yazmayın iyi çalışmalar
Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:
#5
Visual Basic
  1. Private Sub değiştir22_Click()
  2. If değiştir22 = True Then
  3. değiştir22.Caption = "kilitli"
  4. Me.SiraID.Locked = True
  5. Me.AdSoyad.Locked = True
  6. Me.TC.Locked = True
  7. Else
  8. Me.SiraID.Locked = False
  9. Me.AdSoyad.Locked = False
  10. Me.TC.Locked = False
  11. değiştir22.Caption = "açık"
  12. End If
  13. End Sub


aldığım hata mesajı ektedir.

If kilit = True Then

şeklinde düzelttiğimde onay kutusu işaretli ise kod çalışıyor ancak tüm kutuları kilitliyor. Sadece onaylı kutunun bulunduğu satırdakiler kilitli diğerleri açık olmalı.


Eklenti Dosyaları
.jpg   Hata.jpg (Boyut: 48,25 KB / İndirilme: 69)



  Alıntı
Bu mesajı beğenenler:
#6
resimdeki gibi tabloya kayıtlı olan değerleri tek onay kutusu ile sizin istediğiniz şekilde yapamazsınız. Zaten birini seçince hepsi seçilir ayrıca siz normal konut düğmesi koymuşsunuz halbuki iki konumlu düğme kullanmanız gerekirdi kod ona göre yazıldı access iki konumlu düğmeyi bulamadım hatası vermiş
Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Seçime Göre Raporlama 2 halil.tefci 9 242 22-12-2023, 23:08
Son Mesaj: halil.tefci
  [VBA] Bir Tabloda Alan Türü Uzun Metin Olan Iki Ayrı Alanı Karşılaştırmak abkbek 13 306 10-11-2023, 22:26
Son Mesaj: abkbek
  [SORGU] Farklı Tablolarda Yer Alan Satış Bilgilerini Toplama Sorgusu Lidervet 1 144 09-11-2023, 00:54
Son Mesaj: dsezgin
  [RAPOR] Seçime Göre Raporlama 2 golf2000 7 307 13-10-2023, 23:28
Son Mesaj: golf2000
  Boş Alan Kontrolü (taruz) : Rapor Butonu prtkl 5 274 31-05-2023, 22:48
Son Mesaj: hnakis
  [VBA] Alan Kontrollü Kaydetme Işlemi Ahmet51 2 208 25-05-2023, 14:07
Son Mesaj: Ahmet51
  Ders Kodları Tablosundaki Alan Adlarına Göre öğrencinin Sınıfını Belirlemek .. programmer67 8 358 18-05-2023, 16:49
Son Mesaj: programmer67
  Kaldırılan Alan Ve Nesnelerin Vba De Hala Gözükmesi Hk. adnnfrm 1 177 09-05-2023, 20:56
Son Mesaj: halily

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi