+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ortalama (/konu-ortalama--7129.html)
Cvp: Ortalama - Puletin - 23/05/2010
Örnekleri Tasarım modun da açarsanız göreceksiniz.Metin kutularının veri kaynaklarını inceleyiniz lütfen..
Cvp: Ortalama - * ЯéaLové - 23/05/2010
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 SubCvp: Ortalama - ercansahin - 23/05/2010
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
Cvp: Ortalama - * ЯéaLové - 23/05/2010
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.
Cvp: Ortalama - ercansahin - 23/05/2010
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.
Cvp: Ortalama - ayhan2122 - 23/05/2010
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.