fonksiyon kodu
Function VeriBol2(Optional xSec As Byte, Optional xTERMIN As Long, Optional xSiparis As Long) As Long
If IsNull(xSec) Then VeriBol2 = xKalan: Exit Function
If xSec = 1 Then xSiparis = xKalan
xSonuc = IIf(xSiparis >= xTERMIN, xTERMIN, xSiparis)
xKalan = xSiparis - xSonuc
VeriBol2 = xSonuc
End Function
sorgu koduSELECT T_Veriler.STOK, T_Veriler.PLANLANAN, T_Veriler.SİPARİŞİ
, T_Veriler.TERMİN1, VeriBol2(0,TERMİN1,SİPARİŞİ) AS GELEN1, VeriBol2() AS KALANSP1
, T_Veriler.TERMİN2, VeriBol2(1,TERMİN2) AS GELEN2, VeriBol2() AS KALANSP2
, T_Veriler.TERMİN3, VeriBol2(1,TERMİN3) AS GELEN3, VeriBol2() AS KALANSP3
, T_Veriler.TERMİN4, VeriBol2(1,TERMİN4) AS GELEN4, VeriBol2() AS KALANSP4
, T_Veriler.TERMİN5, VeriBol2(1,TERMİN5) AS GELEN5, VeriBol2() AS KALANSP5
, T_Veriler.TERMİN6, VeriBol2(1,TERMİN6) AS GELEN6, VeriBol2() AS KALANSP6
, T_Veriler.TERMİN7, VeriBol2(1,TERMİN7) AS GELEN7, VeriBol2() AS KALANSP7
, T_Veriler.TERMİN8, VeriBol2(1,TERMİN8) AS GELEN8, VeriBol2() AS KALANSP8
, T_Veriler.TERMİN9, VeriBol2(1,TERMİN9) AS GELEN9, VeriBol2() AS KALANSP9
, T_Veriler.TERMİN10, VeriBol2(1,TERMİN10) AS GELEN10, VeriBol2() AS KALANSP10
, T_Veriler.TERMİN11, VeriBol2(1,TERMİN11) AS GELEN11, VeriBol2() AS KALANSP11
, T_Veriler.TERMİN12, VeriBol2(1,TERMİN12) AS GELEN12, VeriBol2() AS KALANSP12
FROM T_Veriler
ORDER BY T_Veriler.STOK;