(05/02/2019, 17:04)haliliyas yazdı: yazdığım kodu silip aşağıdaki kodu Exit_hata: satırının hemen üstüne yazıp dener misiniz?
'__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ş_____________________________________________
Sayın haliliyas, çalıştı çok teşekkür ederim, ellerinize sağlık.