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
3283

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

#19
(20/03/2020, 16:03)Oğuz Türkyılmaz yazdı:
(20/03/2020, 15:55)berduş yazdı: Çalışmanızı inceleyemedim ama kayıt kaynağında kullanacağınız sorguya o koşulu ekleseniz daha uygun olmaz mı?
 O koşulu ekledim ve Gelir Listesi formunda o koşul sayesinde giderler gösterilmiyor ama formda gezinirken gösterilmemesi olayını başaramadım. Sn@feraz Önceki ve sonraki butonlarında olayı çözdü ama ilk kayıt son kayıt butonları devreye girince çözüm bozuldu.
Son dosyada tüm olasılıklar çözüldü bence.
Cevapla
#20
(20/03/2020, 16:05)feraz yazdı:
(20/03/2020, 16:03)Oğuz Türkyılmaz yazdı:
(20/03/2020, 15:55)berduş yazdı: Çalışmanızı inceleyemedim ama kayıt kaynağında kullanacağınız sorguya o koşulu ekleseniz daha uygun olmaz mı?
 O koşulu ekledim ve Gelir Listesi formunda o koşul sayesinde giderler gösterilmiyor ama formda gezinirken gösterilmemesi olayını başaramadım. Sn@feraz Önceki ve sonraki butonlarında olayı çözdü ama ilk kayıt son kayıt butonları devreye girince çözüm bozuldu.
Son dosyada tüm olasılıklar çözüldü bence.

Sn.@feraz sadece şöyle bir sorun var Bu son düzenlemeniz evet doğru çalışıyor baştaki ve sondaki kayıtlar 0 değerine sahipse ama bu seferde tersi durumda Yani 0 değilse aşağıdaki örneğe göre son kayıt dediğinizde ID 7 ye gidiyor oysa 8 e gitmesi lazım son kayıt dedikten sonra sonraki kayıt derseniz 8.kayda gidiyor aynı durum ilk kayıt tuşuna bastığınızda da oluşuyor ID 2 ye gidiyor ilk kayıt dediğinizde sonra önceki kayıt tuşuna bastığınızda 1 numaralı kayda gidiyor. Uğraştırdım sizi kusura bakmayın.
.
[Resim: do.php?img=9901]
b-
[Resim: do.php?img=9902]

c-
[Resim: do.php?img=9904]
d-
[Resim: do.php?img=9903]

e-

[Resim: do.php?img=9906]
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#21
(20/03/2020, 15:55)berduş yazdı: Çalışmanızı inceleyemedim ama kayıt kaynağında kullanacağınız sorguya o koşulu ekleseniz daha uygun olmaz mı?
Sn.@berduş
 Pardon kayıt kaynağı yok ilişkisiz form ADO ile kayıt ediliyor belirtmeyi unutmuşum.
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 20/03/2020, 17:52, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#22
Oğuz bey hangi alan 0 ise kayıt gösterilmeyecek
kullandığınız form kaynagi ne? Recordset kodunu kast ediyorum
Cevapla
#23
(20/03/2020, 17:52)berduş yazdı: Oğuz bey hangi alan 0 ise kayıt gösterilmeyecek
kullandığınız form kaynagi ne? Recordset kodunu kast ediyorum
ÇıkanTutar alanı 0 ise


Dim rstkayit As ADODB.Recordset
Dim strSQL As String

strSQL = "SELECT * FROM T_HesapHareketleri"
    Set rstkayit = New ADODB.Recordset
    rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        With rstkayit
            .Find "[MakbuzNo]=" & "'" & Me![MakbuzNo_TXT] & "'"
            If Not rstkayit.EOF Then
               
                .Fields("Tarih") = Me.Tarih_TXT
                .Fields("MakbuzNo") = Me.MakbuzNo_TXT
                .Fields("GelirTuru") = Me.GelirTuru_CBO.Column(0)
                .Fields("GirenTutar") = Me.GirenTutar_TXT
                .Fields("GiderTuru") = ""
                .Fields("CikanTutar") = "0"
                .Fields("Aciklama") = Me.Aciklama_TXT
                .Fields("HesapTuru") = Me.HesapTuru_CBO.Column(0)
                .Update
               
              Else
             
                .AddNew
                .Fields("Tarih") = Me.Tarih_TXT
                .Fields("MakbuzNo") = Me.MakbuzNo_TXT
                .Fields("GelirTuru") = Me.GelirTuru_CBO.Column(0)
                .Fields("GirenTutar") = Me.GirenTutar_TXT
                .Fields("GiderTuru") = ""
                .Fields("CikanTutar") = "0"
                .Fields("Aciklama") = Me.Aciklama_TXT
                .Fields("HesapTuru") = Me.HesapTuru_CBO.Column(0)
                .Update
            End If
        End With
Dim fat As Control
    For Each fat In Me.Form.Controls
  Select Case fat.ControlType
      Case acTextBox
        fat.Value = ""
        Case acComboBox
          fat.Value = ""
          Case acCheckBox
              fat.Value = "0"
      End Select
     
      Next
   
    Tarih_TXT = Date
     
End Sub
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 20/03/2020, 17:57, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#24
hangi kayıtları göstermesi gerek söyler misiniz?
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da