05/02/2019, 16:33
Personel Formu
05/02/2019, 17:04
berduş
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ş_____________________________________________
05/02/2019, 17:07
ertans
(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.
05/02/2019, 17:22
berduş
sorunlu 5 alan da düzgün çalışıyor mu?
05/02/2019, 17:26
ertans
05/02/2019, 17:27
berduş
Önemli değil kolay gelsin)