27/06/2021, 13:32
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.
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.