Skip to main content

AccessTr.neT


Çoklu Kritere Göre Veri Gizleme

Çoklu Kritere Göre Veri Gizleme

Çözüldü #1
Merhaba,

üretim giriş  sipariş noya çift tıkladığımda açılan uretım_gırıs_yc formunu çoklu kritere göre veri gizleme olarak dizayn etmeye çalışım fakat başarılı olamadım.
yardımcı olabilir misiniz?

Saygılarımla
.zip 19-12-19 deneme.zip (Dosya Boyutu: 645,51 KB | İndirme Sayısı: 7)
mehmet8x, 15-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
sorun çok fazla if ve else bağlı koşul kullanmanız
hepsini en başta görünmez yapıyorsunuz zaten.
tekrardan, eğer eşit değilse gizle demenize gerek yok bence (en azından inceleyebildiğim kadarıyla).
efseif li kısımlar ile end if arasini devre dışı bırakarak deneyin
Visual Basic Code
If Me.Metin726 = "Çapak Alma" Then

Forms![uretım_gırıs_yc]![Fire__Adedi].Visible = False
Forms![uretım_gırıs_yc]![malzeme].Visible = False
Forms![uretım_gırıs_yc]![Makina_kodu].Visible = False
Forms![uretım_gırıs_yc]![mum_türü].Visible = False
Forms![uretım_gırıs_yc]![Şarj__No].Visible = False
Forms![uretım_gırıs_yc]![Salkım__Sayısı].Visible = False
Forms![uretım_gırıs_yc]![Üretim__/__Salkım__adedi].Visible = False
Forms![uretım_gırıs_yc]![Kat__Sayısı].Visible = False
Forms![uretım_gırıs_yc]![Montaj__Tarihi].Visible = False
Forms![uretım_gırıs_yc]![Vardiya].Visible = False

'ElseIf Me.Metin726 = "<>Çapak Alma" Then '<-- bu kısımdan
'
'Forms![uretım_gırıs_yc]![Fire__Adedi].Visible = True
'Forms![uretım_gırıs_yc]![malzeme].Visible = True
'Forms![uretım_gırıs_yc]![Makina_kodu].Visible = True
'Forms![uretım_gırıs_yc]![mum_türü].Visible = True
'Forms![uretım_gırıs_yc]![Şarj__No].Visible = True
'Forms![uretım_gırıs_yc]![Salkım__Sayısı].Visible = True
'Forms![uretım_gırıs_yc]![Üretim__/__Salkım__adedi].Visible = True
'Forms![uretım_gırıs_yc]![Kat__Sayısı].Visible = True
'Forms![uretım_gırıs_yc]![Montaj__Tarihi].Visible = True
'Forms![uretım_gırıs_yc]![Vardiya].Visible = True
' buraya kadar  <--> devre dışı

End If
Cevapla
#3
Sayın berduş,

sorunum çözüldü emeğinize sağlık ilginize çok teşekkür ederim

Saygılarımla
mehmet8x, 15-05-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 22/12/2019, 21:57, Düzenleyen: mehmet8x.
Cevapla
#4
Iyi calismalar)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da