Metin Kutusu Verisi Değiştikçe Hesaplamanın Yeniden Yapılması

Arkadaşlar formumda
frm_dersler formu için;


"snf" adında bir metin kutum var. Bu metin kutusunun içerisindeki değere göre (9,10,11,12 gibi) "txtsnfmevcudu" metin kutusuna girilen değere göre alttaki kod işliyor.

Private Sub txtsnfmevcudu_AfterUpdate()
If snf < 11 Then
Select Case Me.txtsnfmevcudu

Case Is <= 21
Me.txtgrpsay = 1
Case Is <= 31
Me.txtgrpsay = 2

Case Is >= 32
Me.txtgrpsay = 3
End Select

Else
Select Case Me.txtsnfmevcudu

Case Is <= 16
Me.txtgrpsay = 1
Case Is <= 24
Me.txtgrpsay = 2
Case Is <= 32
Me.txtgrpsay = 3
Case Is >= 33
Me.txtgrpsay = 4
End Select
End If
End Sub

aynı formda bulunan "txtgrpsay" değeri hesaplanıyor.

Sorun şu: Ben "txtsnfmevcudu" metin kutusunda değer girip enter tuşuna basınca form yeni kayıta gecer gibi metin kutularını boşaltıyor. Oysa ben verileri girdikten sonra hesaplanan metin kutuları değişssin ve kaydet deyince kaydetsin.

Formun, Devir özelliğini "Geçerli Kayıt" olarak değiştirip deneyiniz. şu anda "Tüm Sayfalar" olarak belirlendiği için, enter'a bastığınızda sonraki kayda gidiyor.

Teşekkür ederim. Konu çözüldü.