Private Sub Komut24_Click()

If IsNull(Me.Açılan_Kutu2) Or IsNull(Açılan_Kutu4) Or IsNull(Metin8) Or IsNull(Metin10) Then



    If MsgBox("Alanların Tamamı Veya Bir Kısmı Boş..." & vbCr & "Herhangi Bir Kayıt Yapılmadan Kapatılsın mı.?", vbInformation + vbYesNo, "ERZURUM OTOMASYON") = vbYes Then



' cevap evet ise alttaki denetimi yap çık, değilse formda kal



        Me.Undo

        DoCmd.SetWarnings False

        DoCmd.RunSQL ("DELETE ID_CIKIS, ID_URUN, ID_KULLANIM, CIKIS_TARIHI, CIKIS_MIKTARI FROM T_CIKIS WHERE (((ID_URUN) Is Null)) OR (((ID_KULLANIM) Is Null)) OR (((ID_CIKIS) Is Null)) OR (((CIKIS_TARIHI) Is Null)) OR (((CIKIS_MIKTARI) Is Null));")

        DoCmd.SetWarnings True

        ShrinkMe (Me.Name)

        DoCmd.Close

        DoCmd.OpenForm "F_BIRIM", acNormal

   End If

  

' alanların hepsi doluysa alttaki msgbox u sor, cevap hayırsa değişiklikleri geri al çık,



ElseIf MsgBox("Form Kapatılmadan Önce Girilen Veriler Kaydedilsin mi?", vbCritical + vbYesNoCancel, "ERZURUM OTOMASYON") = vbNo Then

            Me.Undo

            ShrinkMe (Me.Name)

            DoCmd.Close

            DoCmd.OpenForm "F_BIRIM", acNormal



'cevap evet ise alttaki stok kontrol işlemini yap, stok işleminde sorun varsa formda kal



Else

If Me.Metin10 > Me.Metin44 Then

MsgBox "Ürüne Ait Güncel Stok Miktarı { " & Metin44 & " } Çıkış Yapmak İstediğiniz Rakam Stok Miktarını Eksiye Düşüreceğinden Bu işlemi Gerçekleştiremezsiniz...", vbCritical, "ERZURUM OTOMASYON"

Me.Metin10 = ""

Me.Metin10.SetFocus

       

' stok işleminde sorun yoksa kaydet çık

Else

        

           

            DoCmd.Save

            MsgBox Metin10 & " BİRİM { " & Metin54 & " } STOK ÇIKIŞI GERÇEKLEŞTİ, KALAN STOK MİKTARI " & ([Metin44] - [Metin10]) & "", vbOKOnly, "ERZURUM OTOMASYON"

            ShrinkMe (Me.Name)

            DoCmd.Close

            DoCmd.OpenForm "F_BIRIM", acNormal

            

   

End If

End If



End Sub