23/05/2010, 10:42
23/05/2010, 11:35
Tasarım Modunda açıyorum..
Bitirdim sayılır ancak
Bunun gibi kodları Denetim Kaynağına yazamam heralde :/
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 SubBunun gibi kodları Denetim Kaynağına yazamam heralde :/
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
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.
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.
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.
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.