Hayri hocamın bahsettiği uzun yol ise şu;

forma metin kutusu ekle, adını "GeciciNo" yap,

liste kutusunun tıklandığında olayına

GeciciNo = Me.Liste0.Column(0)

DoCmd.SetWarnings False

If Liste0.Column(9) = "-1" Then

DoCmd.RunSQL "UPDATE ceza1 SET ceza1.sec = '0' WHERE (((ceza1.[SR NO])=[GeciciNo]));"

Me.Liste0.Requery

Else

DoCmd.RunSQL "UPDATE ceza1 SET ceza1.sec = '-1' WHERE (((ceza1.[SR NO])=[GeciciNo]));"

Me.Liste0.Requery

End If

DoCmd.SetWarnings True

kodlarını ekle.

SECEREKYAZDIRMAARAMA raporunun kayıt kaynağına yazdığın sorgudaki "sec" alanına ölçüt olarak "-1" yaz.

liste kutusundan seçtiklerinin raporunu görebilirsin.