evet ozan bey alış formunda bir problem yok. fatih bey düzenlemesini alışlar formunda yaptığı için alış formu dedim bende.
şunu demek istemiştim, form kapanması durumu için verdiği kodlar, aynı form eğer başka tablolara da kayıt yapıyorsa bu durumda yine genel olarak uygulanabilir bir kod varmı.. yani formda veri girişinden vazgeçince tüm herşeyi iptal etmek için yapabileceğimiz birşey varmı.. bunu demek istemiştim..
ozan bey sizin daha önce yapmış olduğunuz alışlar formundaki kapatma butonundaki kodları kendimce düzenleyerek satışlar formuna uyarlamaya çalışıyorum.. fakat şu uyarıyı alıyorum:
eksik işleç... debug:
DoCmd.RunSQL "UPDATE alislar SET [Satildi] = -1 WHERE [imeiid]=" & Me.imeiid.Value & ";"
kodlar şöyle;
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
biraz yardım edebilirseniz sevinirim.