aşağıdaki kodu formunuza ekleyip dener misiniz?
ilk kod formunuzdaki Option Compare Database satırının hemen altına eklenecek

Dim Etkin As String, Onceki As String, Yeni  As String

Açılan_Kutu25 değiştiğinde olayı

Private Sub Açılan_Kutu25_Change()

'If Me.Açılan_Kutu25 = "BİREYSEL" Then Me.Grup_No = Etkin

'If Me.Açılan_Kutu25 = "BİR ÖNCEKİ GRUP" Then Me.Grup_No = Onceki

'If Me.Açılan_Kutu25 = "YENİ GRUP" Then Me.Grup_No = Yeni

Me.Grup_No = Choose(Açılan_Kutu25.ListIndex + 1, Etkin, Onceki, Yeni)

End Sub

kayıtlar arasında dolaşırken Form_Current olayı

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), 1)

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

    Else

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

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

    End If

End Sub