'__Eklenen kod hy__________başlangıç___________________________________________________
On Error Resume Next
If Not IsNull(ayrilma_tarihi) Then
For Each ctl In Me
If ctl.Tag = "txtkilitli" Then ctl.Enabled = False
Next
Else
For Each ctl In Me
If ctl.Tag = "txtkilitli" Then ctl.Enabled = True
Next
End If
'__Eklenen kod hy___________________bitiş_____________________________________________
yazdığım kodu silip aşağıdaki kodu Exit_hata: satırının hemen üstüne yazıp dener misiniz?