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

Kayıtlar Arası Gezerken Değeri 0 Olan Kayıtlar Nasıl Atlanır. - 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ıtlar Arası Gezerken Değeri 0 Olan Kayıtlar Nasıl Atlanır. (/konu-kayitlar-arasi-gezerken-degeri-0-olan-kayitlar-nasil-atlanir.html)

Sayfalar: 1 2 3 4 5 6

Cvp: Kayıtlar Arası Gezerken Değeri 0 Olan Kayıtlar Nasıl Atlanır. - feraz - 20/03/2020

(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.

Cvp: Kayıtlar Arası Gezerken Değeri 0 Olan Kayıtlar Nasıl Atlanır. - Oğuz Türkyılmaz - 20/03/2020

(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]

Cvp: Kayıtlar Arası Gezerken Değeri 0 Olan Kayıtlar Nasıl Atlanır. - Oğuz Türkyılmaz - 20/03/2020

(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.

Cvp: Kayıtlar Arası Gezerken Değeri 0 Olan Kayıtlar Nasıl Atlanır. - berduş - 20/03/2020

Oğuz bey hangi alan 0 ise kayıt gösterilmeyecek
kullandığınız form kaynagi ne? Recordset kodunu kast ediyorum

Cvp: Kayıtlar Arası Gezerken Değeri 0 Olan Kayıtlar Nasıl Atlanır. - Oğuz Türkyılmaz - 20/03/2020

(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

Cvp: Kayıtlar Arası Gezerken Değeri 0 Olan Kayıtlar Nasıl Atlanır. - berduş - 20/03/2020

hangi kayıtları göstermesi gerek söyler misiniz?