AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Ortalama

1 2 3
23/05/2010, 10:42

Puletin

Örnekleri Tasarım modun da açarsanız göreceksiniz.Metin kutularının veri kaynaklarını inceleyiniz lütfen..
23/05/2010, 11:35

* ЯéaLové

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 :/
23/05/2010, 11:43

ercansahin

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
23/05/2010, 13:11

* ЯéaLové

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.
23/05/2010, 13:57

ercansahin

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.
23/05/2010, 16:01

ayhan2122

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.
1 2 3