AccessTr.neT

Kapat butonunun tıklandığında olayına yazılan kodları aşağıdaki ile değiştiriniz.

If IsNull(Me.alistarihi) Or IsNull(imeino) Or IsNull(markaadi) Or IsNull(modeladi) Or IsNull(tedarikturu) Or IsNull(alisfiyati) Or IsNull(satisilkfiyati) 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 telefonid FROM imeiler WHERE (((telefonid) Is Null));")

			If Len(Gmarka) > 0 Then

				DoCmd.RunSQL "DELETE markaadi FROM markalar WHERE (((markaadi)=[Formlar]![alislar]![GMarka]));"

			End If

			If Len(GModel) > 0 Then

				DoCmd.RunSQL "DELETE modeladi FROM modeller WHERE (((modeladi)=[Formlar]![alislar]![GModel]));"

			End If

        DoCmd.SetWarnings True

        DoCmd.Close

    End If

	

Else



	mesaj = MsgBox("Form Kapatılmadan Önce Girilen Veriler Kaydedilsin mi", vbQuestion + vbYesNoCancel, "Kayıt")

       

	Select Case mesaj

        Case 6

		

            MarkaModelGuncelle

            DoCmd.Close  

        Case 7

		

			Me.Undo

			DoCmd.SetWarnings False

			DoCmd.RunSQL ("DELETE telefonid FROM imeiler WHERE (((telefonid) Is Null));")

				If Len(Gmarka) > 0 Then

					DoCmd.RunSQL "DELETE markaadi FROM markalar WHERE (((markaadi)=[Formlar]![alislar]![GMarka]));"

				End If

				If Len(GModel) > 0 Then

					DoCmd.RunSQL "DELETE modeladi FROM modeller WHERE (((modeladi)=[Formlar]![alislar]![GModel]));"

				End If

			DoCmd.SetWarnings True

			DoCmd.Close

        Case 2

		

			Exit Sub

	End Select       

   

End If

Konu başlığındaki soru cevaplandığı için konu taşınmıştır.

teşekkür ederim elinize sağlık.