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