Metin Kutusundaki Puanı başka Mkutsunda **** değer gösterme

[jeday_jey]

Arkadaşlar merhaba.
Bir işin içinden çıkamadım ve siz değerli dostlardan yardım rica ediyorum.Sorun şöyle Genel Toplam Mkutusunda 10 ile 100 arası puan veriyorum. Yapmak istediğim şey ise Sınıf Mkutusunda bu puanları "*****" şeklinde göstermek.
Puanlama şöyle >85' üzeri dört yıldız "****", 71-85 arası üç yıldız "***", 50-70 arası 2 yıldız "**", <50 altı puan bir yıldız "*" gözüksün istiyoruz.

şöyle bir şey yaptım fakat tam istediğim olmadı

if me.GenelToplam.Value >85 then
Me.Sınıf.Value="****"
else
me.sınıf="***"
end if

şeklinde yazdım çalıştı fakat sadece dört yıldız ve üç yıldız çıkıyor. 70 altı puanlarda iki yıldız ve bir yıldız getiremiyorum. Yada bu işteki düşünce mantığım tamamen yanlış.Bana yardımcı olursanız çok sevinirim. Sorumun daha iyi anlaşılması için küçük bir örnekde koydum.

Teşekkürler.

 

[kulomer46]

ilgili kodu aşağıdaki şekilde değiştirin .
Private Sub Command9_Click()
If Me.GenelToplam.Value > 85 Then
Sınıf.Value = "****"
ElseIf Me.GenelToplam.Value > 70 Then
Me.Sınıf.Value = "***"
ElseIf Me.GenelToplam.Value > 49 Then
Me.Sınıf.Value = "**"
ElseIf Me.GenelToplam.Value < 50 Then
Me.Sınıf.Value = "*"
End If
End Sub

 

[jeday_jey]

Say&#305;n kulomer46 verdi&#287;iniz komutlar tam istedi&#287;im gibi &#231;al&#305;&#351;t&#305;.Bilgi payla&#351;&#305;m&#305; ve deste&#287;iniz i&#231;in te&#351;ekk&#252;rler.Belki sizler i&#231;in &#231;ok basit bir &#351;eydi ama biz yeni &#246;&#287;renenler i&#231;in b&#252;y&#252;k bir bilgi. tekrar &#231;ok te&#351;ekk&#252;rler.

Sayg&#305;lar&#305;mla.

 

[kulomer46]

Verdiğim bilgilerin işinizi görmesi beni çok mutlu etti. Çalışmalarınızda başarılar..

 

[beab05]

Merhaba;

Alternatif olarak ve select case yap&#305;s&#305;na &#246;rnek olmas&#305; a&#231;&#305;s&#305;ndan;

Select Case Me.GenelToplam
Case Is > 85
Me.Sınıf = "****"
Case 71 To 85
Me.Sınıf = "***"
Case 50 To 70
Me.Sınıf = "**"
Case Is < 50
Me.S&#305;n&#305;f = "*"
End Select