If Me.sevk_adet < Me.sevk_bekleyen Then



    MsgBox "Sevk Bekleyenden daha büyük değer giremezsiniz!...", vbInformation, "SEVK İŞLEMLERİ"

    Me.sevk_adet = Me.sevk_bekleyen



ElseIf Me.stoktan_sevk_adet = 0 Then



    Me.hesaplanan = 0



ElseIf Me.toplam_sevkedilen >= Me.stoktan_sevk_adet Then



    Me.hesaplanan = 0



ElseIf (Val(Me.stoktan_sevk_adet - Me.toplam_sevkedilen) <= Val(Me.sevk_adet)) Then



    Me.hesaplanan = (Me.stoktan_sevk_adet - Me.toplam_sevkedilen)

    

ElseIf (Val(Me.stoktan_sevk_adet - Me.toplam_sevkedilen) > Val(Me.sevk_adet)) Then



    Me.hesaplanan = Me.sevk_adet



Else



    Me.hesaplanan = Me.sevk_adet



End If