Açılan Kutu Değerine Göre Başka Bir Alana Numara Verme

Çok Teşekkür ederim Berduş Hocam. İstediğim gibi olmuş. emeğinize sağlık

Rica ederim
İyi çalışmalar
Yalnız dikkat edin eğer acilir kutunun içeriği yada içerikteki sıralama değişirse sorun çıkabilir.

Tekrardan merhaba Berduş Hocam. Tam anlamıyla deneyememiştim, denediğimde kullanımda şu şekilde hatalar verdi. 
Örneğin bir kaç grup seçtikten sonra bireyselleri girmeye başladım. Daha sonra tekrar grup girdiğimde yeni grubu 1 den başlatıyor. Bir önceki dolu olan grup nosunu baz almıyor. 

Ben yapmak istediğim şeyi daha net açıklamaya çalışayım size.
Bu formla tabloma öğrencilerle yaptığım bireysel ya da grup görüşmelerimi kayıt ediyorum
Bireysel görüşmelerimde herhangi bir sıkıntı olmuyor. Ancak grup olarak seçtiğimde sene sonunda kaç grupla görüştüğüm hakkında bir bilgi elde edemiyorum, eğer grupları numaralandırsam sorgulardan bunu öğrenebilirim. aynı zamanda Numaralandırmaya göre de örnek olarak 5 nolu grupta kimlerle görüşmüşüm o öğrencileri de sorgu çalıştırarak görebileceğim.
Numaralandırmayı da şu şekilde yapmak istiyorum bir öğrenciyle yeni bir grup giriş kaydı yaptıktan sonra aynı gruptaki diğer öğrencileri de "bir önceki grup" seçeneğiyle kayıt edeceğim. bu şekilde bu öğrencilerin grup nosu aynı olacak.
Hem bireysel hem de grup görüşmeleri aynı tabloda yer aldığı için araya bireysel görüşmelerde girecek. Araya bireysel görüşmeler yani grup no su boş olan kayıtlar da girse, bir sonraki grup görüşmemi kayıt ederken dolu olan en son grup no yu baz alarak yeni değer getirmesini istiyorum.
Umarım yapmak istediğimi anlatabilmişimdir. 

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

Teşekkürler Berduş. Şimdi sorunsuz çalışıyor. emeğinize sağlık