kodu aşağıdaki şekilde düzenleyip dener misiniz?

Private Sub Form_Current()

    Etkin = Nz(Me.Grup_No, "")

    If Not NewRecord Then

        Onceki = Nz(DLast("Grup_No", "[öğrenci görüşme]", "[sıra]<" & Me.Sıra & " and [Grup_No]<>''"), 1)

        Yeni = Nz(DLast("Grup_No", "[öğrenci görüşme]", "[sıra]<" & Me.Sıra & " and [Grup_No]<>''"), 1) + 1

    Else

        Onceki = Nz(DLast("Grup_No", "[öğrenci görüşme]", "[Grup_No]<>''"), 1)

        Yeni = Nz(DLast("Grup_No", "[öğrenci görüşme]", "[Grup_No]<>''"), 1) + 1

    End If

End Sub