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.
![Çözüldü](images/icons/cozuldu.png)
Son Düzenleme: 27/06/2021, 13:39, Düzenleyen: SeferŞANLI.