(14/04/2023, 03:50)berduş yazdı: yada
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 kodu

SELECT 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;

Teşekkür ederim hocam sen ne iyi insansın sağolasın.