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
C
|