Private Sub Liste22_Click()Dim rs As Recordset Set rs = Me.RecordsetClone rs.FindFirst "[Id] = " & CLng(Me.Liste22.Column(0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark rs.Edit rs!Sil = IIf(rs!Sil = 0, -1, 0) rs.Update rs.Close Me.Liste22.RequeryMe.Etiket1.Caption = "DÜZENLE"Me.Etiket2.Caption = "DÜZENLE"End Sub