(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.
(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.
.
b-
c-
d-
e-
(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.
Oğuz bey hangi alan 0 ise kayıt gösterilmeyecek
kullandığınız form kaynagi ne? Recordset kodunu kast ediyorum
(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
hangi kayıtları göstermesi gerek söyler misiniz?