eğer ana form üzerinde ise verilerin gösterildiği metin/açılan kutulara im ekleyerek bu imlere sahip alanlar için
aynı kod mantığını kullanabilirsiniz. mesela verilerin gösterildiği metin kutularının hepsini seçin im/tag kısmına
"Veriler" gibi bir tanımlama yapıp
olay yordamına aşağıdaki kodu girin
Dim ctl As Control
if not isnull(ayrilmatarihi) then
For Each ctl In Me
If ctl.Tag = "Veriler" Then
ctl.Enabled = False
ctl.Locked = True
End If
Next
end if