Hocam Teşekkür Ederim, Kod genel olarak başarılı ancak koşulların ilk aşaması olan sevk miktarının sevk bekleyenden büyük olmaması gerektiği kuralı işlemiyor, siz benim ilk koddaki darboğazı > işaretini < işaretine dönüştürerek aşmışsınız ancak bu asıl ilk koşul kontrolünü ortadan kaldırıyordu. problemi bu ilk koşul değişkenlerinin başına Val() ekleyerek çözdüm. kodun son hali :

If Val(Me.sevk_adet) > Val(Me.sevk_bekleyen) Then



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

    Me.sevk_adet = Me.sevk_bekleyen



ElseIf Val(Me.stoktan_sevk_adet) = 0 Then



    Me.hesaplanan = 0



ElseIf Val(Me.toplam_sevkedilen) >= Val(Me.stoktan_sevk_adet) Then



    Me.hesaplanan = 0



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



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

    

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



    Me.hesaplanan = Val(Me.sevk_adet)



Else



    Me.hesaplanan = Val(Me.sevk_adet)



End If

Problemim Çözülmüştür.