Skip to main content

AccessTr.neT


Ortalama

Ortalama

Çözüldü #7
Örnekleri Tasarım modun da açarsanız göreceksiniz.Metin kutularının veri kaynaklarını inceleyiniz lütfen..
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Çözüldü #8
Tasarım Modunda açıyorum..
Bitirdim sayılır ancak
Kod:
Private Sub Hesapla_Click()
Dim birincivize As Integer
Dim ikincivize As Integer
Dim Finalnotu As Integer
Dim NotOrtalamasi As Integer

If Vize_1 = 0 Or IsNull(Vize_1) Or Vize_1 = "" Then

MsgBox "Birinci Vize alanı boş."

Exit Sub
Else

birincivize = (Vize_1 * 0.2)

End If


If Vize_2 = 0 Or IsNull(Vize_2) Or Vize_2 = "" Then

MsgBox "İkinci Vize alanı boş."

Exit Sub
Else

ikincivize = (Vize_2 * 0.2)

End If


If Final = 0 Or IsNull(Final) Or Final = "" Then

MsgBox "Final alanı boş."

Exit Sub
Else

Finalnotu = (Final * 0.6)

End If


NotOrtalamasi = birincivize + ikincivize + Finalnotu

Me.Ortalama = NotOrtalamasi

End Sub

Bunun gibi kodları Denetim Kaynağına yazamam heralde :/
Cevapla
Çözüldü #9
Sizin örneğinizde bu şekilde kodla yazılarak değil Metin Kutusunun Denetim Kaynağına =Nz([Metin1]+[Metin149]+[Metin2]+[Metin18]+[Metin35])/5 yazılarak gerçekleştirildiğini göreceksiniz. Sizin belirittiğiniz gibi kodlarla da bu işlem gerçekleştirilebilir, şu anda pratik olan yöntem uygulanarak örneğe eklenmiştir. Bilgilerinize
Cevapla
Çözüldü #10
Teşekkürler onun olduğunu gördüm.. Ama ben şundan bahsediyorum ..

(22/05/2010, 19:55)* ЯéaLové yazdı: Ayrıca ;
Ortalamanın yanına birer tane daha text eklesem. .
Onlara nasıl 100 ve 84,50 arasında ise 5
84 ve 69,50 arasında ise 4 vb..diye yazdırabilirim.
Bu konuda da bana yardımcı olabilicek biri varsa çok sevinirim.
Acilen yetiştirmem gerekiyor.
Son Düzenleme: 23/05/2010, 13:12, Düzenleyen: * ЯéaLové.
Cevapla
Çözüldü #11
Kodlar sadece BEŞ ve DÖRT alanları için ayarlanmıştır. Diğerleri olduğunda Gerekli Kodlar Girilmemiş şeklinde mesaj vermektedir. Umarım size bir yol gösterir.
.rar dersnotu_erc.rar (Dosya Boyutu: 16,19 KB | İndirme Sayısı: 5)
Cevapla
Çözüldü #12
2 tane yeni MetinKutusu ekleyin.
Diyelimki adları Metin0 ve Metin17

Metin0'ın DenetimKaynağına;
=IIf(IsNull([Metin1]);0;1)+IIf(IsNull([Metin149]);0;1)+IIf(IsNull([Metin2]);0;1)+IIf(IsNull([Metin18]);0;1)+IIf(IsNull([Metin35]);0;1)
yazın

Metin52(ortalama)nin DenetimKaynağına;
=IIf([Metin0]=0;"Notları giriniz...";(nz([Metin1];0)+nz([Metin149];0)+nz([Metin2];0)+nz([Metin18];0)+nz([Metin35];0))/[Metin0])

Metin17'nin DenetimKaynağına;
=IIf(IsNumeric([Metin52]);IIf([Metin52]>=84,5;5;IIf([Metin52]>=69,5;4;IIf([Metin52]>=54,5;3;IIf([Metin52]>=45,5;2;IIf([Metin52]>=0;1;"")))));[Metin52])

yazın.
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da