Skip to main content

AccessTr.neT


Kayıt Ekleme şartı

Kayıt Ekleme şartı

Çözüldü #1
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.
.rar vt1.rar (Dosya Boyutu: 212,34 KB | İndirme Sayısı: 2)
Cevapla
#2

Visual Basic Code
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

Visual Basic Code
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.

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
Sayın Ozan hocam,
Yazmış olduğunuz kodları uyguladım ancak resimde görüldüğü gibi hata vermektedir.

Saygılarımla.
[Resim: 14559001531.png]
Cevapla
#4
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.
Cevapla
#5
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.

Herkes,kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#6
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

Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da