AccessTr.neT

Bul · 23/05/2010, 10:42

Örnekleri Tasarım modun da açarsanız göreceksiniz.Metin kutularının veri kaynaklarını inceleyiniz lütfen..

Bul · 23/05/2010, 11:35

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 :/

Bul · 23/05/2010, 11:43

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

Bul · 23/05/2010, 13:11

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.

Bul · 23/05/2010, 13:57

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.

Bul · 23/05/2010, 16:01

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.

AccessTr.neT

Ortalama

Ortalama

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

Giriş yap

Hesap oluştur

Konu Linkleri