If Me.Metin395 >= Me.SIPARISADET Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
BITTI = "-1"
DoCmd.RunSQL "UPDATE SIPARIS SET BITTI ='" & "-1" & "',RENK='" & "YEŞİL" & " WHERE SIPARIS_NO=" & Me.SIPARISNO
DoCmd.SetWarnings True
LOT_NO = Me.LOTNO
SIP_ADET = ADEDI
Me.Komut14.SetFocus
Me.Refresh
Else
DoCmd.RunCommand acCmdSaveRecord
LOT_NO = Me.LOTNO
SIP_ADET = ADEDI
Me.Komut14.SetFocus
End If
Ahmet Yenginoğlu