"Tbl_Sayac alt formu"  adındaki boşlukları kaldır veya  "Tbl_Sayac_alt_formu"      yap

Dim lastEndeks As Variant

lastEndeks = DMax("[sonendeks]", "Tbl_Sayac", "abone_ıd = " & (Forms![Frm_Sayac]![Tbl_Sayac_alt_formu].Form![abone_ıd] - 1) & " AND okumatarihi = #" & Forms![Frm_Sayac]![Tbl_Sayac_alt_formu].Form![okumatarihi] & "#")

If IsNull(lastEndeks) Or lastEndeks = "" Then
    Me.ilkendeks = 0
Else
    Me.ilkendeks = lastEndeks
End If

sonra bunu dene