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