Skip to main content

AccessTr.neT


Kayıtlar Arası Gezerken Değeri 0 Olan Kayıtlar Nasıl Atlanır.

Oğuz Türkyılmaz
Oğuz Türkyılmaz
33
3284

Kayıtlar Arası Gezerken Değeri 0 Olan Kayıtlar Nasıl Atlanır.

Çözüldü #1
Merhaba
Formda kayıt gezinti tuşları ile gezerken eğer kayıtta bir alanın değeri 0 ise o kaydı formda göstermemesinin yani pas geçmesinin bir yolu var mı. 

GelirFormu kayıtları arasında gezinirken aynı zamanda aynı tabloya kayıt yapan GiderFormunun Kayıtlarının da görünmesini engellemek amacındayım.

Eğer bir yöntem bulamazsam kayıt gezinti tuşlarını Görünmez pasif yapıp Sadece GelirListesi formunda çift tıklama ile istenen form üzerinde gerekirse değişiklik yapılmasını sağlayacağım.

Teşekkürler 

[Resim: do.php?img=9893]
.rar Kayıt Gezinti.rar (Dosya Boyutu: 134,53 KB | İndirme Sayısı: 4)
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 19/03/2020, 21:54, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#2
Me.GirenTutar_TXT = GelirRS(5)
yerine alttaki gibi deneyiniz.

Me.GirenTutar_TXT = IIf(GelirRS(5) = 0, Empty, GelirRS(5))
Cevapla
#3
Sn@feraz ilginiz için teşekkür ederim Kod sadece Giren Tutar alanının 0 olan değerini boşa çevirdi ama ekranda kaydın diğer unsurlarını göstermeye devam etti. 
Alttaki resim sonucu  üzerinden konuşursak ID numarası 6 olan bu kaydı atlaması Pas geçmesi Hiç ekrana getirmemesi, ID si 7 olan kaydı göstermesi gerekiyor. Çünkü bu ID 6 olan kayıt aslında açıklamaya dikkat ederseniz KAYIT GİDER olarak işlenmiş tutar. Ben örneğe sadece GelirFişi Formunu yükledim(Aslında Bu form hem gelirde hem giderde kullanılan aynı kayıt kaynağına bağlı form ).Hem gelir hem gider formları kayıt kaynağı olarak aynı tabloyu kullandıkları için Formda ID alanları üzerinde gezinirken Tablodaki tüm kayıtları hem gelirin hem giderin kayıtlarını gösteriyor doğal olarak. Ben istiyorum ki eğer bir yolu varsa  Kayıt gezinti tuşları ile gezinirken
T_HesapHareketleri tablosu üzerinde
ki kayıları kontrol ettirip sıradaki kayıt eğer GelirTürü alan değeri 0 dan büyük ise GelirFişi Formunda ekrana gelsin. Gider Kayıtlarına ait bilgilerin formda gözükmesi saçma oluyor bunu engellemem gerekiyor. Aynı şekilde GiderFişi Formunda da tersini uygulamam gerekecek.
Umarım anlatabilmişimdir. 
[Resim: do.php?img=9899]
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 20/03/2020, 08:56, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#4
Rica ederim üstad anladım zaman bulunca hallederim inşAllah kolay işe benziyor gibi sanki.
Cevapla
#5
ilgili sub ları alttakiler ile değiştirip deneyebilirsiniz.

Bilmiyorum farkındamısınız ilk SonrakiKayit butonuna tıklayınca 1 yerine 2 den başlıyor.

[Resim: do.php?img=9900]


Private Sub OncekiKayit_BTN_Click()

var:
      If GelirRS.BOF Then GoTo soN
      If GelirRS.AbsolutePosition = 1 Then Exit Sub
      GelirRS.MovePrevious

      ID_TXT = GelirRS(0)
      Me.Tarih_TXT = GelirRS(1)
      Me.HesapTuru_CBO = GelirRS(2)
      Me.MakbuzNo_TXT = GelirRS(3)
      Me.GelirTuru_CBO = GelirRS(4)
      Me.GirenTutar_TXT = GelirRS(5)
      Me.GiderTuru_CBO = GelirRS(6)
      Me.CikanTutar_TXT = GelirRS(7)
      Me.Aciklama_TXT = GelirRS(8)
     
     
    If GelirRS(5)= 0 Then GoTo var
soN:

End Sub

Private Sub SonrakiKayit_BTN_Click()

var:
      If GelirRS.EOF Then GoTo soN
      If GelirRS.AbsolutePosition = GelirRS.RecordCount Then Exit Sub
      GelirRS.MoveNext

      ID_TXT = GelirRS(0)
      Me.Tarih_TXT = GelirRS(1)
      Me.HesapTuru_CBO = GelirRS(2)
      Me.MakbuzNo_TXT = GelirRS(3)
      Me.GelirTuru_CBO = GelirRS(4)
      Me.GirenTutar_TXT = GelirRS(5)
      Me.GiderTuru_CBO = GelirRS(6)
      Me.CikanTutar_TXT = GelirRS(7)
      Me.Aciklama_TXT = GelirRS(8)
     
     
    If GelirRS(5)= 0 Then GoTo var
soN:

End Sub
.rar Kayıt Gezinti1.rar (Dosya Boyutu: 137,01 KB | İndirme Sayısı: 1)
Cevapla
#6
Orda bir sorun yok ekran boşken mantıken sonraki kayıt butonuna basılması durumu zaten pek olası değil ya ilk ya son kayıt butonuna basılır sonrada duruma gore ileri yada geri gidilir zaten sonrakine basıldığında 2.kayıt çıkıyorsa demekki bunun bir öncesi de vardır diye düşünürler herhalde Img-grin
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task