AccessTr.neT
Kayıt Ekleme şartı - Baskı Önizleme

+- 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ığı: Kayıt Ekleme şartı (/konu-kayit-ekleme-sarti.html)

Sayfalar: 1 2 3

Kayıt Ekleme şartı - fascioğlu - 19/02/2016

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.

Cvp: Kayıt Ekleme şartı - ozanakkaya - 19/02/2016 

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.

Cvp: Kayıt Ekleme şartı - fascioğlu - 19/02/2016

Sayın Ozan hocam,
Yazmış olduğunuz kodları uyguladım ancak resimde görüldüğü gibi hata vermektedir.

Saygılarımla.
[Resim: 14559001531.png]

Cvp: Kayıt Ekleme şartı - fascioğlu - 20/02/2016

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.

Cvp: Kayıt Ekleme şartı - atoz112 - 20/02/2016

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.

Cvp: Kayıt Ekleme şartı - fascioğlu - 20/02/2016

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