DoCmd.SetWarnings False
Sql = "UPDATE [Kişiler] SET [İmza Sirküsü]="
If Onay8 = -1 Then
DoCmd.RunSQL Sql & "-1"
Else
DoCmd.RunSQL Sql & "0"
End If
Me.Requery
Yani ekstradan sadece
DoCmd.SetWarnings False
ekledik.