Sayın Arkadaşlar,
Ekteki uygulamada Urungırıs ve urungırıs1 formlarına İş_No 0 ise alanlara veri girişini ne şekilde önleyebilirim,
Saygılarımla.
Sub SifirsaKitle()
If Me.İs_No = 0 Then
fırkısıd.Enabled = False
[tbl_URUNGIRIS].Form![urunıd].Enabled = False
Else
fırkısıd.Enabled = True
[tbl_URUNGIRIS].Form![urunıd].Enabled = True
End If
End Sub
üstteki kodu urungiris formunun
Vba sayfasına ekle,
formun açıldığında olayına ve İs_No metin kutusunun güncelleştirme sonrasında olayına
call SifirsaKitle
kodu ekle
kilitlenecek metin kutusu isimlerini SifirsaKitle koduna eklemelisin, fırkısıd ana form, urunıd altformdaki denetimin adıdır. Bu arada Türkçe karakter kullanımı ile ilgili bir şey söyleyemeyeceğim, uygulamanızın Türkçe karakterlerden dolayı gümlemesini bekliyorum.
Sayın Ozan hocam,
Yazmış olduğunuz kodları uyguladım ancak resimde görüldüğü gibi hata vermektedir.
Saygılarımla.
![[Resim: 14559001531.png]](https://resim.accesstr.net/uploads/14559001531.png)
Sayın Ozan hocam,
2.msj.son paragrafı atlamışım,dikkatimden kaçmış.Ancak yinede sormadan geçemeyeceğim Metin kutularının adını yazdığınız kodunun neresine ekleyeceğimi bilemedim.
sayın fascioglu,
Alıntı:...Metin kutularının adını yazdığınız kodunun neresine ekleyeceğimi bilemedim...
ifadenize yönelik olarak;sayın ozan bey'in
Alıntı:...kilitlenecek metin kutusu isimlerini SifirsaKitle koduna eklemelisin...
ifadesi ile kast ettikleri şu:
Kod:
If Me.İs_No = 0 Then
fırkısıd.Enabled = False
[tbl_URUNGIRIS].Form![urunıd].Enabled = False
Else
fırkısıd.Enabled = True
[tbl_URUNGIRIS].Form![urunıd].Enabled = True
End If
eğer İs_No değerinin 0 (Sıfır) olduğu durumda ana form ve alt formdaki denetimleri etkisizleştirmek istiyorsanız,bütün bu denetimleri ELSE ifadesinin bir üst ve bir alt kısmına hem FALSE hem de TRUE değerli olarak eklemeniz istenmektedir.
örnek kod yazımından açıklamak gerekirse;ana formdaki fırkısıd adlı denetim
Kod:
fırkısıd.Enabled = False
sıfır olma durumunda ETKİSİZleştirilmiştir.(else ifadesinin bir üzerinde).eğer sıfır değilse de
Kod:
fırkısıd.Enabled = True
ifadesi ile ETKİNleştirilmiştir.sizden istenen de,bunu tüm denetimlere uyarlamanız ve hepsi için yazmanızdır.
bilginize...iyi çalışmalar,saygılar.
Sayın Atoz112 hocam,
Açıklamanızdan anladığım kadarıyla aşağıdaki biçimdemi olması gerekiyor,eğer böyleyse yine aynı hatayı vermektedir.
Kod:
Sub SifirsaKitle()
If Me.İs_No = 0 Then
[tbl_URUNGIRIS].Form![urunıd].Enabled = False
fırkısıd.Enabled = False
yetkılı.Enabled = False
SEKTOR.Enabled = False
tel.Enabled = False
ılılce.Enabled = False
belgeno.Enabled = False
Else
[tbl_URUNGIRIS].Form![urunıd].Enabled = True
fırkısıd.Enabled = True
yetkılı.Enabled = True
SEKTOR.Enabled = True
tel.Enabled = True
ılılce.Enabled = True
belgeno.Enabled = True
End If
End Sub