#Hata olayı için, metin kutusunun denetim kaynağını aşağıdaki ile değiştir.

=DSum("[GIRIS_MIKTARI]";"T_GIRIS";"[ID_URUN]=" & Nz([Formlar]![F_GIRIS]![ID_URUN];0))

Kapatırken boş kayıt olayı için kapat butonunun tıklandığı olayına aşağıdaki kodu ekle (kodlar microbe'nin uygulamasından alıntıdır.)

Private Sub Komut141_Click()

If IsNull(Me.Açılan_Kutu0) Or IsNull(Açılan_Kutu2) Or IsNull(Açılan_Kutu4) Or IsNull(Açılan_Kutu8) Or IsNull(Açılan_Kutu10) Or IsNull(Metin12) Or IsNull(Metin115) Then



    If MsgBox("Formda Boş Alanlar Mevcut. Kaydedilmeden Kapatılsın mı?", vbInformation + vbYesNo, "Kapatılıyor...") = vbYes Then

        Me.Undo

        DoCmd.SetWarnings False

        DoCmd.RunSQL ("DELETE satisid FROM T_GIRIS WHERE (((ID_URUN) Is Null));")

        DoCmd.SetWarnings True

        DoCmd.Close

    End If

    

Else



    mesaj = MsgBox("Form Kapatılmadan Önce Girilen Veriler Kaydedilsin mi?", vbCritical + vbYesNoCancel, "Form Kapanıyor...")

       

    Select Case mesaj

        Case 6

        

           

            DoCmd.Save

            MsgBox "Gerçekleşti...", vbInformation, "Kaydedildi"

            DoCmd.Close

        Case 7

        

            Me.Undo

            DoCmd.Close

        Case 2

        

            Exit Sub

    End Select

   

End If

End Sub

Ayrıca, sonraki sorularınızı Site Kurallarına uygun olarak açınız.