(01/05/2025, 13:24)berduş yazdı: altformun kayıt kaynağındaki sorgunun kriteri sadece o günü gösterecek şekilde ayarlanmış o nedenle sadece günlük verileri gösteriyor
ilgili kriteri kaldırırsanız sorun düzelir

hocam kaldırmadıgım olay yordamı kalmadı gene tarih değişince bir önceki tarihteki veriler forma gelmiyor ama tabloda kayıtlar vae anlamadım bir incelermisiniz mesala bu kırıter vardı onu kaldırdım olmadı
[Tablo1 Sorgu1].[kimlik1], [Tablo1 Sorgu1].[ABONENO]

'Private Sub ABONENO_Change()
'If IsNull(DLast("[sonendeks]", "Tablo1", "ayıd=" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![ayıd] - 1 & " and ABONENO='" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![ABONENO] & "'")) Or DLast("[sonendeks]", "Tablo1", "ayıd=" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![ayıd] - 1 & " and ABONENO='" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![ABONENO] & "'") = "" Then
  ' Me.ilkendeks = 0
'Else
    'Me.ilkendeks = DLast("[sonendeks]", "Tablo1", "ayıd=" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![ayıd] - 1 & " and ABONENO='" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![ABONENO] & "'")
'End If
'End Sub

acaba bu kod da bir hata varmı bunumu kasdediyorsunuz

Public Function ToplamKayit(Tablo11)

Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim strSQL As String

Set db = CurrentDb

strSQL = "SELECT COUNT(*) FROM " & Tablo11

Set rs = db.OpenRecordset(strSQL)

ToplamKayit = rs.Fields(0)

'Bağlantıyı kesiyoruz, değişkenleri Sıfırlıyoruz
rs.Close
Set rs = Nothing
Set db = Nothing

End Function