hocam elinize sağlık tam istediğim gibi son endeks bir sonraki ayın ilk endeksinde görüyorum
alt tabloda blok açılır kutunun değiştiğinde olay yordamı ile çözmüşsünüz sorunu benzer konularda arkadaşlara örnek olması açısından ekliyorum

konu çözüme kavuşmuştur

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