AccessTr.neT

Tam Versiyon: Matematiksel İşlem Hatası
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
Yalnız şunu atlamışsınız. Öğretmenlere ek dersler dağıtılırken haftanın her gününe ek ders dağıtılmaz. Boş günü olan öğretmenin boş gününe ek ders de verilmez. Bu durumda her öğretmenin ya ders programını baz alan bir dağıtım referansı olmalı, ya da boş veya sıfır olan P kutucuklarına bağlı R kutucuklarına ek ders atanamamalı.
hocam o şekilde zaten boş olan veya 0 girilen kutulara ekders dağıtmıyor.
yok mu yardımcı olacak kimse..
kodunuzda yer alan soru işaretleri arasındaki kodu aşağıdaki kodla değiştirip dener misiniz?
'??????????????????????????????????????????????????????????????
If p < 15 Then
Kalan = 0
End If

If 15 <= p And p < 20 Then 'değişti
Kalan = (p - 15) + 3
Me.S.Value = Kalan
End If
'___________________________________
If Me.O.Value = -1 And p = 19 Then
Kalan = (p - 15) + 4
Me.S.Value = Kalan
End If
'___________________________________
If 20 <= p And p < 30 Then 'değişti
Kalan = (p - 15) + 4
Me.S.Value = Kalan
End If
'___________________________________
If Me.O.Value = -1 And p = 29 Then
Kalan = (p - 15) + 5
Me.S.Value = Kalan
End If
'________________________________
If p = 30 Then
Kalan = (p - 15) + 5
Me.S.Value = Kalan
End If
'??????????????????????????????????????????????????????
sorunun sebebi galiba hem  If 15 <= p < 20 Then hem de If 20 <= p < 30 Then satırlarında and kullanmadan aralık belirlemeniz.
Emin değilim ama Accesste matematiksel işlemlerde kullandığımız gibi bir yapı kullanılamıyor and bağlacıyla ayrı ayrı belirlemeniz gerek sınırları.
If 15 <= p < 20 Then  yerine --> If 15 <= p And p  < 20 Then
If 20 <= p < 30 Then yerine de  --> If 20 <= p And p  < 30 Then
kullanmanız daha uygun olabilir
Şimdilik sonuç olumlu. Teşekkürler berduş. Diğer toplamlar içinde hesaplamayı deneyip geri dönüş yapicam.
Sayfalar: 1 2 3