DoCmd.SetWarnings False

Undo

On Error Resume Next

For Each kutu In Me

With kutu

.enabled = True



'.BackColor = vbYellow

Me.Liste162.enabled = True



End With

Next

Me.Kaydet.enabled = False

Me.Duzenle.enabled = False

Me.Sil.enabled = False

Me.Yeni_Kayit.enabled = True

Me.Vazgec.enabled = False

Metin164 = Me.Liste162.ListCount - 1

If [Metin182] < 0 Then



Else



End If

'Me.Requery

DoCmd.GoToRecord , , acNewRec

Me.Kapat.enabled = True

DoCmd.SetWarnings True

Bu koddaki "kutu" kısmında hata veriyor. Ve bu kutu nedir?