DoCmd.RunSQL "UPDATE alislar SET [Satildi] = -1 WHERE [imeiid]=" & Me.imeiid.Value & ";"

bu kodun üstüne

 DoCmd.SetWarnings False

altına da

 DoCmd.SetWarnings True

kodu ekleyiniz.


Formun kayıt kaynağını aşağıdaki ile değiştirirsen daha iyi olacak gibi.

SELECT satislar.*, alislar.Satildi FROM satislar INNER JOIN alislar ON satislar.alisid = alislar.alisid WHERE (((alislar.Satildi) Is Null));

Birde, kaydet butonunun tıklandığında olayındaki kodları aşağıdaki ile değiştir.

DoCmd.SetWarnings False

Dim strSQL, stfyt, msblg As String

If IsNull(Me.satisfiyati) Then stfyt = MsgBox("Satış Fiyatını Girmeden Kaydedemezsiniz!!!", 64, "Satış Fiyatını Girmeden Kayıt yapamazsınız"): Me.satisfiyati.SetFocus: Exit Sub

If IsNull(Me.musteribilgi) Then msblg = MsgBox("Müşteri Bilgilerini Girmeden Kaydedemezsiniz!!!", 64, "Müşteri Bilgilerini Girmeden Kayıt yapamazsınız"): Me.musteribilgi.SetFocus: Exit Sub

DoCmd.RunSQL "UPDATE alislar SET [Satildi] = -1 WHERE [imeiid]=" & Me.imeiid.Value & ";"

DoCmd.SetWarnings True

Me.satisfiyati.Enabled = False

Me.satistarihi.Enabled = False

Me.musteribilgi.Enabled = False

MsgBox "Satış Gerçekleşti..."

Me.SatilacakTelefonlar.Requery

Requery