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.