(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