
teşekkür ederim fatih bey, fakat alışlar formunda başka tablolara da veri giriliyor, form kapandığında bunu nasıl önleriz? formda veri girişinden vazgeçince hiç bir tabloya kayıt olmamalı.. bunun için genel olarak yapabileceğimiz bir şey var mı?
If IsNull(Me.satistarihi) Or IsNull(satisfiyati) Or IsNull(musteribilgi) 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 "UPDATE alislar SET [Satildi] = -1 WHERE [imeiid]=" & Me.imeiid.Value & ";"
DoCmd.SetWarnings True
DoCmd.Close
End If
Else
Me.satisfiyati.Enabled = False
Me.satistarihi.Enabled = False
Me.musteribilgi.Enabled = False
MsgBox "Satış İptal Edilsin mi?", vbCritical + vbYesNoCancel, "Satış İptal Ediliyor..."
Me.Undo
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE alislar SET [Satildi] = -1 WHERE [imeiid]=" & Me.imeiid.Value & ";"
DoCmd.SetWarnings True
DoCmd.Close
Exit Sub
End If
If Me.Dirty = True
Me.Undo